diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-23 12:43:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-23 12:43:21 -0400 |
| commit | 0e6e840a2ae10b517c3ca19d323d329eb935fc5d (patch) | |
| tree | 6777e9173bfae7e9a3637e099df40f909b74ad7c /Build/TestConfig.hs | |
| parent | b9098a3e3795f7efc3dc1e9ce2a1aa40e3690df1 (diff) | |
Revert "avoid rewriting SysConfig.hs with identical contents"
That made the Makefile want to rebuild the file each time if it's
dependencies were newer, as it was not updated.
Diffstat (limited to 'Build/TestConfig.hs')
| -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. -}" |