From f0728e2a4ab342addf589fab180835843d1bb060 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Aug 2014 15:30:55 -0400
Subject: fix windows build

---
 Utility/Gpg.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Utility')

diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs
index dfca82778..69a47c78f 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
-- 
cgit v1.2.3