[commit: Cabal] master: Don't append '.' to filename in message. Make config file end in a new line. (94b5d60)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/94b5d602c70d98f0bddc9fc7e0e0a531afe23f84

>---------------------------------------------------------------

commit 94b5d602c70d98f0bddc9fc7e0e0a531afe23f84
Author: Duncan Coutts <duncan at haskell.org>
Date:   Mon Dec 17 23:49:34 2007 +0000

    Don't append '.' to filename in message. Make config file end in a new line.

>---------------------------------------------------------------

 cabal-install/Hackage/Config.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cabal-install/Hackage/Config.hs b/cabal-install/Hackage/Config.hs
index efeeeaf..664f2ab 100644
--- a/cabal-install/Hackage/Config.hs
+++ b/cabal-install/Hackage/Config.hs
@@ -158,7 +158,7 @@ loadConfig configFile =
        minp <- readFileIfExists configFile
        case minp of
          Nothing -> do hPutStrLn stderr $ "Config file " ++ configFile ++ " not found."
-                       hPutStrLn stderr $ "Writing default configuration to " ++ configFile ++ "."
+                       hPutStrLn stderr $ "Writing default configuration to " ++ configFile
                        writeDefaultConfigFile configFile defaultConf
                        return defaultConf
          Just inp -> case parseBasicStanza configFieldDescrs defaultConf inp of
@@ -174,7 +174,7 @@ loadConfig configFile =
 writeDefaultConfigFile :: FilePath -> ConfigFlags -> IO ()
 writeDefaultConfigFile file cfg = 
     do createDirectoryIfMissing True (takeDirectory file)
-       writeFile file $ showFields configWriteFieldDescrs cfg
+       writeFile file $ showFields configWriteFieldDescrs cfg ++ "\n"
 
 showConfig :: ConfigFlags -> String
 showConfig = showFields configFieldDescrs