diff options
| -rw-r--r-- | Build/TestConfig.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/Build/TestConfig.hs b/Build/TestConfig.hs index 03d87cd8b..0cc2019cf 100644 --- a/Build/TestConfig.hs +++ b/Build/TestConfig.hs @@ -5,7 +5,6 @@ module Build.TestConfig where import System.IO import System.Cmd import System.Exit -import System.Directory type ConfigKey = String data ConfigValue = @@ -37,14 +36,8 @@ instance Show Config where valuetype (MaybeBoolConfig _) = "Maybe Bool" writeSysConfig :: [Config] -> IO () -writeSysConfig config = do - e <- doesFileExist dest - old <- if e then readFile dest else return [] - if (old /= body) - then writeFile dest body - else return () +writeSysConfig config = writeFile "Build/SysConfig.hs" body where - dest = "Build/SysConfig.hs" body = unlines $ header ++ map show config ++ footer header = [ "{- Automatically generated. -}" |