module Network.AWS.Redshift.DeleteHsmClientCertificate
(
DeleteHsmClientCertificate
, deleteHsmClientCertificate
, dhcc1HsmClientCertificateIdentifier
, DeleteHsmClientCertificateResponse
, deleteHsmClientCertificateResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.Redshift.Types
import qualified GHC.Exts
newtype DeleteHsmClientCertificate = DeleteHsmClientCertificate
{ _dhcc1HsmClientCertificateIdentifier :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteHsmClientCertificate :: Text
-> DeleteHsmClientCertificate
deleteHsmClientCertificate p1 = DeleteHsmClientCertificate
{ _dhcc1HsmClientCertificateIdentifier = p1
}
dhcc1HsmClientCertificateIdentifier :: Lens' DeleteHsmClientCertificate Text
dhcc1HsmClientCertificateIdentifier =
lens _dhcc1HsmClientCertificateIdentifier
(\s a -> s { _dhcc1HsmClientCertificateIdentifier = a })
data DeleteHsmClientCertificateResponse = DeleteHsmClientCertificateResponse
deriving (Eq, Ord, Read, Show, Generic)
deleteHsmClientCertificateResponse :: DeleteHsmClientCertificateResponse
deleteHsmClientCertificateResponse = DeleteHsmClientCertificateResponse
instance ToPath DeleteHsmClientCertificate where
toPath = const "/"
instance ToQuery DeleteHsmClientCertificate where
toQuery DeleteHsmClientCertificate{..} = mconcat
[ "HsmClientCertificateIdentifier" =? _dhcc1HsmClientCertificateIdentifier
]
instance ToHeaders DeleteHsmClientCertificate
instance AWSRequest DeleteHsmClientCertificate where
type Sv DeleteHsmClientCertificate = Redshift
type Rs DeleteHsmClientCertificate = DeleteHsmClientCertificateResponse
request = post "DeleteHsmClientCertificate"
response = nullResponse DeleteHsmClientCertificateResponse