{-# 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
instance NFData UpdateManagedInstanceRole
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