From 0be89b4f3da56164ac7e8b7a46568ae17e256bc2 Mon Sep 17 00:00:00 2001
From: Christian Marie <christian@ponies.io>
Date: Thu, 5 Mar 2015 12:11:20 +1100
Subject: [PATCH] Change JSON-specific error message to a more general one

---
 src/Servant/Server/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Servant/Server/Internal.hs b/src/Servant/Server/Internal.hs
index edee67e4..159560fa 100644
--- a/src/Servant/Server/Internal.hs
+++ b/src/Servant/Server/Internal.hs
@@ -71,7 +71,7 @@ toApplication ra request respond = do
   routingRespond (Left WrongMethod) =
     respond $ responseLBS methodNotAllowed405 [] "method not allowed"
   routingRespond (Left (InvalidBody err)) =
-    respond $ responseLBS badRequest400 [] $ fromString $ "Invalid JSON in request body: " ++ err
+    respond $ responseLBS badRequest400 [] $ fromString $ "invalid request body: " ++ err
   routingRespond (Left UnsupportedMediaType) =
     respond $ responseLBS unsupportedMediaType415 [] "unsupported media type"
   routingRespond (Left (HttpError status body)) =