This commit is contained in:
Connor Prussin 2018-02-08 21:57:37 -08:00
parent dfe759bf62
commit b6f85c36ae
No known key found for this signature in database
GPG Key ID: C72452E036D53A6A

View File

@ -59,10 +59,9 @@ serve' options router onStarted =
HTTP.createServer (handleRequest router) >>= \server ->
HTTP.listen server options onStarted
-- | Given a `ListenOptions` object, a path to a cert file, a path to a private
-- | key file, 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 `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.
serveSecure' :: forall e.
Options HTTPS.SSLOptions ->
HTTP.ListenOptions ->