generalized safeWriteFile to viaTmp

This commit is contained in:
Joey Hess 2011-06-30 00:42:09 -04:00
parent d72fb5acc2
commit 2cda9d0a0f
4 changed files with 9 additions and 8 deletions

View file

@ -128,7 +128,7 @@ gitAttributesUnWrite repo = do
let attributes = Git.attributes repo
whenM (doesFileExist attributes) $ do
c <- readFileStrict attributes
liftIO $ safeWriteFile attributes $ unlines $
liftIO $ viaTmp writeFile attributes $ unlines $
filter (\l -> not $ l `elem` attrLines) $ lines c
Git.run repo "add" [File attributes]