From fe2e3f5f6de170002e23df6979561b1a59ab6660 Mon Sep 17 00:00:00 2001
From: Ping Chen <remotenonsense@gmail.com>
Date: Sat, 27 Oct 2018 13:33:11 +0900
Subject: [PATCH] print out error message in onError500 (#125)

---
 src/HTTPure/Server.purs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/HTTPure/Server.purs b/src/HTTPure/Server.purs
index af54ae5..86b886e 100644
--- a/src/HTTPure/Server.purs
+++ b/src/HTTPure/Server.purs
@@ -10,7 +10,8 @@ import Prelude
 
 import Effect as Effect
 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.Options ((:=), Options)
 import Node.Encoding as Encoding
@@ -32,7 +33,10 @@ onError500 :: (Request.Request -> Response.ResponseM) ->
               Request.Request ->
               Response.ResponseM
 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
 -- | `ResponseM`, an HTTP `Request`, and an HTTP `Response`. It runs the