@@ -145,8 +145,8 @@ defaultOnExceptionResponse e
145145 | Just (_ :: InvalidRequest) <- fromException e = responseLBS H.badRequest400 [(H.hContentType, "text/plain; charset=utf-8")] "Bad Request"
146146 | otherwise = responseLBS H.internalServerError500 [(H.hContentType, "text/plain; charset=utf-8")] "Something went wrong"
147147
148−-- | Default implementation of 'settingsOnExceptionResponse'
149−-- for the debugging purpose. 500, text/plain, a showed exception.
148+-- | Exception handler for the debugging purpose.
149+-- 500, text/plain, a showed exception.
150150exceptionResponseForDebug :: SomeException -> Response
151151exceptionResponseForDebug e = responseLBS H.internalServerError500 [(H.hContentType, "text/plain; charset=utf-8")] (TLE.encodeUtf8 $ TL.pack $ "Exception: " ++ show e)
152152