{-# 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.UpdateManagedInstanceRole
(
updateManagedInstanceRole
, UpdateManagedInstanceRole
, umirInstanceId
, umirIAMRole
, updateManagedInstanceRoleResponse
, UpdateManagedInstanceRoleResponse
, umirrsResponseStatus
) 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 UpdateManagedInstanceRole = UpdateManagedInstanceRole'
{ _umirInstanceId :: !Text
, _umirIAMRole :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateManagedInstanceRole
:: Text
-> Text
-> UpdateManagedInstanceRole
updateManagedInstanceRole pInstanceId_ pIAMRole_ =
UpdateManagedInstanceRole'
{_umirInstanceId = pInstanceId_, _umirIAMRole = pIAMRole_}
umirInstanceId :: Lens' UpdateManagedInstanceRole Text
umirInstanceId = lens _umirInstanceId (\ s a -> s{_umirInstanceId = a})
umirIAMRole :: Lens' UpdateManagedInstanceRole Text
umirIAMRole = lens _umirIAMRole (\ s a -> s{_umirIAMRole = a})
instance AWSRequest UpdateManagedInstanceRole where
type Rs UpdateManagedInstanceRole =
UpdateManagedInstanceRoleResponse
request = postJSON ssm
response
= receiveEmpty
(\ s h x ->
UpdateManagedInstanceRoleResponse' <$>
(pure (fromEnum s)))
instance Hashable UpdateManagedInstanceRole where
instance NFData UpdateManagedInstanceRole where
instance ToHeaders UpdateManagedInstanceRole where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.UpdateManagedInstanceRole" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateManagedInstanceRole where
toJSON UpdateManagedInstanceRole'{..}
= object
(catMaybes
[Just ("InstanceId" .= _umirInstanceId),
Just ("IamRole" .= _umirIAMRole)])
instance ToPath UpdateManagedInstanceRole where
toPath = const "/"
instance ToQuery UpdateManagedInstanceRole where
toQuery = const mempty
newtype UpdateManagedInstanceRoleResponse = UpdateManagedInstanceRoleResponse'
{ _umirrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateManagedInstanceRoleResponse
:: Int
-> UpdateManagedInstanceRoleResponse
updateManagedInstanceRoleResponse pResponseStatus_ =
UpdateManagedInstanceRoleResponse' {_umirrsResponseStatus = pResponseStatus_}
umirrsResponseStatus :: Lens' UpdateManagedInstanceRoleResponse Int
umirrsResponseStatus = lens _umirrsResponseStatus (\ s a -> s{_umirrsResponseStatus = a})
instance NFData UpdateManagedInstanceRoleResponse
where