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

fix build

Browse source
This commit is contained in:
Joey Hess 2020-09-02 14:59:22 -04:00
parent 22a7f14e7b
commit 376de6fcce
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/Tmp.hs
View file

@ -52,7 +52,7 @@ viaTmp a file content = bracketIO setup cleanup use
-- not as a temp file. (This may fail on some filesystems -- not as a temp file. (This may fail on some filesystems
-- that don't support file modes well, so ignore -- that don't support file modes well, so ignore
-- exceptions.) -- exceptions.)
void $ tryIO $ setFileMode tmpfile =<< defaultFileMode _ <- liftIO $ tryIO $ setFileMode tmpfile =<< defaultFileMode
liftIO $ hClose h liftIO $ hClose h
a tmpfile content a tmpfile content
liftIO $ rename tmpfile file liftIO $ rename tmpfile file