{-# 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.EC2.UnmonitorInstances
(
unmonitorInstances
, UnmonitorInstances
, uiDryRun
, uiInstanceIds
, unmonitorInstancesResponse
, UnmonitorInstancesResponse
, uirsInstanceMonitorings
, uirsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
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 Rs UnmonitorInstances =
UnmonitorInstancesResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
UnmonitorInstancesResponse' <$>
(x .@? "instancesSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable UnmonitorInstances where
instance NFData UnmonitorInstances where
instance ToHeaders UnmonitorInstances where
toHeaders = const mempty
instance ToPath UnmonitorInstances where
toPath = const "/"
instance ToQuery UnmonitorInstances where
toQuery UnmonitorInstances'{..}
= mconcat
["Action" =: ("UnmonitorInstances" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _uiDryRun,
toQueryList "InstanceId" _uiInstanceIds]
data UnmonitorInstancesResponse = UnmonitorInstancesResponse'
{ _uirsInstanceMonitorings :: !(Maybe [InstanceMonitoring])
, _uirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
unmonitorInstancesResponse
:: Int
-> UnmonitorInstancesResponse
unmonitorInstancesResponse pResponseStatus_ =
UnmonitorInstancesResponse'
{_uirsInstanceMonitorings = Nothing, _uirsResponseStatus = pResponseStatus_}
uirsInstanceMonitorings :: Lens' UnmonitorInstancesResponse [InstanceMonitoring]
uirsInstanceMonitorings = lens _uirsInstanceMonitorings (\ s a -> s{_uirsInstanceMonitorings = a}) . _Default . _Coerce
uirsResponseStatus :: Lens' UnmonitorInstancesResponse Int
uirsResponseStatus = lens _uirsResponseStatus (\ s a -> s{_uirsResponseStatus = a})
instance NFData UnmonitorInstancesResponse where