[commit: Cabal] master: Dummy config file writer. (73196a0)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/73196a0b2d49c7080a161d8cef5eae666b616653

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

commit 73196a0b2d49c7080a161d8cef5eae666b616653
Author: bjorn <bjorn at bringert.net>
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"