From 4425e2e44020239bbe227c0b499fdb2d902461bc Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Sat, 12 Nov 2016 13:48:34 +0100
Subject: delete file before overwrite it

---
 ddl/Generate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3