fix build

diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs
index 97a4926a6dcd84fea1070d135a1f6ae842f385fc..4d46c69140ab62736d99c5ab08498941290668d2 100644 (file)
--- a/Utility/Tmp.hs
+++ b/Utility/Tmp.hs
@@ -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