fix inplace mode

This commit is contained in:
Joey Hess 2013-04-14 16:11:12 -04:00
parent 83004de111
commit 2e94852994

View file

@ -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