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