Fix docs again

This commit is contained in:
Connor Prussin 2018-02-08 22:04:12 -08:00
parent 6d78a1b5fb
commit 2649dce1b1
No known key found for this signature in database
GPG Key ID: C72452E036D53A6A

View File

@ -59,9 +59,10 @@ serve' options router onStarted =
HTTP.createServer (handleRequest router) >>= \server ->
HTTP.listen server options onStarted
-- | Given a `ListenOptions` object and a `HTTP.ListenOptions` object, a
-- | function mapping `Request` to `ResponseM`, and a `SecureServerM` containing
-- | effects to run on boot, creates and runs a HTTPure server with SSL.
-- | Given a `Options HTTPS.SSLOptions` object and a `HTTP.ListenOptions`
-- | object, a function mapping `Request` to `ResponseM`, and a `SecureServerM`
-- | containing effects to run on boot, creates and runs a HTTPure server with
-- | SSL.
serveSecure' :: forall e.
Options HTTPS.SSLOptions ->
HTTP.ListenOptions ->