content: module Aws.S3.Commands.DeleteObject
  where
  
  import           Aws.Core
  import           Aws.S3.Core
  import           Data.ByteString.Char8      ({- IsString -})
  import qualified Data.Text                  as T
  import qualified Data.Text.Encoding         as T
  
  data DeleteObject = DeleteObject {
    doObjectName :: T.Text,
    doBucket :: Bucket
  } deriving (Show)
  
  data DeleteObjectResponse = DeleteObjectResponse{
  } deriving (Show)
  
  -- | ServiceConfiguration: 'S3Configuration'
  instance SignQuery DeleteObject where
      type ServiceConfiguration DeleteObject = S3Configuration
      signQuery DeleteObject {..} = s3SignQuery S3Query {
                                   s3QMethod = Delete
                                 , s3QBucket = Just $ T.encodeUtf8 doBucket
                                 , s3QSubresources = []
                                 , s3QQuery = []
                                 , s3QContentType = Nothing
                                 , s3QContentMd5 = Nothing
                                 , s3QAmzHeaders = []
                                 , s3QOtherHeaders = []
                                 , s3QRequestBody = Nothing
                                 , s3QObject = Just $ T.encodeUtf8 doObjectName
                                 }
  
  instance ResponseConsumer DeleteObject DeleteObjectResponse where
      type ResponseMetadata DeleteObjectResponse = S3Metadata
      responseConsumer _ _
          = s3ResponseConsumer $ \_ -> return DeleteObjectResponse
  
  instance Transaction DeleteObject DeleteObjectResponse
  
  instance AsMemoryResponse DeleteObjectResponse where
      type MemoryResponse DeleteObjectResponse = DeleteObjectResponse
      loadToMemory = return
  