Correctly process the return status of PutObject and DeleteObject.

Previously the AWS S3 response was ignored. Now we check if the response was successful or not.
aristidb · Jan 5, 2012 · fe41ff3 · meteficha · Jan 6, 2012 · aristidb
1 parent c7826b7
commit fe41ff3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/Aws/S3/Commands/DeleteObject.hs b/Aws/S3/Commands/DeleteObject.hs
@@ -8,6 +8,7 @@ import           Aws.S3.Info
 import           Aws.S3.Metadata
 import           Aws.S3.Model
 import           Aws.S3.Query
+import           Aws.S3.Response
 import           Aws.Signature
 import           Aws.Transaction
 import           Data.ByteString.Char8      ({- IsString -})
@@ -36,7 +37,8 @@ instance SignQuery DeleteObject where
 
 instance ResponseConsumer DeleteObject DeleteObjectResponse where
     type ResponseMetadata DeleteObjectResponse = S3Metadata
-    responseConsumer _ _ _ _ _ = return DeleteObjectResponse
+    responseConsumer _ = s3ResponseConsumer $ \_ _ _ ->
+                         return DeleteObjectResponse
 
 
 instance Transaction DeleteObject DeleteObjectResponse

diff --git a/Aws/S3/Commands/PutObject.hs b/Aws/S3/Commands/PutObject.hs
@@ -8,6 +8,7 @@ import           Aws.S3.Info
 import           Aws.S3.Metadata
 import           Aws.S3.Model
 import           Aws.S3.Query
+import           Aws.S3.Response
 import           Aws.Signature
 import           Aws.Transaction
 import           Control.Applicative
@@ -65,7 +66,8 @@ instance SignQuery PutObject where
 
 instance ResponseConsumer PutObject PutObjectResponse where
     type ResponseMetadata PutObjectResponse = S3Metadata
-    responseConsumer _ _ _ _ _ = do return $ PutObjectResponse Nothing
+    responseConsumer _ = s3ResponseConsumer $ \_ _ _ ->
+                         return $ PutObjectResponse Nothing
 
 instance Transaction PutObject PutObjectResponse