diff --git a/src/HTTPure/Server.purs b/src/HTTPure/Server.purs index c1a4fc3..4e2f12c 100644 --- a/src/HTTPure/Server.purs +++ b/src/HTTPure/Server.purs @@ -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 ->