diff options
author | joe <joe@jerkface.net> | 2016-04-23 19:35:32 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-04-23 19:35:32 -0400 |
commit | a5ce5539520f63d83624388b0f2ac92bc195b002 (patch) | |
tree | e5524db5cb66078e13b63f79df9081dce33a4080 /kiki.hs | |
parent | ce932bd1a8fcd9e3444772beeb1b9dcdd2696b70 (diff) |
Debug print for "merge" command.
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1280,6 +1280,7 @@ kiki "merge" args | "--help" `elem` args = do | |||
1280 | kiki "merge" [] | 1280 | kiki "merge" [] |
1281 | -- TODO: more help | 1281 | -- TODO: more help |
1282 | kiki "merge" args = do | 1282 | kiki "merge" args = do |
1283 | hPutStrLn stderr $ show op | ||
1283 | KikiResult rt report <- runKeyRing op | 1284 | KikiResult rt report <- runKeyRing op |
1284 | case rt of | 1285 | case rt of |
1285 | KikiSuccess rt -> return () | 1286 | KikiSuccess rt -> return () |