module Network.AWS.CloudFront.DeleteCloudFrontOriginAccessIdentity
(
DeleteCloudFrontOriginAccessIdentity
, deleteCloudFrontOriginAccessIdentity
, dcfoaiId
, dcfoaiIfMatch
, DeleteCloudFrontOriginAccessIdentityResponse
, deleteCloudFrontOriginAccessIdentityResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.CloudFront.Types
import qualified GHC.Exts
data DeleteCloudFrontOriginAccessIdentity = DeleteCloudFrontOriginAccessIdentity
{ _dcfoaiId :: Text
, _dcfoaiIfMatch :: Maybe Text
} deriving (Eq, Ord, Read, Show)
deleteCloudFrontOriginAccessIdentity :: Text
-> DeleteCloudFrontOriginAccessIdentity
deleteCloudFrontOriginAccessIdentity p1 = DeleteCloudFrontOriginAccessIdentity
{ _dcfoaiId = p1
, _dcfoaiIfMatch = Nothing
}
dcfoaiId :: Lens' DeleteCloudFrontOriginAccessIdentity Text
dcfoaiId = lens _dcfoaiId (\s a -> s { _dcfoaiId = a })
dcfoaiIfMatch :: Lens' DeleteCloudFrontOriginAccessIdentity (Maybe Text)
dcfoaiIfMatch = lens _dcfoaiIfMatch (\s a -> s { _dcfoaiIfMatch = a })
data DeleteCloudFrontOriginAccessIdentityResponse = DeleteCloudFrontOriginAccessIdentityResponse
deriving (Eq, Ord, Read, Show, Generic)
deleteCloudFrontOriginAccessIdentityResponse :: DeleteCloudFrontOriginAccessIdentityResponse
deleteCloudFrontOriginAccessIdentityResponse = DeleteCloudFrontOriginAccessIdentityResponse
instance ToPath DeleteCloudFrontOriginAccessIdentity where
toPath DeleteCloudFrontOriginAccessIdentity{..} = mconcat
[ "/2014-11-06/origin-access-identity/cloudfront/"
, toText _dcfoaiId
]
instance ToQuery DeleteCloudFrontOriginAccessIdentity where
toQuery = const mempty
instance ToHeaders DeleteCloudFrontOriginAccessIdentity where
toHeaders DeleteCloudFrontOriginAccessIdentity{..} = mconcat
[ "If-Match" =: _dcfoaiIfMatch
]
instance ToXMLRoot DeleteCloudFrontOriginAccessIdentity where
toXMLRoot = const (namespaced ns "DeleteCloudFrontOriginAccessIdentity" [])
instance ToXML DeleteCloudFrontOriginAccessIdentity
instance AWSRequest DeleteCloudFrontOriginAccessIdentity where
type Sv DeleteCloudFrontOriginAccessIdentity = CloudFront
type Rs DeleteCloudFrontOriginAccessIdentity = DeleteCloudFrontOriginAccessIdentityResponse
request = delete
response = nullResponse DeleteCloudFrontOriginAccessIdentityResponse