module Network.AWS.CloudHSM.DescribeHapg
(
DescribeHapg
, describeHapg
, dh1HapgArn
, DescribeHapgResponse
, describeHapgResponse
, dhrHapgArn
, dhrHapgSerial
, dhrHsmsLastActionFailed
, dhrHsmsPendingDeletion
, dhrHsmsPendingRegistration
, dhrLabel
, dhrLastModifiedTimestamp
, dhrPartitionSerialList
, dhrState
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CloudHSM.Types
import qualified GHC.Exts
newtype DescribeHapg = DescribeHapg
{ _dh1HapgArn :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
describeHapg :: Text
-> DescribeHapg
describeHapg p1 = DescribeHapg
{ _dh1HapgArn = p1
}
dh1HapgArn :: Lens' DescribeHapg Text
dh1HapgArn = lens _dh1HapgArn (\s a -> s { _dh1HapgArn = a })
data DescribeHapgResponse = DescribeHapgResponse
{ _dhrHapgArn :: Maybe Text
, _dhrHapgSerial :: Maybe Text
, _dhrHsmsLastActionFailed :: List "HsmsLastActionFailed" Text
, _dhrHsmsPendingDeletion :: List "HsmsPendingDeletion" Text
, _dhrHsmsPendingRegistration :: List "HsmsPendingRegistration" Text
, _dhrLabel :: Maybe Text
, _dhrLastModifiedTimestamp :: Maybe Text
, _dhrPartitionSerialList :: List "PartitionSerialList" Text
, _dhrState :: Maybe CloudHsmObjectState
} deriving (Eq, Read, Show)
describeHapgResponse :: DescribeHapgResponse
describeHapgResponse = DescribeHapgResponse
{ _dhrHapgArn = Nothing
, _dhrHapgSerial = Nothing
, _dhrHsmsLastActionFailed = mempty
, _dhrHsmsPendingDeletion = mempty
, _dhrHsmsPendingRegistration = mempty
, _dhrLabel = Nothing
, _dhrLastModifiedTimestamp = Nothing
, _dhrPartitionSerialList = mempty
, _dhrState = Nothing
}
dhrHapgArn :: Lens' DescribeHapgResponse (Maybe Text)
dhrHapgArn = lens _dhrHapgArn (\s a -> s { _dhrHapgArn = a })
dhrHapgSerial :: Lens' DescribeHapgResponse (Maybe Text)
dhrHapgSerial = lens _dhrHapgSerial (\s a -> s { _dhrHapgSerial = a })
dhrHsmsLastActionFailed :: Lens' DescribeHapgResponse [Text]
dhrHsmsLastActionFailed =
lens _dhrHsmsLastActionFailed (\s a -> s { _dhrHsmsLastActionFailed = a })
. _List
dhrHsmsPendingDeletion :: Lens' DescribeHapgResponse [Text]
dhrHsmsPendingDeletion =
lens _dhrHsmsPendingDeletion (\s a -> s { _dhrHsmsPendingDeletion = a })
. _List
dhrHsmsPendingRegistration :: Lens' DescribeHapgResponse [Text]
dhrHsmsPendingRegistration =
lens _dhrHsmsPendingRegistration
(\s a -> s { _dhrHsmsPendingRegistration = a })
. _List
dhrLabel :: Lens' DescribeHapgResponse (Maybe Text)
dhrLabel = lens _dhrLabel (\s a -> s { _dhrLabel = a })
dhrLastModifiedTimestamp :: Lens' DescribeHapgResponse (Maybe Text)
dhrLastModifiedTimestamp =
lens _dhrLastModifiedTimestamp
(\s a -> s { _dhrLastModifiedTimestamp = a })
dhrPartitionSerialList :: Lens' DescribeHapgResponse [Text]
dhrPartitionSerialList =
lens _dhrPartitionSerialList (\s a -> s { _dhrPartitionSerialList = a })
. _List
dhrState :: Lens' DescribeHapgResponse (Maybe CloudHsmObjectState)
dhrState = lens _dhrState (\s a -> s { _dhrState = a })
instance ToPath DescribeHapg where
toPath = const "/"
instance ToQuery DescribeHapg where
toQuery = const mempty
instance ToHeaders DescribeHapg
instance ToJSON DescribeHapg where
toJSON DescribeHapg{..} = object
[ "HapgArn" .= _dh1HapgArn
]
instance AWSRequest DescribeHapg where
type Sv DescribeHapg = CloudHSM
type Rs DescribeHapg = DescribeHapgResponse
request = post "DescribeHapg"
response = jsonResponse
instance FromJSON DescribeHapgResponse where
parseJSON = withObject "DescribeHapgResponse" $ \o -> DescribeHapgResponse
<$> o .:? "HapgArn"
<*> o .:? "HapgSerial"
<*> o .:? "HsmsLastActionFailed" .!= mempty
<*> o .:? "HsmsPendingDeletion" .!= mempty
<*> o .:? "HsmsPendingRegistration" .!= mempty
<*> o .:? "Label"
<*> o .:? "LastModifiedTimestamp"
<*> o .:? "PartitionSerialList" .!= mempty
<*> o .:? "State"