module Network.AWS.CloudHSM.DescribeLunaClient
(
DescribeLunaClient
, describeLunaClient
, dlcCertificateFingerprint
, dlcClientArn
, DescribeLunaClientResponse
, describeLunaClientResponse
, dlcrCertificate
, dlcrCertificateFingerprint
, dlcrClientArn
, dlcrLabel
, dlcrLastModifiedTimestamp
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CloudHSM.Types
import qualified GHC.Exts
data DescribeLunaClient = DescribeLunaClient
{ _dlcCertificateFingerprint :: Maybe Text
, _dlcClientArn :: Maybe Text
} deriving (Eq, Ord, Read, Show)
describeLunaClient :: DescribeLunaClient
describeLunaClient = DescribeLunaClient
{ _dlcClientArn = Nothing
, _dlcCertificateFingerprint = Nothing
}
dlcCertificateFingerprint :: Lens' DescribeLunaClient (Maybe Text)
dlcCertificateFingerprint =
lens _dlcCertificateFingerprint
(\s a -> s { _dlcCertificateFingerprint = a })
dlcClientArn :: Lens' DescribeLunaClient (Maybe Text)
dlcClientArn = lens _dlcClientArn (\s a -> s { _dlcClientArn = a })
data DescribeLunaClientResponse = DescribeLunaClientResponse
{ _dlcrCertificate :: Maybe Text
, _dlcrCertificateFingerprint :: Maybe Text
, _dlcrClientArn :: Maybe Text
, _dlcrLabel :: Maybe Text
, _dlcrLastModifiedTimestamp :: Maybe Text
} deriving (Eq, Ord, Read, Show)
describeLunaClientResponse :: DescribeLunaClientResponse
describeLunaClientResponse = DescribeLunaClientResponse
{ _dlcrClientArn = Nothing
, _dlcrCertificate = Nothing
, _dlcrCertificateFingerprint = Nothing
, _dlcrLastModifiedTimestamp = Nothing
, _dlcrLabel = Nothing
}
dlcrCertificate :: Lens' DescribeLunaClientResponse (Maybe Text)
dlcrCertificate = lens _dlcrCertificate (\s a -> s { _dlcrCertificate = a })
dlcrCertificateFingerprint :: Lens' DescribeLunaClientResponse (Maybe Text)
dlcrCertificateFingerprint =
lens _dlcrCertificateFingerprint
(\s a -> s { _dlcrCertificateFingerprint = a })
dlcrClientArn :: Lens' DescribeLunaClientResponse (Maybe Text)
dlcrClientArn = lens _dlcrClientArn (\s a -> s { _dlcrClientArn = a })
dlcrLabel :: Lens' DescribeLunaClientResponse (Maybe Text)
dlcrLabel = lens _dlcrLabel (\s a -> s { _dlcrLabel = a })
dlcrLastModifiedTimestamp :: Lens' DescribeLunaClientResponse (Maybe Text)
dlcrLastModifiedTimestamp =
lens _dlcrLastModifiedTimestamp
(\s a -> s { _dlcrLastModifiedTimestamp = a })
instance ToPath DescribeLunaClient where
toPath = const "/"
instance ToQuery DescribeLunaClient where
toQuery = const mempty
instance ToHeaders DescribeLunaClient
instance ToJSON DescribeLunaClient where
toJSON DescribeLunaClient{..} = object
[ "ClientArn" .= _dlcClientArn
, "CertificateFingerprint" .= _dlcCertificateFingerprint
]
instance AWSRequest DescribeLunaClient where
type Sv DescribeLunaClient = CloudHSM
type Rs DescribeLunaClient = DescribeLunaClientResponse
request = post "DescribeLunaClient"
response = jsonResponse
instance FromJSON DescribeLunaClientResponse where
parseJSON = withObject "DescribeLunaClientResponse" $ \o -> DescribeLunaClientResponse
<$> o .:? "Certificate"
<*> o .:? "CertificateFingerprint"
<*> o .:? "ClientArn"
<*> o .:? "Label"
<*> o .:? "LastModifiedTimestamp"