remove unused functions

1 files changed, 5 insertions, 10 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index d2da996..af62a97 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -150,6 +150,11 @@ spawn :: CommonArgsParsed -> SymmetricAlgorithm -> FilePath -> IO ()
 spawn cmn cipher path = do
     putStrLn "TODO: implement keygen.sh replacement.sh"
 
+mkdirFor :: FilePath -> IO ()
+mkdirFor path = do
+    let dir = takeDirectory path
+    createDirectoryIfMissing True dir
+
 importAndRefresh :: (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO ()
 importAndRefresh root cmn cipher = do
   let rootdir = do guard (root "x" /= "x")
@@ -160,14 +165,6 @@ importAndRefresh root cmn cipher = do
   bool id (error "--chroot requires an argument") (rootdir==Just "") $ do
     let homespec = mplus (slash <$> rootdir <*> cap_homespec cmn)
                          (fmap (++"/root/.gnupg") rootdir)
-        sshkeygen size = Just $ concat [ "mkdir -p \"$(dirname $file)\" && "
-                                       , "ssh-keygen -P \"\" -q -f $file -b "
-                                       , show size ]
-        mkdirFor path = do
-            let dir = takeDirectory path
-            -- putStrLn $ "mkdirFor " ++ show dir
-            createDirectoryIfMissing True dir
-        -- ssl = Just "mkdir -p \"$(dirname $file)\" && openssl genrsa -out $file 1024"
     (home,secring,pubring,mbwk) <- unconditionally $ getHomeDir homespec
     osHomeDir <- if bUnprivileged then getHomeDirectory else return "/root"
 
@@ -482,8 +479,6 @@ refreshCache rt rootdir = do
     flip (maybe $ warn "missing working key?") (rtWorkingKey rt) $ \wk -> do
 
     let grip = fingerprint wk
-        wkkd = rtKeyDB rt Map.! keykey wk
-        getSecret tag = sortOn (Down . timestamp) $ getSubkeys Unsigned wk (keySubKeys wkkd) tag
         exportOp = passphrases <> pemSecrets <> minimalOp (CommonArgsParsed (Just $ takeDirectory $ rtPubring rt) Nothing)
          where
           passphrases = mempty { opPassphrases = [PassphraseMemoizer (rtPassphrases rt)] }