{-# 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.UpdateAssociation
(
updateAssociation
, UpdateAssociation
, uaScheduleExpression
, uaName
, uaOutputLocation
, uaTargets
, uaParameters
, uaDocumentVersion
, uaAssociationVersion
, uaAssociationName
, uaAssociationId
, updateAssociationResponse
, UpdateAssociationResponse
, uarsAssociationDescription
, uarsResponseStatus
) 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 UpdateAssociation = UpdateAssociation'
{ _uaScheduleExpression :: !(Maybe Text)
, _uaName :: !(Maybe Text)
, _uaOutputLocation :: !(Maybe InstanceAssociationOutputLocation)
, _uaTargets :: !(Maybe [Target])
, _uaParameters :: !(Maybe (Map Text [Text]))
, _uaDocumentVersion :: !(Maybe Text)
, _uaAssociationVersion :: !(Maybe Text)
, _uaAssociationName :: !(Maybe Text)
, _uaAssociationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateAssociation
:: Text
-> UpdateAssociation
updateAssociation pAssociationId_ =
UpdateAssociation'
{ _uaScheduleExpression = Nothing
, _uaName = Nothing
, _uaOutputLocation = Nothing
, _uaTargets = Nothing
, _uaParameters = Nothing
, _uaDocumentVersion = Nothing
, _uaAssociationVersion = Nothing
, _uaAssociationName = Nothing
, _uaAssociationId = pAssociationId_
}
uaScheduleExpression :: Lens' UpdateAssociation (Maybe Text)
uaScheduleExpression = lens _uaScheduleExpression (\ s a -> s{_uaScheduleExpression = a})
uaName :: Lens' UpdateAssociation (Maybe Text)
uaName = lens _uaName (\ s a -> s{_uaName = a})
uaOutputLocation :: Lens' UpdateAssociation (Maybe InstanceAssociationOutputLocation)
uaOutputLocation = lens _uaOutputLocation (\ s a -> s{_uaOutputLocation = a})
uaTargets :: Lens' UpdateAssociation [Target]
uaTargets = lens _uaTargets (\ s a -> s{_uaTargets = a}) . _Default . _Coerce
uaParameters :: Lens' UpdateAssociation (HashMap Text [Text])
uaParameters = lens _uaParameters (\ s a -> s{_uaParameters = a}) . _Default . _Map
uaDocumentVersion :: Lens' UpdateAssociation (Maybe Text)
uaDocumentVersion = lens _uaDocumentVersion (\ s a -> s{_uaDocumentVersion = a})
uaAssociationVersion :: Lens' UpdateAssociation (Maybe Text)
uaAssociationVersion = lens _uaAssociationVersion (\ s a -> s{_uaAssociationVersion = a})
uaAssociationName :: Lens' UpdateAssociation (Maybe Text)
uaAssociationName = lens _uaAssociationName (\ s a -> s{_uaAssociationName = a})
uaAssociationId :: Lens' UpdateAssociation Text
uaAssociationId = lens _uaAssociationId (\ s a -> s{_uaAssociationId = a})
instance AWSRequest UpdateAssociation where
type Rs UpdateAssociation = UpdateAssociationResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
UpdateAssociationResponse' <$>
(x .?> "AssociationDescription") <*>
(pure (fromEnum s)))
instance Hashable UpdateAssociation where
instance NFData UpdateAssociation where
instance ToHeaders UpdateAssociation where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.UpdateAssociation" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateAssociation where
toJSON UpdateAssociation'{..}
= object
(catMaybes
[("ScheduleExpression" .=) <$> _uaScheduleExpression,
("Name" .=) <$> _uaName,
("OutputLocation" .=) <$> _uaOutputLocation,
("Targets" .=) <$> _uaTargets,
("Parameters" .=) <$> _uaParameters,
("DocumentVersion" .=) <$> _uaDocumentVersion,
("AssociationVersion" .=) <$> _uaAssociationVersion,
("AssociationName" .=) <$> _uaAssociationName,
Just ("AssociationId" .= _uaAssociationId)])
instance ToPath UpdateAssociation where
toPath = const "/"
instance ToQuery UpdateAssociation where
toQuery = const mempty
data UpdateAssociationResponse = UpdateAssociationResponse'
{ _uarsAssociationDescription :: !(Maybe AssociationDescription)
, _uarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateAssociationResponse
:: Int
-> UpdateAssociationResponse
updateAssociationResponse pResponseStatus_ =
UpdateAssociationResponse'
{ _uarsAssociationDescription = Nothing
, _uarsResponseStatus = pResponseStatus_
}
uarsAssociationDescription :: Lens' UpdateAssociationResponse (Maybe AssociationDescription)
uarsAssociationDescription = lens _uarsAssociationDescription (\ s a -> s{_uarsAssociationDescription = a})
uarsResponseStatus :: Lens' UpdateAssociationResponse Int
uarsResponseStatus = lens _uarsResponseStatus (\ s a -> s{_uarsResponseStatus = a})
instance NFData UpdateAssociationResponse where