module Network.AWS.S3.GetBucketRequestPayment
(
GetBucketRequestPayment
, getBucketRequestPayment
, gbrpBucket
, GetBucketRequestPaymentResponse
, getBucketRequestPaymentResponse
, gbrprPayer
) where
import Network.AWS.Prelude
import Network.AWS.Request.S3
import Network.AWS.S3.Types
import qualified GHC.Exts
newtype GetBucketRequestPayment = GetBucketRequestPayment
{ _gbrpBucket :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
getBucketRequestPayment :: Text
-> GetBucketRequestPayment
getBucketRequestPayment p1 = GetBucketRequestPayment
{ _gbrpBucket = p1
}
gbrpBucket :: Lens' GetBucketRequestPayment Text
gbrpBucket = lens _gbrpBucket (\s a -> s { _gbrpBucket = a })
newtype GetBucketRequestPaymentResponse = GetBucketRequestPaymentResponse
{ _gbrprPayer :: Maybe Payer
} deriving (Eq, Show)
getBucketRequestPaymentResponse :: GetBucketRequestPaymentResponse
getBucketRequestPaymentResponse = GetBucketRequestPaymentResponse
{ _gbrprPayer = Nothing
}
gbrprPayer :: Lens' GetBucketRequestPaymentResponse (Maybe Payer)
gbrprPayer = lens _gbrprPayer (\s a -> s { _gbrprPayer = a })
instance ToPath GetBucketRequestPayment where
toPath GetBucketRequestPayment{..} = mconcat
[ "/"
, toText _gbrpBucket
]
instance ToQuery GetBucketRequestPayment where
toQuery = const "requestPayment"
instance ToHeaders GetBucketRequestPayment
instance ToXMLRoot GetBucketRequestPayment where
toXMLRoot = const (namespaced ns "GetBucketRequestPayment" [])
instance ToXML GetBucketRequestPayment
instance AWSRequest GetBucketRequestPayment where
type Sv GetBucketRequestPayment = S3
type Rs GetBucketRequestPayment = GetBucketRequestPaymentResponse
request = get
response = xmlResponse
instance FromXML GetBucketRequestPaymentResponse where
parseXML x = GetBucketRequestPaymentResponse
<$> x .@? "Payer"