Make response helpers API consistent (#79)

citizennet · Sep 29, 2017 · 8760334 · 8760334
1 parent f4599b2
commit 8760334
Show file tree

Hide file tree

Showing 4 changed files with 110 additions and 73 deletions.
diff --git a/docs/Examples/Middleware/Main.purs b/docs/Examples/Middleware/Main.purs
@@ -35,7 +35,7 @@ headerMiddleware :: forall e.
                     HTTPure.ResponseM e
 headerMiddleware router request = do
   response <- router request
-  HTTPure.response response.status (header <> response.headers) response.body
+  HTTPure.response' response.status (header <> response.headers) response.body
   where
     header = HTTPure.headers [ Tuple.Tuple "X-Middleware" "middleware" ]
 

diff --git a/src/HTTPure.purs b/src/HTTPure.purs
@@ -16,6 +16,7 @@ import HTTPure.Request (Request)
 import HTTPure.Response
   ( ResponseM
   , response, response'
+  , emptyResponse, emptyResponse'
 
   -- 1xx
   , continue, continue'