Show on PutObjectResponse is very helpful in debugging

Soostone · Jan 5, 2012 · 53e7847 · 53e7847
1 parent 92d045f
commit 53e7847
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/Aws/S3/Commands/PutObject.hs b/Aws/S3/Commands/PutObject.hs
@@ -39,9 +39,11 @@ data PutObject = PutObject {
 putObject :: T.Text -> Bucket -> HTTP.RequestBody IO -> PutObject
 putObject obj bucket body = PutObject obj bucket Nothing Nothing Nothing Nothing Nothing Nothing Nothing Nothing body []
 
-data PutObjectResponse = PutObjectResponse{
-  porVersionId :: Maybe T.Text
-}
+data PutObjectResponse 
+  = PutObjectResponse {
+      porVersionId :: Maybe T.Text
+    }
+  deriving (Show)
 
 instance SignQuery PutObject where
     type Info PutObject = S3Info