Todo stub and help for new command "spawn".

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
     forM_ report $ \(fname,act) -> do
         putStrLn $ fname ++ ": " ++ reportString act
 
+spawn :: CommonArgsParsed -> SymmetricAlgorithm -> FilePath -> IO ()
+spawn cmn cipher path = do
+    putStrLn "TODO: implement keygen.sh replacement.sh"
+
 importAndRefresh :: (FilePath -> FilePath) -> CommonArgsParsed -> SymmetricAlgorithm -> IO ()
 importAndRefresh root cmn cipher = do
   let rootdir = do guard (root "x" /= "x")