@@ -568,10 +568,10 @@ instance Default HttpConfig where
568 , httpConfigAltManager = Nothing
568 , httpConfigAltManager = Nothing
569 , httpConfigCheckResponse = \_ response ->
569 , httpConfigCheckResponse = \_ response ->
570 let statusCode = responseStatusCode response in
570 let statusCode = responseStatusCode response in
571− unless (200 <= statusCode && statusCode < 300) $ do
571+ unless (200 <= statusCode && statusCode < 300) $
572 let chunk = makeResponseBodyPreview response
572 let chunk = makeResponseBodyPreview response
573 vresponse = toVanillaResponse response
573 vresponse = toVanillaResponse response
574− LI.throwHttp (L.StatusCodeException (void vresponse) chunk)
574+ in LI.throwHttp (L.StatusCodeException (void vresponse) chunk)
575 , httpConfigRetryPolicy = def
575 , httpConfigRetryPolicy = def
576 , httpConfigRetryJudge = \_ r -> return $
576 , httpConfigRetryJudge = \_ r -> return $
577 responseStatusCode r `elem`
577 responseStatusCode r `elem`