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
                        oldTxt <- readFile fname
                        case (lines oldTxt, lines txt) of
                          (_ : oldTime : old, _ : newTime : new) | old == new -> return () -- NOTE: timestamp is always in the second line
-                          _ -> writeFile fname txt
+                          _ -> removeFile fname >> writeFile fname txt
        -- Haskell
        either error (\x -> writeFileIfDiffer ("out/" ++ name ++ ".hs") $ LText.unpack x) $ dataHs >>= (\t -> eitherRenderWith mylib t env)

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)