git.iko.soy/typeable/servant
on master help sign in
raise InvalidBody when failing to decode the request body
7ca6b26Alp Mestanogullari
src/Servant/API/ReqBody.hs+1−1
compare with master
unifiedsplit
@@ -26,7 +26,7 @@ instance (FromJSON a, HasServer sublayout)
26 route Proxy subserver request respond = do
26 route Proxy subserver request respond = do
27 mrqbody <- decode' <$> lazyRequestBody request
27 mrqbody <- decode' <$> lazyRequestBody request
28 case mrqbody of
28 case mrqbody of
29− Nothing -> respond $ failWith NotFound
29+ Nothing -> respond $ failWith InvalidBody
30 Just v -> route (Proxy :: Proxy sublayout) (subserver v) request respond
30 Just v -> route (Proxy :: Proxy sublayout) (subserver v) request respond
31
31
32instance (ToJSON a, HasClient sublayout)
32instance (ToJSON a, HasClient sublayout)