save restored secret key to gpg or file

1 files changed, 12 insertions, 0 deletions

diff --git a/Gpg.hs b/Gpg.hs
index cbb7991..f8651e3 100644
--- a/Gpg.hs
+++ b/Gpg.hs
@@ -55,3 +55,15 @@ getSecretKey (KeyId kid) = do
 		_ -> error "gpg --export-secret-key failed"
   where
 	ps = ["--batch", "--export-secret-key", BU8.toString kid]
+
+writeSecretKey :: SecretKey -> IO ()
+writeSecretKey (SecretKey b) = do
+	(Just hin, _, _, ph) <- createProcess (proc "gpg" ps)
+		{ std_in = CreatePipe }
+	B.hPut hin b
+	exitcode <- waitForProcess ph
+	case exitcode of
+		ExitSuccess -> return ()
+		_ -> error "gpg --import failed"
+  where
+	ps = ["--batch", "--import"]