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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
