Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/73196a0b2d49c7080a161d8cef5eae666b616653 >--------------------------------------------------------------- commit 73196a0b2d49c7080a161d8cef5eae666b616653 Author: bjorn <[email protected]> Date: Sun Oct 7 08:44:00 2007 +0000 Dummy config file writer. >--------------------------------------------------------------- .../src/Network/Hackage/CabalInstall/Config.hs | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/cabal-install/src/Network/Hackage/CabalInstall/Config.hs b/cabal-install/src/Network/Hackage/CabalInstall/Config.hs index ba0103b..2fa22c6 100644 --- a/cabal-install/src/Network/Hackage/CabalInstall/Config.hs +++ b/cabal-install/src/Network/Hackage/CabalInstall/Config.hs @@ -181,7 +181,7 @@ loadConfig configFile = minp <- readFileIfExists configFile case minp of Nothing -> do hPutStrLn stderr $ "Config file " ++ configFile ++ " not found." - -- FIXME: write config file with defaults + writeDefaultConfigFile configFile return defaultConf Just inp -> case parseBasicStanza configFieldDescrs defaultConf inp of ParseOk ws dummyConf -> @@ -196,6 +196,11 @@ loadConfig configFile = ParseFailed err -> fail $ "Error parsing config file " ++ configFile ++ ": " ++ showPError err +-- FIXME: finish this +writeDefaultConfigFile :: FilePath -> IO () +writeDefaultConfigFile file = + do writeFile file "" + configFieldDescrs :: [FieldDescr ConfigFlags] configFieldDescrs = [ simpleField "compiler" _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
