rename reportPgErrors to clientErrors

2014-10-13 16:51:21 -07:00
parent dcdca445b5
commit fff84cca90
1 changed files with 2 additions and 2 deletions
@@ -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