= emptyResource {
resGet
= Just $ do setContentType $ parseMIMEType "text/plain"
- outputChunk "getRemoteCertificate = "
+ putChunk "getRemoteCertificate = "
cert ← do cert ← getRemoteCertificate
case cert of
Just c → liftIO $ Lazy.pack <$> printX509 c
Nothing → return "Nothing"
- outputChunk cert
+ putChunks cert
}
genCert ∷ KeyPair k ⇒ k → IO X509