git.iko.soy/servant
on master help sign in
Change JSON-specific error message to a more general one
0be89b4Christian Marie
src/Servant/Server/Internal.hs+1−1
compare with master
unifiedsplit
@@ -71,7 +71,7 @@ toApplication ra request respond = do
71 routingRespond (Left WrongMethod) =
71 routingRespond (Left WrongMethod) =
72 respond $ responseLBS methodNotAllowed405 [] "method not allowed"
72 respond $ responseLBS methodNotAllowed405 [] "method not allowed"
73 routingRespond (Left (InvalidBody err)) =
73 routingRespond (Left (InvalidBody err)) =
74− respond $ responseLBS badRequest400 [] $ fromString $ "Invalid JSON in request body: " ++ err
74+ respond $ responseLBS badRequest400 [] $ fromString $ "invalid request body: " ++ err
75 routingRespond (Left UnsupportedMediaType) =
75 routingRespond (Left UnsupportedMediaType) =
76 respond $ responseLBS unsupportedMediaType415 [] "unsupported media type"
76 respond $ responseLBS unsupportedMediaType415 [] "unsupported media type"
77 routingRespond (Left (HttpError status body)) =
77 routingRespond (Left (HttpError status body)) =