{-# 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.WorkSpaces.RevokeIPRules
(
revokeIPRules
, RevokeIPRules
, rirGroupId
, rirUserRules
, revokeIPRulesResponse
, RevokeIPRulesResponse
, rirrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.WorkSpaces.Types
import Network.AWS.WorkSpaces.Types.Product
data RevokeIPRules = RevokeIPRules'
{ _rirGroupId :: !Text
, _rirUserRules :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
revokeIPRules
:: Text
-> RevokeIPRules
revokeIPRules pGroupId_ =
RevokeIPRules' {_rirGroupId = pGroupId_, _rirUserRules = mempty}
rirGroupId :: Lens' RevokeIPRules Text
rirGroupId = lens _rirGroupId (\ s a -> s{_rirGroupId = a})
rirUserRules :: Lens' RevokeIPRules [Text]
rirUserRules = lens _rirUserRules (\ s a -> s{_rirUserRules = a}) . _Coerce
instance AWSRequest RevokeIPRules where
type Rs RevokeIPRules = RevokeIPRulesResponse
request = postJSON workSpaces
response
= receiveEmpty
(\ s h x ->
RevokeIPRulesResponse' <$> (pure (fromEnum s)))
instance Hashable RevokeIPRules where
instance NFData RevokeIPRules where
instance ToHeaders RevokeIPRules where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("WorkspacesService.RevokeIpRules" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RevokeIPRules where
toJSON RevokeIPRules'{..}
= object
(catMaybes
[Just ("GroupId" .= _rirGroupId),
Just ("UserRules" .= _rirUserRules)])
instance ToPath RevokeIPRules where
toPath = const "/"
instance ToQuery RevokeIPRules where
toQuery = const mempty
newtype RevokeIPRulesResponse = RevokeIPRulesResponse'
{ _rirrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
revokeIPRulesResponse
:: Int
-> RevokeIPRulesResponse
revokeIPRulesResponse pResponseStatus_ =
RevokeIPRulesResponse' {_rirrsResponseStatus = pResponseStatus_}
rirrsResponseStatus :: Lens' RevokeIPRulesResponse Int
rirrsResponseStatus = lens _rirrsResponseStatus (\ s a -> s{_rirrsResponseStatus = a})
instance NFData RevokeIPRulesResponse where