eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

raise InvalidBody when failing to decode the request body

Browse source
This commit is contained in:
Alp Mestanogullari 2014-10-28 16:52:30 +01:00
parent 9ade9a43f3
commit 7ca6b26b78
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Servant/API/ReqBody.hs
View file

@ -26,7 +26,7 @@ instance (FromJSON a, HasServer sublayout)
route Proxy subserver request respond = do route Proxy subserver request respond = do
mrqbody <- decode' <$> lazyRequestBody request mrqbody <- decode' <$> lazyRequestBody request
case mrqbody of case mrqbody of
Nothing -> respond $ failWith NotFound Nothing -> respond $ failWith InvalidBody
Just v -> route (Proxy :: Proxy sublayout) (subserver v) request respond Just v -> route (Proxy :: Proxy sublayout) (subserver v) request respond
instance (ToJSON a, HasClient sublayout) instance (ToJSON a, HasClient sublayout)