S3: deal with bucket redirects a bit more gracefully

aristidb · May 2, 2015 · e3cc259 · e3cc259
1 parent 9aeeec5
commit e3cc259
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Aws/S3/Core.hs b/Aws/S3/Core.hs
@@ -245,7 +245,7 @@ s3BinaryResponseConsumer inner metadata resp = do
       let m = S3Metadata { s3MAmzId2 = amzId2, s3MRequestId = requestId }
       liftIO $ tellMetadataRef metadata m
 
-      if HTTP.responseStatus resp >= HTTP.status400
+      if HTTP.responseStatus resp >= HTTP.status300
         then s3ErrorResponseConsumer resp
         else inner resp