diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -659,6 +659,9 @@ kiki_usage bExport bImport bSecret cmd = putStr $ | |||
659 | [" --help" | 659 | [" --help" |
660 | ," Gives usage information" | 660 | ," Gives usage information" |
661 | ,"" | 661 | ,"" |
662 | ," --trace-verify" | ||
663 | ," For debugging, stderr traces for every signature verification." | ||
664 | ,"" | ||
662 | ] ++ documentHomeDir ++ [""] | 665 | ] ++ documentHomeDir ++ [""] |
663 | ++ documentPassphraseFDFlag bExport bImport bSecret | 666 | ++ documentPassphraseFDFlag bExport bImport bSecret |
664 | showwk :: [String] | 667 | showwk :: [String] |
@@ -1745,7 +1748,11 @@ commands = | |||
1745 | main :: IO () | 1748 | main :: IO () |
1746 | main = do | 1749 | main = do |
1747 | dotlock_init | 1750 | dotlock_init |
1748 | args_raw <- getArgs | 1751 | args_raw0 <- getArgs |
1752 | args_raw <- case break (=="--trace-verify") args_raw0 of | ||
1753 | (as,[]) -> return as | ||
1754 | (as,_:bs) -> do setVerifyFlag True | ||
1755 | return $ as ++ bs | ||
1749 | case args_raw of | 1756 | case args_raw of |
1750 | 1757 | ||
1751 | [] -> kiki "show" ["--working"] | 1758 | [] -> kiki "show" ["--working"] |