diff options
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1465,12 +1465,14 @@ kiki "init" args = do | |||
1465 | ( encode $ Message [mk { is_subkey = False }] ) | 1465 | ( encode $ Message [mk { is_subkey = False }] ) |
1466 | -} | 1466 | -} |
1467 | master <- (\k -> k { is_subkey = False }) <$> generateKey (GenRSA $ 4096 `div` 8 ) | 1467 | master <- (\k -> k { is_subkey = False }) <$> generateKey (GenRSA $ 4096 `div` 8 ) |
1468 | mkdirFor secring | ||
1468 | writeInputFileL (InputFileContext secring pubring) | 1469 | writeInputFileL (InputFileContext secring pubring) |
1469 | HomeSec | 1470 | HomeSec |
1470 | $ encode $ Message [master { is_subkey = False}] | 1471 | $ encode $ Message [master { is_subkey = False}] |
1471 | 1472 | ||
1472 | gotpub <- doesFileExist pubring | 1473 | gotpub <- doesFileExist pubring |
1473 | when (not gotpub) $ do | 1474 | when (not gotpub) $ do |
1475 | mkdirFor pubring | ||
1474 | writeInputFileL (InputFileContext secring pubring) | 1476 | writeInputFileL (InputFileContext secring pubring) |
1475 | HomePub | 1477 | HomePub |
1476 | ( encode $ Message [] ) | 1478 | ( encode $ Message [] ) |