kiki init - now creates gnupg home directory path.

1 files changed, 2 insertions, 0 deletions

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 [] )