module Network.AWS.CloudHSM.DeleteLunaClient
(
DeleteLunaClient
, deleteLunaClient
, dlc1ClientArn
, DeleteLunaClientResponse
, deleteLunaClientResponse
, dlcrStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CloudHSM.Types
import qualified GHC.Exts
newtype DeleteLunaClient = DeleteLunaClient
{ _dlc1ClientArn :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteLunaClient :: Text
-> DeleteLunaClient
deleteLunaClient p1 = DeleteLunaClient
{ _dlc1ClientArn = p1
}
dlc1ClientArn :: Lens' DeleteLunaClient Text
dlc1ClientArn = lens _dlc1ClientArn (\s a -> s { _dlc1ClientArn = a })
newtype DeleteLunaClientResponse = DeleteLunaClientResponse
{ _dlcrStatus :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deleteLunaClientResponse :: Text
-> DeleteLunaClientResponse
deleteLunaClientResponse p1 = DeleteLunaClientResponse
{ _dlcrStatus = p1
}
dlcrStatus :: Lens' DeleteLunaClientResponse Text
dlcrStatus = lens _dlcrStatus (\s a -> s { _dlcrStatus = a })
instance ToPath DeleteLunaClient where
toPath = const "/"
instance ToQuery DeleteLunaClient where
toQuery = const mempty
instance ToHeaders DeleteLunaClient
instance ToJSON DeleteLunaClient where
toJSON DeleteLunaClient{..} = object
[ "ClientArn" .= _dlc1ClientArn
]
instance AWSRequest DeleteLunaClient where
type Sv DeleteLunaClient = CloudHSM
type Rs DeleteLunaClient = DeleteLunaClientResponse
request = post "DeleteLunaClient"
response = jsonResponse
instance FromJSON DeleteLunaClientResponse where
parseJSON = withObject "DeleteLunaClientResponse" $ \o -> DeleteLunaClientResponse
<$> o .: "Status"