From fff84cca906ba819adf5658b2b25a72a940822a7 Mon Sep 17 00:00:00 2001 From: "Adam C. Baker" Date: Mon, 13 Oct 2014 16:51:21 -0700 Subject: [PATCH] rename reportPgErrors to clientErrors --- src/Middleware.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Middleware.hs b/src/Middleware.hs index 3a0604b7c..3997ecc15 100644 --- a/src/Middleware.hs +++ b/src/Middleware.hs @@ -68,8 +68,8 @@ instance ToJSON SqlError where ] ] -reportPgErrors :: Application -> Application -reportPgErrors app req respond = +clientErrors :: Application -> Application +clientErrors app req respond = catchJust isPgException (app req respond) ( respond . responseLBS status400 [(hContentType, "application/json")] . encode