A longstanding GnuTLS certificate validation botch
A longstanding GnuTLS certificate validation botch
Posted Mar 6, 2014 1:49 UTC (Thu) by nybble41 (subscriber, #55106)In reply to: A longstanding GnuTLS certificate validation botch by mathstuf
Parent article: A longstanding GnuTLS certificate validation botch
That version of sslCheck will concatenate the error strings together end-to-end if multiple checks fail (Just "First ErrorSecond Error"). Did you intend something like this, which returns a list of errors?
sslCheck :: CertChain -> Cert -> Reader SslContext [String]
sslCheck chain cert = liftM catMaybes $ sequence $ sslChecks <*> pure chain <*> pure cert
A longstanding GnuTLS certificate validation botch
Posted Mar 6, 2014 2:00 UTC (Thu)
by mathstuf (subscriber, #69389)
[Link]
Posted Mar 6, 2014 2:00 UTC (Thu) by mathstuf (subscriber, #69389) [Link]
That looks much better. I haven't done much Applicative work (which is how I tried it first) and missed the 'pure'. The original idea was to get just the first error message, but why not all :) .