module Network.AWS.CloudHSM.DescribeHSM
(
describeHSM
, DescribeHSM
, dhsmHSMSerialNumber
, dhsmHSMARN
, describeHSMResponse
, DescribeHSMResponse
, desrsStatus
, desrsIAMRoleARN
, desrsEniId
, desrsVPCId
, desrsSSHKeyLastUpdated
, desrsSubscriptionEndDate
, desrsServerCertURI
, desrsSubscriptionType
, desrsSSHPublicKey
, desrsSubnetId
, desrsStatusDetails
, desrsPartitions
, desrsSubscriptionStartDate
, desrsAvailabilityZone
, desrsServerCertLastUpdated
, desrsSoftwareVersion
, desrsVendorName
, desrsSerialNumber
, desrsHSMARN
, desrsEniIP
, desrsHSMType
, desrsResponseStatus
) where
import Network.AWS.CloudHSM.Types
import Network.AWS.CloudHSM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeHSM = DescribeHSM'
{ _dhsmHSMSerialNumber :: !(Maybe Text)
, _dhsmHSMARN :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeHSM
:: DescribeHSM
describeHSM =
DescribeHSM'
{ _dhsmHSMSerialNumber = Nothing
, _dhsmHSMARN = Nothing
}
dhsmHSMSerialNumber :: Lens' DescribeHSM (Maybe Text)
dhsmHSMSerialNumber = lens _dhsmHSMSerialNumber (\ s a -> s{_dhsmHSMSerialNumber = a});
dhsmHSMARN :: Lens' DescribeHSM (Maybe Text)
dhsmHSMARN = lens _dhsmHSMARN (\ s a -> s{_dhsmHSMARN = a});
instance AWSRequest DescribeHSM where
type Rs DescribeHSM = DescribeHSMResponse
request = postJSON cloudHSM
response
= receiveJSON
(\ s h x ->
DescribeHSMResponse' <$>
(x .?> "Status") <*> (x .?> "IamRoleArn") <*>
(x .?> "EniId")
<*> (x .?> "VpcId")
<*> (x .?> "SshKeyLastUpdated")
<*> (x .?> "SubscriptionEndDate")
<*> (x .?> "ServerCertUri")
<*> (x .?> "SubscriptionType")
<*> (x .?> "SshPublicKey")
<*> (x .?> "SubnetId")
<*> (x .?> "StatusDetails")
<*> (x .?> "Partitions" .!@ mempty)
<*> (x .?> "SubscriptionStartDate")
<*> (x .?> "AvailabilityZone")
<*> (x .?> "ServerCertLastUpdated")
<*> (x .?> "SoftwareVersion")
<*> (x .?> "VendorName")
<*> (x .?> "SerialNumber")
<*> (x .?> "HsmArn")
<*> (x .?> "EniIp")
<*> (x .?> "HsmType")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeHSM where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CloudHsmFrontendService.DescribeHsm" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeHSM where
toJSON DescribeHSM'{..}
= object
(catMaybes
[("HsmSerialNumber" .=) <$> _dhsmHSMSerialNumber,
("HsmArn" .=) <$> _dhsmHSMARN])
instance ToPath DescribeHSM where
toPath = const "/"
instance ToQuery DescribeHSM where
toQuery = const mempty
data DescribeHSMResponse = DescribeHSMResponse'
{ _desrsStatus :: !(Maybe HSMStatus)
, _desrsIAMRoleARN :: !(Maybe Text)
, _desrsEniId :: !(Maybe Text)
, _desrsVPCId :: !(Maybe Text)
, _desrsSSHKeyLastUpdated :: !(Maybe Text)
, _desrsSubscriptionEndDate :: !(Maybe Text)
, _desrsServerCertURI :: !(Maybe Text)
, _desrsSubscriptionType :: !(Maybe SubscriptionType)
, _desrsSSHPublicKey :: !(Maybe Text)
, _desrsSubnetId :: !(Maybe Text)
, _desrsStatusDetails :: !(Maybe Text)
, _desrsPartitions :: !(Maybe [Text])
, _desrsSubscriptionStartDate :: !(Maybe Text)
, _desrsAvailabilityZone :: !(Maybe Text)
, _desrsServerCertLastUpdated :: !(Maybe Text)
, _desrsSoftwareVersion :: !(Maybe Text)
, _desrsVendorName :: !(Maybe Text)
, _desrsSerialNumber :: !(Maybe Text)
, _desrsHSMARN :: !(Maybe Text)
, _desrsEniIP :: !(Maybe Text)
, _desrsHSMType :: !(Maybe Text)
, _desrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeHSMResponse
:: Int
-> DescribeHSMResponse
describeHSMResponse pResponseStatus_ =
DescribeHSMResponse'
{ _desrsStatus = Nothing
, _desrsIAMRoleARN = Nothing
, _desrsEniId = Nothing
, _desrsVPCId = Nothing
, _desrsSSHKeyLastUpdated = Nothing
, _desrsSubscriptionEndDate = Nothing
, _desrsServerCertURI = Nothing
, _desrsSubscriptionType = Nothing
, _desrsSSHPublicKey = Nothing
, _desrsSubnetId = Nothing
, _desrsStatusDetails = Nothing
, _desrsPartitions = Nothing
, _desrsSubscriptionStartDate = Nothing
, _desrsAvailabilityZone = Nothing
, _desrsServerCertLastUpdated = Nothing
, _desrsSoftwareVersion = Nothing
, _desrsVendorName = Nothing
, _desrsSerialNumber = Nothing
, _desrsHSMARN = Nothing
, _desrsEniIP = Nothing
, _desrsHSMType = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsStatus :: Lens' DescribeHSMResponse (Maybe HSMStatus)
desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});
desrsIAMRoleARN :: Lens' DescribeHSMResponse (Maybe Text)
desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a});
desrsEniId :: Lens' DescribeHSMResponse (Maybe Text)
desrsEniId = lens _desrsEniId (\ s a -> s{_desrsEniId = a});
desrsVPCId :: Lens' DescribeHSMResponse (Maybe Text)
desrsVPCId = lens _desrsVPCId (\ s a -> s{_desrsVPCId = a});
desrsSSHKeyLastUpdated :: Lens' DescribeHSMResponse (Maybe Text)
desrsSSHKeyLastUpdated = lens _desrsSSHKeyLastUpdated (\ s a -> s{_desrsSSHKeyLastUpdated = a});
desrsSubscriptionEndDate :: Lens' DescribeHSMResponse (Maybe Text)
desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a});
desrsServerCertURI :: Lens' DescribeHSMResponse (Maybe Text)
desrsServerCertURI = lens _desrsServerCertURI (\ s a -> s{_desrsServerCertURI = a});
desrsSubscriptionType :: Lens' DescribeHSMResponse (Maybe SubscriptionType)
desrsSubscriptionType = lens _desrsSubscriptionType (\ s a -> s{_desrsSubscriptionType = a});
desrsSSHPublicKey :: Lens' DescribeHSMResponse (Maybe Text)
desrsSSHPublicKey = lens _desrsSSHPublicKey (\ s a -> s{_desrsSSHPublicKey = a});
desrsSubnetId :: Lens' DescribeHSMResponse (Maybe Text)
desrsSubnetId = lens _desrsSubnetId (\ s a -> s{_desrsSubnetId = a});
desrsStatusDetails :: Lens' DescribeHSMResponse (Maybe Text)
desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a});
desrsPartitions :: Lens' DescribeHSMResponse [Text]
desrsPartitions = lens _desrsPartitions (\ s a -> s{_desrsPartitions = a}) . _Default . _Coerce;
desrsSubscriptionStartDate :: Lens' DescribeHSMResponse (Maybe Text)
desrsSubscriptionStartDate = lens _desrsSubscriptionStartDate (\ s a -> s{_desrsSubscriptionStartDate = a});
desrsAvailabilityZone :: Lens' DescribeHSMResponse (Maybe Text)
desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a});
desrsServerCertLastUpdated :: Lens' DescribeHSMResponse (Maybe Text)
desrsServerCertLastUpdated = lens _desrsServerCertLastUpdated (\ s a -> s{_desrsServerCertLastUpdated = a});
desrsSoftwareVersion :: Lens' DescribeHSMResponse (Maybe Text)
desrsSoftwareVersion = lens _desrsSoftwareVersion (\ s a -> s{_desrsSoftwareVersion = a});
desrsVendorName :: Lens' DescribeHSMResponse (Maybe Text)
desrsVendorName = lens _desrsVendorName (\ s a -> s{_desrsVendorName = a});
desrsSerialNumber :: Lens' DescribeHSMResponse (Maybe Text)
desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a});
desrsHSMARN :: Lens' DescribeHSMResponse (Maybe Text)
desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a});
desrsEniIP :: Lens' DescribeHSMResponse (Maybe Text)
desrsEniIP = lens _desrsEniIP (\ s a -> s{_desrsEniIP = a});
desrsHSMType :: Lens' DescribeHSMResponse (Maybe Text)
desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a});
desrsResponseStatus :: Lens' DescribeHSMResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});