module Network.AWS.ECS.DeleteService
(
DeleteService
, deleteService
, dsCluster
, dsService
, DeleteServiceResponse
, deleteServiceResponse
, dsrService
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.ECS.Types
import qualified GHC.Exts
data DeleteService = DeleteService
{ _dsCluster :: Maybe Text
, _dsService :: Text
} deriving (Eq, Ord, Read, Show)
deleteService :: Text
-> DeleteService
deleteService p1 = DeleteService
{ _dsService = p1
, _dsCluster = Nothing
}
dsCluster :: Lens' DeleteService (Maybe Text)
dsCluster = lens _dsCluster (\s a -> s { _dsCluster = a })
dsService :: Lens' DeleteService Text
dsService = lens _dsService (\s a -> s { _dsService = a })
newtype DeleteServiceResponse = DeleteServiceResponse
{ _dsrService :: Maybe ContainerService
} deriving (Eq, Read, Show)
deleteServiceResponse :: DeleteServiceResponse
deleteServiceResponse = DeleteServiceResponse
{ _dsrService = Nothing
}
dsrService :: Lens' DeleteServiceResponse (Maybe ContainerService)
dsrService = lens _dsrService (\s a -> s { _dsrService = a })
instance ToPath DeleteService where
toPath = const "/"
instance ToQuery DeleteService where
toQuery = const mempty
instance ToHeaders DeleteService
instance ToJSON DeleteService where
toJSON DeleteService{..} = object
[ "cluster" .= _dsCluster
, "service" .= _dsService
]
instance AWSRequest DeleteService where
type Sv DeleteService = ECS
type Rs DeleteService = DeleteServiceResponse
request = post "DeleteService"
response = jsonResponse
instance FromJSON DeleteServiceResponse where
parseJSON = withObject "DeleteServiceResponse" $ \o -> DeleteServiceResponse
<$> o .:? "service"