From 769609c28931b01f9c2bdc8740b7553938775e43 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 25 Apr 2016 22:14:00 -0400
Subject: kiki init - now creates gnupg home directory path.

---
 kiki.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kiki.hs')

diff --git a/kiki.hs b/kiki.hs
index e10c2a8..6b197c0 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1465,12 +1465,14 @@ kiki "init" args = do
                         ( encode $ Message [mk { is_subkey = False }] )
         -}
         master <- (\k -> k { is_subkey = False }) <$> generateKey (GenRSA $ 4096 `div` 8 )
+        mkdirFor secring
         writeInputFileL (InputFileContext secring pubring)
                         HomeSec
                         $ encode $ Message [master { is_subkey = False}]
 
     gotpub <- doesFileExist pubring
     when (not gotpub) $ do
+        mkdirFor pubring
         writeInputFileL (InputFileContext secring pubring)
                         HomePub
                         ( encode $ Message [] )
-- 
cgit v1.2.3