{-# 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
, mhAutoPlacement
, mhHostIds
, 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'
{ _mhAutoPlacement :: !AutoPlacement
, _mhHostIds :: ![Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyHosts
:: AutoPlacement
-> ModifyHosts
modifyHosts pAutoPlacement_ =
ModifyHosts' {_mhAutoPlacement = pAutoPlacement_, _mhHostIds = mempty}
mhAutoPlacement :: Lens' ModifyHosts AutoPlacement
mhAutoPlacement = lens _mhAutoPlacement (\ s a -> s{_mhAutoPlacement = a})
mhHostIds :: Lens' ModifyHosts [Text]
mhHostIds = lens _mhHostIds (\ s a -> s{_mhHostIds = a}) . _Coerce
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 where
instance NFData ModifyHosts where
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-11-15" :: ByteString),
"AutoPlacement" =: _mhAutoPlacement,
toQueryList "HostId" _mhHostIds]
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 where