Fix docs
This commit is contained in:
parent
dfe759bf62
commit
b6f85c36ae
@ -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 ->
|
||||
|
Loading…
Reference in New Issue
Block a user