yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove commented code

Browse source
This commit is contained in:
Vincent Hanquez 2011-05-31 21:36:38 +01:00
parent cb41a771c3
commit a0ef8b36b3
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Network/TLS/Extra/Certificate.hs
View file

@ -40,9 +40,6 @@ certificateChecks :: [ [X509] -> IO TLSCertificateUsage ] -> [X509] -> IO TLSCer
certificateChecks checks x509s = do certificateChecks checks x509s = do
r <- sequence $ map (\c -> c x509s) checks r <- sequence $ map (\c -> c x509s) checks
return $ maybe CertificateUsageAccept id $ find ((/=) CertificateUsageAccept) r return $ maybe CertificateUsageAccept id $ find ((/=) CertificateUsageAccept) r
--CertificateUsageAccept -> certificateChecks x509s cs
--r -> return r
#if defined(NOCERTVERIFY) #if defined(NOCERTVERIFY)