diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-14 16:11:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-14 16:11:12 -0400 |
| commit | aa6f2e51254f21700f52b7042a5050596dca4f04 (patch) | |
| tree | 0828624d625cee09d4455935c342e5e563f6e40a | |
| parent | 8352a7169268eea5da20291a13ea4c28ed312430 (diff) | |
fix inplace mode
| -rw-r--r-- | Build/EvilSplicer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 2a1984ed6..f1ac315a7 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -181,7 +181,7 @@ applySplices destdir imports l@(first:_) = do lls <- map (++ "\n") . lines <$> readFileStrict f createDirectoryIfMissing True (parentDir dest) let newcontent = concat $ addimports $ expand lls l - oldcontent <- catchMaybeIO $ readFile dest + oldcontent <- catchMaybeIO $ readFileStrict dest when (oldcontent /= Just newcontent) $ writeFile dest newcontent where |