{-# 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.SSM.SendAutomationSignal
(
sendAutomationSignal
, SendAutomationSignal
, sasPayload
, sasAutomationExecutionId
, sasSignalType
, sendAutomationSignalResponse
, SendAutomationSignalResponse
, sasrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
data SendAutomationSignal = SendAutomationSignal'
{ _sasPayload :: !(Maybe (Map Text [Text]))
, _sasAutomationExecutionId :: !Text
, _sasSignalType :: !SignalType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sendAutomationSignal
:: Text
-> SignalType
-> SendAutomationSignal
sendAutomationSignal pAutomationExecutionId_ pSignalType_ =
SendAutomationSignal'
{ _sasPayload = Nothing
, _sasAutomationExecutionId = pAutomationExecutionId_
, _sasSignalType = pSignalType_
}
sasPayload :: Lens' SendAutomationSignal (HashMap Text [Text])
sasPayload = lens _sasPayload (\ s a -> s{_sasPayload = a}) . _Default . _Map
sasAutomationExecutionId :: Lens' SendAutomationSignal Text
sasAutomationExecutionId = lens _sasAutomationExecutionId (\ s a -> s{_sasAutomationExecutionId = a})
sasSignalType :: Lens' SendAutomationSignal SignalType
sasSignalType = lens _sasSignalType (\ s a -> s{_sasSignalType = a})
instance AWSRequest SendAutomationSignal where
type Rs SendAutomationSignal =
SendAutomationSignalResponse
request = postJSON ssm
response
= receiveEmpty
(\ s h x ->
SendAutomationSignalResponse' <$>
(pure (fromEnum s)))
instance Hashable SendAutomationSignal where
instance NFData SendAutomationSignal where
instance ToHeaders SendAutomationSignal where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.SendAutomationSignal" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SendAutomationSignal where
toJSON SendAutomationSignal'{..}
= object
(catMaybes
[("Payload" .=) <$> _sasPayload,
Just
("AutomationExecutionId" .=
_sasAutomationExecutionId),
Just ("SignalType" .= _sasSignalType)])
instance ToPath SendAutomationSignal where
toPath = const "/"
instance ToQuery SendAutomationSignal where
toQuery = const mempty
newtype SendAutomationSignalResponse = SendAutomationSignalResponse'
{ _sasrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sendAutomationSignalResponse
:: Int
-> SendAutomationSignalResponse
sendAutomationSignalResponse pResponseStatus_ =
SendAutomationSignalResponse' {_sasrsResponseStatus = pResponseStatus_}
sasrsResponseStatus :: Lens' SendAutomationSignalResponse Int
sasrsResponseStatus = lens _sasrsResponseStatus (\ s a -> s{_sasrsResponseStatus = a})
instance NFData SendAutomationSignalResponse where