mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix inplace mode

Browse source
This commit is contained in:
Joey Hess 2013-04-14 16:11:12 -04:00
parent 83004de111
commit 2e94852994
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Build/EvilSplicer.hs
View file

@ -181,7 +181,7 @@ applySplices destdir imports l@(first:_) = do
lls <- map (++ "\n") . lines <$> readFileStrict f lls <- map (++ "\n") . lines <$> readFileStrict f
createDirectoryIfMissing True (parentDir dest) createDirectoryIfMissing True (parentDir dest)
let newcontent = concat $ addimports $ expand lls l let newcontent = concat $ addimports $ expand lls l
oldcontent <- catchMaybeIO $ readFile dest oldcontent <- catchMaybeIO $ readFileStrict dest
when (oldcontent /= Just newcontent) $ when (oldcontent /= Just newcontent) $
writeFile dest newcontent writeFile dest newcontent
where where