summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Kiki.hs16
1 files changed, 12 insertions, 4 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 7825c85..258892f 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -732,16 +732,24 @@ verifyFile isHomeless cap keyrings filename = do
732 Right sigs -> do 732 Right sigs -> do
733 let over = DataSignature lit sigs 733 let over = DataSignature lit sigs
734 lit = LiteralDataPacket 734 lit = LiteralDataPacket
735 { format = error "format" :: Char 735 { format = error "format" :: Char -- TODO
736 , filename = filename 736 , filename = filename
737 , timestamp = error "timestamp" :: Word32 737 , timestamp = error "timestamp" :: Word32 -- TODO
738 , content = bs 738 , content = txt
739 } 739 }
740 -- TODO: Remove this take 1 after optimizing 'candidateSignerKeys' 740 -- TODO: Remove this take 1 after optimizing 'candidateSignerKeys'
741 tentativeTake1 xs = take 1 xs 741 tentativeTake1 xs = take 1 xs
742 keys = concatMap (candidateSignerKeys (rtKeyDB rt)) $ tentativeTake1 sigs 742 keys = concatMap (candidateSignerKeys (rtKeyDB rt)) $ tentativeTake1 sigs
743 good = verify (Message keys) over 743 good = verify (Message keys) over
744 putStrLn $ "verifyFile: " ++ show (length $ signatures_over good) 744 putStrLn $ unwords
745 [ "verifyFile:"
746 , show (length $ signatures_over good)
747 , "good of"
748 , show (length $ signatures_over over)
749 , "signatures."
750 ]
751 -- when (null (signatures_over good)) $ do
752 -- L.putStrLn txt
745 rs -> do 753 rs -> do
746 hPutStrLn stderr $ show rs 754 hPutStrLn stderr $ show rs
747 _ -> do 755 _ -> do