module Network.AWS.IAM.RemoveUserFromGroup
(
RemoveUserFromGroup
, removeUserFromGroup
, rufgGroupName
, rufgUserName
, RemoveUserFromGroupResponse
, removeUserFromGroupResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data RemoveUserFromGroup = RemoveUserFromGroup
{ _rufgGroupName :: Text
, _rufgUserName :: Text
} deriving (Eq, Ord, Show)
removeUserFromGroup :: Text
-> Text
-> RemoveUserFromGroup
removeUserFromGroup p1 p2 = RemoveUserFromGroup
{ _rufgGroupName = p1
, _rufgUserName = p2
}
rufgGroupName :: Lens' RemoveUserFromGroup Text
rufgGroupName = lens _rufgGroupName (\s a -> s { _rufgGroupName = a })
rufgUserName :: Lens' RemoveUserFromGroup Text
rufgUserName = lens _rufgUserName (\s a -> s { _rufgUserName = a })
data RemoveUserFromGroupResponse = RemoveUserFromGroupResponse
deriving (Eq, Ord, Show, Generic)
removeUserFromGroupResponse :: RemoveUserFromGroupResponse
removeUserFromGroupResponse = RemoveUserFromGroupResponse
instance ToPath RemoveUserFromGroup where
toPath = const "/"
instance ToQuery RemoveUserFromGroup where
toQuery RemoveUserFromGroup{..} = mconcat
[ "GroupName" =? _rufgGroupName
, "UserName" =? _rufgUserName
]
instance ToHeaders RemoveUserFromGroup
instance AWSRequest RemoveUserFromGroup where
type Sv RemoveUserFromGroup = IAM
type Rs RemoveUserFromGroup = RemoveUserFromGroupResponse
request = post "RemoveUserFromGroup"
response = nullResponse RemoveUserFromGroupResponse