{-# 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.ModifyHosts
(
modifyHosts
, ModifyHosts
, mhHostIds
, mhAutoPlacement
, modifyHostsResponse
, ModifyHostsResponse
, mhrsUnsuccessful
, mhrsSuccessful
, mhrsResponseStatus
) 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 ModifyHosts = ModifyHosts'
{ _mhHostIds :: ![Text]
, _mhAutoPlacement :: !AutoPlacement
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyHosts
:: AutoPlacement
-> ModifyHosts
modifyHosts pAutoPlacement_ =
ModifyHosts'
{ _mhHostIds = mempty
, _mhAutoPlacement = pAutoPlacement_
}
mhHostIds :: Lens' ModifyHosts [Text]
mhHostIds = lens _mhHostIds (\ s a -> s{_mhHostIds = a}) . _Coerce;
mhAutoPlacement :: Lens' ModifyHosts AutoPlacement
mhAutoPlacement = lens _mhAutoPlacement (\ s a -> s{_mhAutoPlacement = a});
instance AWSRequest ModifyHosts where
type Rs ModifyHosts = ModifyHostsResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
ModifyHostsResponse' <$>
(x .@? "unsuccessful" .!@ mempty >>=
may (parseXMLList "item"))
<*>
(x .@? "successful" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable ModifyHosts
instance NFData ModifyHosts
instance ToHeaders ModifyHosts where
toHeaders = const mempty
instance ToPath ModifyHosts where
toPath = const "/"
instance ToQuery ModifyHosts where
toQuery ModifyHosts'{..}
= mconcat
["Action" =: ("ModifyHosts" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
toQueryList "HostId" _mhHostIds,
"AutoPlacement" =: _mhAutoPlacement]
data ModifyHostsResponse = ModifyHostsResponse'
{ _mhrsUnsuccessful :: !(Maybe [UnsuccessfulItem])
, _mhrsSuccessful :: !(Maybe [Text])
, _mhrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
modifyHostsResponse
:: Int
-> ModifyHostsResponse
modifyHostsResponse pResponseStatus_ =
ModifyHostsResponse'
{ _mhrsUnsuccessful = Nothing
, _mhrsSuccessful = Nothing
, _mhrsResponseStatus = pResponseStatus_
}
mhrsUnsuccessful :: Lens' ModifyHostsResponse [UnsuccessfulItem]
mhrsUnsuccessful = lens _mhrsUnsuccessful (\ s a -> s{_mhrsUnsuccessful = a}) . _Default . _Coerce;
mhrsSuccessful :: Lens' ModifyHostsResponse [Text]
mhrsSuccessful = lens _mhrsSuccessful (\ s a -> s{_mhrsSuccessful = a}) . _Default . _Coerce;
mhrsResponseStatus :: Lens' ModifyHostsResponse Int
mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a});
instance NFData ModifyHostsResponse