generalized safeWriteFile to viaTmp
This commit is contained in:
parent
d72fb5acc2
commit
2cda9d0a0f
4 changed files with 9 additions and 8 deletions
|
@ -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]
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue