fix build

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

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
-- that don't support file modes well, so ignore
-- exceptions.)
void $ tryIO $ setFileMode tmpfile =<< defaultFileMode
_ <- liftIO $ tryIO $ setFileMode tmpfile =<< defaultFileMode
liftIO $ hClose h
a tmpfile content
liftIO $ rename tmpfile file