remove commented code
This commit is contained in:
parent
cb41a771c3
commit
a0ef8b36b3
1 changed files with 0 additions and 3 deletions
|
@ -40,9 +40,6 @@ certificateChecks :: [ [X509] -> IO TLSCertificateUsage ] -> [X509] -> IO TLSCer
|
|||
certificateChecks checks x509s = do
|
||||
r <- sequence $ map (\c -> c x509s) checks
|
||||
return $ maybe CertificateUsageAccept id $ find ((/=) CertificateUsageAccept) r
|
||||
--CertificateUsageAccept -> certificateChecks x509s cs
|
||||
--r -> return r
|
||||
|
||||
|
||||
#if defined(NOCERTVERIFY)
|
||||
|
||||
|
|
Loading…
Reference in a new issue