module Network.AWS.AppStream.StopFleet
(
stopFleet
, StopFleet
, sfName
, stopFleetResponse
, StopFleetResponse
, storsResponseStatus
) where
import Network.AWS.AppStream.Types
import Network.AWS.AppStream.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype StopFleet = StopFleet'
{ _sfName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopFleet
:: Text
-> StopFleet
stopFleet pName_ = StopFleet' {_sfName = pName_}
sfName :: Lens' StopFleet Text
sfName = lens _sfName (\ s a -> s{_sfName = a});
instance AWSRequest StopFleet where
type Rs StopFleet = StopFleetResponse
request = postJSON appStream
response
= receiveEmpty
(\ s h x ->
StopFleetResponse' <$> (pure (fromEnum s)))
instance Hashable StopFleet where
instance NFData StopFleet where
instance ToHeaders StopFleet where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("PhotonAdminProxyService.StopFleet" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON StopFleet where
toJSON StopFleet'{..}
= object (catMaybes [Just ("Name" .= _sfName)])
instance ToPath StopFleet where
toPath = const "/"
instance ToQuery StopFleet where
toQuery = const mempty
newtype StopFleetResponse = StopFleetResponse'
{ _storsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopFleetResponse
:: Int
-> StopFleetResponse
stopFleetResponse pResponseStatus_ =
StopFleetResponse' {_storsResponseStatus = pResponseStatus_}
storsResponseStatus :: Lens' StopFleetResponse Int
storsResponseStatus = lens _storsResponseStatus (\ s a -> s{_storsResponseStatus = a});
instance NFData StopFleetResponse where