{-# 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.CloudFormation.SignalResource
(
signalResource
, SignalResource
, sigStackName
, sigLogicalResourceId
, sigUniqueId
, sigStatus
, signalResourceResponse
, SignalResourceResponse
) where
import Network.AWS.CloudFormation.Types
import Network.AWS.CloudFormation.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SignalResource = SignalResource'
{ _sigStackName :: !Text
, _sigLogicalResourceId :: !Text
, _sigUniqueId :: !Text
, _sigStatus :: !ResourceSignalStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
signalResource
:: Text
-> Text
-> Text
-> ResourceSignalStatus
-> SignalResource
signalResource pStackName_ pLogicalResourceId_ pUniqueId_ pStatus_ =
SignalResource'
{ _sigStackName = pStackName_
, _sigLogicalResourceId = pLogicalResourceId_
, _sigUniqueId = pUniqueId_
, _sigStatus = pStatus_
}
sigStackName :: Lens' SignalResource Text
sigStackName = lens _sigStackName (\ s a -> s{_sigStackName = a});
sigLogicalResourceId :: Lens' SignalResource Text
sigLogicalResourceId = lens _sigLogicalResourceId (\ s a -> s{_sigLogicalResourceId = a});
sigUniqueId :: Lens' SignalResource Text
sigUniqueId = lens _sigUniqueId (\ s a -> s{_sigUniqueId = a});
sigStatus :: Lens' SignalResource ResourceSignalStatus
sigStatus = lens _sigStatus (\ s a -> s{_sigStatus = a});
instance AWSRequest SignalResource where
type Rs SignalResource = SignalResourceResponse
request = postQuery cloudFormation
response = receiveNull SignalResourceResponse'
instance Hashable SignalResource
instance NFData SignalResource
instance ToHeaders SignalResource where
toHeaders = const mempty
instance ToPath SignalResource where
toPath = const "/"
instance ToQuery SignalResource where
toQuery SignalResource'{..}
= mconcat
["Action" =: ("SignalResource" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"StackName" =: _sigStackName,
"LogicalResourceId" =: _sigLogicalResourceId,
"UniqueId" =: _sigUniqueId, "Status" =: _sigStatus]
data SignalResourceResponse =
SignalResourceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
signalResourceResponse
:: SignalResourceResponse
signalResourceResponse = SignalResourceResponse'
instance NFData SignalResourceResponse