@@ -568,10 +568,10 @@ instance Default HttpConfig where
568568 , httpConfigAltManager = Nothing
569569 , httpConfigCheckResponse = \_ response ->
570570 let statusCode = responseStatusCode response in
571− unless (200 <= statusCode && statusCode < 300) $ do
571+ unless (200 <= statusCode && statusCode < 300) $
572572 let chunk = makeResponseBodyPreview response
573573 vresponse = toVanillaResponse response
574− LI.throwHttp (L.StatusCodeException (void vresponse) chunk)
574+ in LI.throwHttp (L.StatusCodeException (void vresponse) chunk)
575575 , httpConfigRetryPolicy = def
576576 , httpConfigRetryJudge = \_ r -> return $
577577 responseStatusCode r `elem`