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 | |
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.
-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. -}" |