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
                     Right sigs -> do
                         let over = DataSignature lit sigs
                             lit = LiteralDataPacket
-                                    { format    = error "format" :: Char
+                                    { format    = error "format" :: Char -- TODO
                                     , filename  = filename
-                                    , timestamp = error "timestamp" :: Word32
-                                    , content   = bs
+                                    , timestamp = error "timestamp" :: Word32 -- TODO
+                                    , content   = txt
                                     }
                             -- TODO: Remove this take 1 after optimizing 'candidateSignerKeys'
                             tentativeTake1 xs = take 1 xs
                             keys = concatMap (candidateSignerKeys (rtKeyDB rt)) $ tentativeTake1 sigs
                             good = verify (Message keys) over
-                        putStrLn $ "verifyFile: " ++ show (length $ signatures_over good)
+                        putStrLn $ unwords
+                            [ "verifyFile:"
+                            , show (length $ signatures_over good)
+                            , "good of"
+                            , show (length $ signatures_over over)
+                            , "signatures."
+                            ]
+                        -- when (null (signatures_over good)) $ do
+                        --    L.putStrLn txt
                     rs -> do
                         hPutStrLn stderr $ show rs
             _ -> do