diff options
Diffstat (limited to 'Gpg.hs')
-rw-r--r-- | Gpg.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 () |