More merging of 0bc53f99cfd70f3a18802604d7ef3174d004db4c.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 27ebbcd..828a251 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -45,7 +45,7 @@ import qualified SSHKey                     as SSH
 import           CommandLine
 import           DotLock
 import           GnuPGAgent                 (Query (..))
-import           KeyRing
+import           KeyRing hiding (pemFromPacket)
 
 withAgent :: [PassphraseSpec] -> [PassphraseSpec]
 withAgent [] = [PassphraseAgent]
@@ -171,7 +171,7 @@ importAndRefresh root cmn cipher = do
 
     let passfd = cap_passfd cmn
 
-    (torgen,pwds) <- bool id (const $ return (Generate 0 $ GenRSA $ 1024 `div` 8, [])) $ do
+    (torgen,pwds) <- bool id (const $ return (Generate 0 $ GenRSA $ 1024 `div` 8, [])) gotsec $ do
         {-  ssh-keygen to create master key...
         let mkpath = home ++ "/master-key"
         mkdirFor mkpath