diff options
Diffstat (limited to 'Utility/Gpg.hs')
-rw-r--r-- | Utility/Gpg.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index 923f6d5be..8d25272d3 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -64,7 +64,7 @@ passphraseHandle :: [CommandParam] -> String -> IO L.ByteString -> (Handle -> IO passphraseHandle params passphrase a b = do -- pipe the passphrase into gpg on a fd (frompipe, topipe) <- createPipe - _ <- forkIO $ do + void $ forkIO $ do toh <- fdToHandle topipe hPutStrLn toh passphrase hClose toh @@ -76,8 +76,9 @@ passphraseHandle params passphrase a b = do withBothHandles createProcessSuccess (proc "gpg" params') go where go (to, from) = do - L.hPut to =<< a - hClose to + void $ forkIO $ do + L.hPut to =<< a + hClose to b from {- Finds gpg public keys matching some string. (Could be an email address, |