more debug print tweeks

1 files changed, 7 insertions, 4 deletions

diff --git a/validatecert.hs b/validatecert.hs
index efbf84a..1871b24 100644
--- a/validatecert.hs
+++ b/validatecert.hs
@@ -115,12 +115,15 @@ main = do
             wlog $ "ParseError on \"" <> toS request <> "\"\n"
         when debug $ do
             wlog $ "Parse result:\n"
-            wlog $ "\tFOUND host:" <> vrHostname req <> "\n"
-            let estr = S.intercalate " , " $ map showe $ Map.elems $ vrErrors req
+            wlog $ "\tHOST: " <> vrHostname req <> "\n"
+            maybe (return ())
+                  (\certid -> wlog $ "\tCERT: " <> certid <> "\n")
+                  $ vrPeerCertId req
+            let estr = S.intercalate "," $ map showe $ Map.elems $ vrErrors req
                 showe e = veName e <> "/" <> veCert e
-            wlog $ "\tFOUND ERRORS:" <> estr <> "\n"
+            wlog $ "\tERRORS: " <> estr <> "\n"
             forM_ (Map.toList $ vrCerts req) $ \(key,cert) -> do
-                wlog $ "\tFOUND cert " <> key <> ": " <> certSubject cert <> "\n"
+                wlog $ "\tCHAIN " <> key <> ": " <> certSubject cert <> "\n"
         let responseErrors = fmap (\ve -> ve { veReason = "Checked by validatecert.hs" }) $ vrErrors req
             response0 = createResponse req responseErrors
             len = bshow $ S.length response0