git.iko.soy/servant
on master help sign in
Change JSON-specific error message to a more general one
commit0be89b4f3da56164ac7e8b7a46568ae17e256bc2 authorChristian Marie <christian@ponies.io> dateThu 5 Mar 2015, 12:11 (12 years ago) parentb24822a
1 file changed+1−1
compare with master
unifiedsplit
src/Servant/Server/Internal.hs+1−1
src/Servant/Server/Internal.hs+1−1
@@ -71,7 +71,7 @@ toApplication ra request respond = do
7171 routingRespond (Left WrongMethod) =
7272 respond $ responseLBS methodNotAllowed405 [] "method not allowed"
7373 routingRespond (Left (InvalidBody err)) =
74− respond $ responseLBS badRequest400 [] $ fromString $ "Invalid JSON in request body: " ++ err
74+ respond $ responseLBS badRequest400 [] $ fromString $ "invalid request body: " ++ err
7575 routingRespond (Left UnsupportedMediaType) =
7676 respond $ responseLBS unsupportedMediaType415 [] "unsupported media type"
7777 routingRespond (Left (HttpError status body)) =