module Network.AWS.EC2.UnmonitorInstances
(
unmonitorInstances
, UnmonitorInstances
, uiDryRun
, uiInstanceIds
, unmonitorInstancesResponse
, UnmonitorInstancesResponse
, uirsInstanceMonitorings
, uirsStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UnmonitorInstances = UnmonitorInstances'
{ _uiDryRun :: !(Maybe Bool)
, _uiInstanceIds :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
unmonitorInstances
:: UnmonitorInstances
unmonitorInstances =
UnmonitorInstances'
{ _uiDryRun = Nothing
, _uiInstanceIds = mempty
}
uiDryRun :: Lens' UnmonitorInstances (Maybe Bool)
uiDryRun = lens _uiDryRun (\ s a -> s{_uiDryRun = a});
uiInstanceIds :: Lens' UnmonitorInstances [Text]
uiInstanceIds = lens _uiInstanceIds (\ s a -> s{_uiInstanceIds = a}) . _Coerce;
instance AWSRequest UnmonitorInstances where
type Sv UnmonitorInstances = EC2
type Rs UnmonitorInstances =
UnmonitorInstancesResponse
request = postQuery
response
= receiveXML
(\ s h x ->
UnmonitorInstancesResponse' <$>
(x .@? "instancesSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance ToHeaders UnmonitorInstances where
toHeaders = const mempty
instance ToPath UnmonitorInstances where
toPath = const "/"
instance ToQuery UnmonitorInstances where
toQuery UnmonitorInstances'{..}
= mconcat
["Action" =: ("UnmonitorInstances" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
"DryRun" =: _uiDryRun,
toQueryList "InstanceId" _uiInstanceIds]
data UnmonitorInstancesResponse = UnmonitorInstancesResponse'
{ _uirsInstanceMonitorings :: !(Maybe [InstanceMonitoring])
, _uirsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
unmonitorInstancesResponse
:: Int
-> UnmonitorInstancesResponse
unmonitorInstancesResponse pStatus_ =
UnmonitorInstancesResponse'
{ _uirsInstanceMonitorings = Nothing
, _uirsStatus = pStatus_
}
uirsInstanceMonitorings :: Lens' UnmonitorInstancesResponse [InstanceMonitoring]
uirsInstanceMonitorings = lens _uirsInstanceMonitorings (\ s a -> s{_uirsInstanceMonitorings = a}) . _Default . _Coerce;
uirsStatus :: Lens' UnmonitorInstancesResponse Int
uirsStatus = lens _uirsStatus (\ s a -> s{_uirsStatus = a});