Debug print for "merge" command.

1 files changed, 1 insertions, 0 deletions

diff --git a/kiki.hs b/kiki.hs
index 087e24f..0be591d 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1280,6 +1280,7 @@ kiki "merge" args | "--help" `elem` args = do
     kiki "merge" []
     -- TODO: more help
 kiki "merge" args = do
+    hPutStrLn stderr $ show op
     KikiResult rt report <- runKeyRing op
     case rt of
       KikiSuccess rt -> return ()