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
+    forM_ report $ \(fname,act) -> do
-    return()
+        putStrLn $ fname ++ ": " ++ reportString act
 where
    doAutosign rt kd@(KeyData k ksigs umap submap) = ops

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