From 7764b1b8a3fd0df5bbd8c6742b85cfecc453c5cc Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Wed, 3 Jul 2019 16:30:58 -0400 Subject: remove unused functions --- lib/Kiki.hs | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'lib') 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)] } -- cgit v1.2.3