From 376de6fcce22aa19539c8842952795d760989ca9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Sep 2020 14:59:22 -0400 Subject: [PATCH] fix build --- Utility/Tmp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs index 97a4926a6d..4d46c69140 100644 --- 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