git.iko.soy/servant
on master help sign in
Check for correct content-type in result.
e6e67b2Timo von Holtz
src/Servant/Common/Req.hs+3−1
compare with master
unifiedsplit
@@ -142,7 +142,9 @@ performRequest reqMethod req isWantedStatus reqHost = do
142performRequestJSON :: FromJSON result =>
142performRequestJSON :: FromJSON result =>
143 Method -> Req -> Int -> BaseUrl -> EitherT String IO result
143 Method -> Req -> Int -> BaseUrl -> EitherT String IO result
144performRequestJSON reqMethod req wantedStatus reqHost = do
144performRequestJSON reqMethod req wantedStatus reqHost = do
145− (_status, respBody, _) <- performRequest reqMethod req (== wantedStatus) reqHost
145+ (_status, respBody, contentType) <- performRequest reqMethod req (== wantedStatus) reqHost
146+ unless (matches contentType ("application"//"json")) $
147+ left $ "requested Content-Type application/json, but got " <> show contentType
146 either
148 either
147 (\ message -> left (displayHttpRequest reqMethod ++ " returned invalid json: " ++ message))
149 (\ message -> left (displayHttpRequest reqMethod ++ " returned invalid json: " ++ message))
148 return
150 return