From c4eb57db255580737ed9f75ffcbbc4db7e4b073f Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 19 May 2014 14:38:42 -0400 Subject: more debug print tweeks --- validatecert.hs | 11 +++++++---- 1 file 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 -- cgit v1.2.3