fixed error and action reporting

1 files changed, 3 insertions, 3 deletions

diff --git a/kiki.hs b/kiki.hs
index cf3b453..9bfbd2d 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -750,10 +750,10 @@ main = do
                 shargs = mapMaybe (\(x:xs) -> (,xs) <$> Map.lookup x shspec) sargs
 
             forM_ shargs $ \(cmd,args) -> cmd args (rtKeyDB rt)
-      e -> print (void e)--(fmap (const ()) e)
+      e -> putStrLn $ errorString e
 
-    print report
-    return()
+    forM_ report $ \(fname,act) -> do
+        putStrLn $ fname ++ ": " ++ reportString act
  where
 
     doAutosign rt kd@(KeyData k ksigs umap submap) = ops