fix deadlock

1 files changed, 2 insertions, 0 deletions

diff --git a/Gpg.hs b/Gpg.hs
index f8651e3..de45c45 100644
--- a/Gpg.hs
+++ b/Gpg.hs
@@ -12,6 +12,7 @@ import UI
 import System.Process
 import Data.List.Split
 import Data.Maybe
+import System.IO
 import System.Exit
 import qualified Data.ByteString as B
 import qualified Data.ByteString.UTF8 as BU8
@@ -61,6 +62,7 @@ writeSecretKey (SecretKey b) = do
 	(Just hin, _, _, ph) <- createProcess (proc "gpg" ps)
 		{ std_in = CreatePipe }
 	B.hPut hin b
+	hClose hin
 	exitcode <- waitForProcess ph
 	case exitcode of
 		ExitSuccess -> return ()