thunderstrike/purescript-httpurple
thunderstrike/purescript-httpurple
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

print out error message in onError500 (#125)

Browse Source
This commit is contained in:
Ping Chen 2018-10-27 13:33:11 +09:00 committed by Connor Prussin
parent d333c6f6b3
commit fe2e3f5f6d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/HTTPure/Server.purs
View File

@ -10,7 +10,8 @@ import Prelude
import Effect as Effect import Effect as Effect
import Effect.Aff as Aff import Effect.Aff as Aff
import Control.Alt ((<|>)) import Effect.Class as EffectClass
import Effect.Console as Console
import Data.Maybe as Maybe import Data.Maybe as Maybe
import Data.Options ((:=), Options) import Data.Options ((:=), Options)
import Node.Encoding as Encoding import Node.Encoding as Encoding
@ -32,7 +33,10 @@ onError500 :: (Request.Request -> Response.ResponseM) ->
Request.Request -> Request.Request ->
Response.ResponseM Response.ResponseM
onError500 router request = onError500 router request =
router request <|> Response.internalServerError "" Aff.catchError (router request) \err -> do
EffectClass.liftEffect $ Console.error $ Aff.message err
Response.internalServerError "Internal server error"
-- | This function takes a method which takes a `Request` and returns a -- | This function takes a method which takes a `Request` and returns a
-- | `ResponseM`, an HTTP `Request`, and an HTTP `Response`. It runs the -- | `ResponseM`, an HTTP `Request`, and an HTTP `Response`. It runs the