git.iko.soy/servant
on master help sign in
Merge pull request #31 from haskell-servant/wip-incorrect-error

Change JSON-specific error message to a more general one

commit947815e6d313255c4bb17e3abe09780a8cdc18ea authorAlp Mestanogullari <alpmestan@gmail.com> dateThu 5 Mar 2015, 18:56 (12 years ago) parentb24822a0be89b4
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)) =