diff options
-rw-r--r-- | ddl/Generate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ddl/Generate.hs b/ddl/Generate.hs index bf0d016..261c2e5 100644 --- a/ddl/Generate.hs +++ b/ddl/Generate.hs | |||
@@ -67,7 +67,7 @@ main = do | |||
67 | oldTxt <- readFile fname | 67 | oldTxt <- readFile fname |
68 | case (lines oldTxt, lines txt) of | 68 | case (lines oldTxt, lines txt) of |
69 | (_ : oldTime : old, _ : newTime : new) | old == new -> return () -- NOTE: timestamp is always in the second line | 69 | (_ : oldTime : old, _ : newTime : new) | old == new -> return () -- NOTE: timestamp is always in the second line |
70 | _ -> writeFile fname txt | 70 | _ -> removeFile fname >> writeFile fname txt |
71 | 71 | ||
72 | -- Haskell | 72 | -- Haskell |
73 | either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".hs") $ LText.unpack x) $ dataHs >>= (\t -> eitherRenderWith mylib t env) | 73 | either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".hs") $ LText.unpack x) $ dataHs >>= (\t -> eitherRenderWith mylib t env) |