{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
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.Lens
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 Hashable DescribeHSM where
instance NFData DescribeHSM where
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})
instance NFData DescribeHSMResponse where