{-# 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.CloudHSMv2.InitializeCluster
(
initializeCluster
, InitializeCluster
, icClusterId
, icSignedCert
, icTrustAnchor
, initializeClusterResponse
, InitializeClusterResponse
, icrsStateMessage
, icrsState
, icrsResponseStatus
) where
import Network.AWS.CloudHSMv2.Types
import Network.AWS.CloudHSMv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data InitializeCluster = InitializeCluster'
{ _icClusterId :: !Text
, _icSignedCert :: !Text
, _icTrustAnchor :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
initializeCluster
:: Text
-> Text
-> Text
-> InitializeCluster
initializeCluster pClusterId_ pSignedCert_ pTrustAnchor_ =
InitializeCluster'
{ _icClusterId = pClusterId_
, _icSignedCert = pSignedCert_
, _icTrustAnchor = pTrustAnchor_
}
icClusterId :: Lens' InitializeCluster Text
icClusterId = lens _icClusterId (\ s a -> s{_icClusterId = a})
icSignedCert :: Lens' InitializeCluster Text
icSignedCert = lens _icSignedCert (\ s a -> s{_icSignedCert = a})
icTrustAnchor :: Lens' InitializeCluster Text
icTrustAnchor = lens _icTrustAnchor (\ s a -> s{_icTrustAnchor = a})
instance AWSRequest InitializeCluster where
type Rs InitializeCluster = InitializeClusterResponse
request = postJSON cloudHSMv2
response
= receiveJSON
(\ s h x ->
InitializeClusterResponse' <$>
(x .?> "StateMessage") <*> (x .?> "State") <*>
(pure (fromEnum s)))
instance Hashable InitializeCluster where
instance NFData InitializeCluster where
instance ToHeaders InitializeCluster where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("BaldrApiService.InitializeCluster" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON InitializeCluster where
toJSON InitializeCluster'{..}
= object
(catMaybes
[Just ("ClusterId" .= _icClusterId),
Just ("SignedCert" .= _icSignedCert),
Just ("TrustAnchor" .= _icTrustAnchor)])
instance ToPath InitializeCluster where
toPath = const "/"
instance ToQuery InitializeCluster where
toQuery = const mempty
data InitializeClusterResponse = InitializeClusterResponse'
{ _icrsStateMessage :: !(Maybe Text)
, _icrsState :: !(Maybe ClusterState)
, _icrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
initializeClusterResponse
:: Int
-> InitializeClusterResponse
initializeClusterResponse pResponseStatus_ =
InitializeClusterResponse'
{ _icrsStateMessage = Nothing
, _icrsState = Nothing
, _icrsResponseStatus = pResponseStatus_
}
icrsStateMessage :: Lens' InitializeClusterResponse (Maybe Text)
icrsStateMessage = lens _icrsStateMessage (\ s a -> s{_icrsStateMessage = a})
icrsState :: Lens' InitializeClusterResponse (Maybe ClusterState)
icrsState = lens _icrsState (\ s a -> s{_icrsState = a})
icrsResponseStatus :: Lens' InitializeClusterResponse Int
icrsResponseStatus = lens _icrsResponseStatus (\ s a -> s{_icrsResponseStatus = a})
instance NFData InitializeClusterResponse where