Split out SecureServerM (#60)

docs/Examples/SSL/Main.purs

@@ -27,7 +27,7 @@ sayHello :: forall e. HTTPure.Request -> HTTPure.ResponseM e
 sayHello _ = pure $ HTTPure.OK StrMap.empty "hello world!"
 
 -- | Boot up the server
-main :: forall e. HTTPure.ServerM (console :: Console.CONSOLE | e)
+main :: forall e. HTTPure.SecureServerM (console :: Console.CONSOLE | e)
 main = HTTPure.serve' port cert key sayHello do
   Console.log $ " ┌───────────────────────────────────────────┐"
   Console.log $ " │ Server now up on port " <> portS <> "                │"

src/HTTPure.purs

@@ -8,4 +8,4 @@ module HTTPure
 import HTTPure.Headers (Headers, lookup)
 import HTTPure.Request (Request(..))
 import HTTPure.Response (ResponseM, Response(..))
-import HTTPure.Server (ServerM, serve, serve')
+import HTTPure.Server (SecureServerM, ServerM, serve, serve')

src/HTTPure/HTTPureM.purs

@@ -6,7 +6,6 @@ module HTTPure.HTTPureM
 import Control.Monad.Eff as Eff
 import Control.Monad.Eff.Exception as Exception
 import Control.Monad.ST as ST
-import Node.FS as FS
 import Node.HTTP as HTTP
 
 -- | A row of types that are used by an HTTPure server.
@@ -14,7 +13,6 @@ type HTTPureEffects e =
   ( http :: HTTP.HTTP
   , st :: ST.ST String
   , exception :: Exception.EXCEPTION
-  , fs :: FS.FS
   | e
   )
 

src/HTTPure/Server.purs

@@ -1,5 +1,6 @@
 module HTTPure.Server
   ( ServerM
+  , SecureServerM
   , serve
   , serve'
   ) where
@@ -11,6 +12,7 @@ import Control.Monad.Eff.Class as EffClass
 import Data.Maybe as Maybe
 import Data.Options ((:=))
 import Node.Encoding as Encoding
+import Node.FS as FS
 import Node.FS.Sync as FSSync
 import Node.HTTP as HTTP
 import Node.HTTP.Secure as HTTPS
@@ -24,6 +26,10 @@ import HTTPure.Response as Response
 -- | related methods.
 type ServerM e = HTTPureM.HTTPureM e Unit
 
+-- | The SecureServerM type is the same as the ServerM type, but it includes
+-- | effects for working with the filesystem (to load the key and certificate).
+type SecureServerM e = ServerM (fs :: FS.FS | e)
+
 -- | This function takes a method which takes a request and returns a ResponseM,
 -- | an HTTP request, and an HTTP response. It runs the request, extracts the
 -- | Response from the ResponseM, and sends the Response to the HTTP Response.
@@ -57,9 +63,9 @@ bootHTTPS :: forall e.
              HTTP.ListenOptions ->
              String ->
              String ->
-             (Request.Request -> Response.ResponseM  e) ->
-             ServerM e ->
-             ServerM e
+             (Request.Request -> Response.ResponseM  (fs :: FS.FS | e)) ->
+             SecureServerM e ->
+             SecureServerM e
 bootHTTPS options cert key router onStarted = do
   cert' <- FSSync.readTextFile Encoding.UTF8 cert
   key' <- FSSync.readTextFile Encoding.UTF8 key
@@ -100,7 +106,7 @@ serve' :: forall e.
           Int ->
           String ->
           String ->
-          (Request.Request -> Response.ResponseM e) ->
-          ServerM e ->
-          ServerM e
+          (Request.Request -> Response.ResponseM (fs :: FS.FS | e)) ->
+          SecureServerM e ->
+          SecureServerM e
 serve' = bootHTTPS <<< listenOptions