@@ -211,11 +211,17 @@ errorRetrySpec =
212 it "should continue when URLs don't match" $ do
212 it "should continue when URLs don't match" $ do
213 request methodPost "" [jsonCT, jsonAccept] jsonBody
213 request methodPost "" [jsonCT, jsonAccept] jsonBody
214− `shouldRespondWith` 200 { matchBody = Just $ encode (8 :: Int) }
214+ `shouldRespondWith` 200 { matchBody = mkBody $ encode (8 :: Int) }
216 it "should continue when methods don't match" $ do
216 it "should continue when methods don't match" $ do
217 request methodGet "a" [jsonCT, jsonAccept] jsonBody
217 request methodGet "a" [jsonCT, jsonAccept] jsonBody
218− `shouldRespondWith` 200 { matchBody = Just $ encode (4 :: Int) }
218+ `shouldRespondWith` 200 { matchBody = mkBody $ encode (4 :: Int) }
220+ mkBody b = MatchBody $ \_ b' ->
223+ else Just "body not correct\n"
221------------------------------------------------------------------------------
227------------------------------------------------------------------------------