Remove PayloadParseError matcher from main app case since now we validate the request before building an ApiRequest.

This commit is contained in:
Diogo Biazus
2016-11-27 23:54:48 -05:00
parent b8ddc30252
commit 6a02d9efd5
-4
View File
@@ -240,10 +240,6 @@ app dbStructure conf apiRequest =
body <- encodeApi . toTableInfo <$> H.query schema accessibleTables
return $ responseLBS status200 [toHeader CTOpenAPI] $ toS body
(_, _, Just (PayloadParseError e)) ->
return $ errResponse status400 $
toS (formatGeneralError "Cannot parse request payload" (toS e))
_ -> return notFound
where