From c27d9f909badb99d0c6d6edc7e5b0531b02e5575 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 10 Aug 2014 15:30:55 -0400 Subject: [PATCH] fix windows build --- Utility/Gpg.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index dfca827786..69a47c78fa 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -119,8 +119,8 @@ feedRead params passphrase feeder reader = do #else -- store the passphrase in a temp file for gpg withTmpFile "gpg" $ \tmpfile h -> do - hPutStr h passphrase - hClose h + liftIO $ hPutStr h passphrase + liftIO $ hClose h let passphrasefile = [Param "--passphrase-file", File tmpfile] go $ passphrasefile ++ params #endif