module Network.AWS.EMR.ModifyInstanceGroups
(
ModifyInstanceGroups
, modifyInstanceGroups
, migInstanceGroups
, ModifyInstanceGroupsResponse
, modifyInstanceGroupsResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.EMR.Types
import qualified GHC.Exts
newtype ModifyInstanceGroups = ModifyInstanceGroups
{ _migInstanceGroups :: List "InstanceGroups" InstanceGroupModifyConfig
} deriving (Eq, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList ModifyInstanceGroups where
type Item ModifyInstanceGroups = InstanceGroupModifyConfig
fromList = ModifyInstanceGroups . GHC.Exts.fromList
toList = GHC.Exts.toList . _migInstanceGroups
modifyInstanceGroups :: ModifyInstanceGroups
modifyInstanceGroups = ModifyInstanceGroups
{ _migInstanceGroups = mempty
}
migInstanceGroups :: Lens' ModifyInstanceGroups [InstanceGroupModifyConfig]
migInstanceGroups =
lens _migInstanceGroups (\s a -> s { _migInstanceGroups = a })
. _List
data ModifyInstanceGroupsResponse = ModifyInstanceGroupsResponse
deriving (Eq, Ord, Read, Show, Generic)
modifyInstanceGroupsResponse :: ModifyInstanceGroupsResponse
modifyInstanceGroupsResponse = ModifyInstanceGroupsResponse
instance ToPath ModifyInstanceGroups where
toPath = const "/"
instance ToQuery ModifyInstanceGroups where
toQuery = const mempty
instance ToHeaders ModifyInstanceGroups
instance ToJSON ModifyInstanceGroups where
toJSON ModifyInstanceGroups{..} = object
[ "InstanceGroups" .= _migInstanceGroups
]
instance AWSRequest ModifyInstanceGroups where
type Sv ModifyInstanceGroups = EMR
type Rs ModifyInstanceGroups = ModifyInstanceGroupsResponse
request = post "ModifyInstanceGroups"
response = nullResponse ModifyInstanceGroupsResponse