summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-07-02 23:56:37 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-03 00:03:04 -0400
commit23ae3589be6273b9fe7b0925a2b290e0e48f38d6 (patch)
tree37d649b3fe16e0ac54c6291f24211e7e7c742f39 /lib/Kiki.hs
parente0bfb091bafa1c9fde9f3f87404115ac5219da5d (diff)
Todo stub and help for new command "spawn".
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r--lib/Kiki.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 6481b58..5201dac 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -148,6 +148,10 @@ outputReport report = do
148 forM_ report $ \(fname,act) -> do 148 forM_ report $ \(fname,act) -> do
149 putStrLn $ fname ++ ": " ++ reportString act 149 putStrLn $ fname ++ ": " ++ reportString act
150 150
151spawn :: CommonArgsParsed -> SymmetricAlgorithm -> FilePath -> IO ()
152spawn cmn cipher path = do
153 putStrLn "TODO: implement keygen.sh replacement.sh"
154
151importAndRefresh :: (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO () 155importAndRefresh :: (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO ()
152importAndRefresh root cmn cipher = do 156importAndRefresh root cmn cipher = do
153 let rootdir = do guard (root "x" /= "x") 157 let rootdir = do guard (root "x" /= "x")