module Network.AWS.CodeDeploy.DeleteDeploymentGroup
(
DeleteDeploymentGroup
, deleteDeploymentGroup
, ddgApplicationName
, ddgDeploymentGroupName
, DeleteDeploymentGroupResponse
, deleteDeploymentGroupResponse
, ddgrHooksNotCleanedUp
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CodeDeploy.Types
import qualified GHC.Exts
data DeleteDeploymentGroup = DeleteDeploymentGroup
{ _ddgApplicationName :: Text
, _ddgDeploymentGroupName :: Text
} deriving (Eq, Ord, Show)
deleteDeploymentGroup :: Text
-> Text
-> DeleteDeploymentGroup
deleteDeploymentGroup p1 p2 = DeleteDeploymentGroup
{ _ddgApplicationName = p1
, _ddgDeploymentGroupName = p2
}
ddgApplicationName :: Lens' DeleteDeploymentGroup Text
ddgApplicationName =
lens _ddgApplicationName (\s a -> s { _ddgApplicationName = a })
ddgDeploymentGroupName :: Lens' DeleteDeploymentGroup Text
ddgDeploymentGroupName =
lens _ddgDeploymentGroupName (\s a -> s { _ddgDeploymentGroupName = a })
newtype DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse
{ _ddgrHooksNotCleanedUp :: List "autoScalingGroups" AutoScalingGroup
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DeleteDeploymentGroupResponse where
type Item DeleteDeploymentGroupResponse = AutoScalingGroup
fromList = DeleteDeploymentGroupResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _ddgrHooksNotCleanedUp
deleteDeploymentGroupResponse :: DeleteDeploymentGroupResponse
deleteDeploymentGroupResponse = DeleteDeploymentGroupResponse
{ _ddgrHooksNotCleanedUp = mempty
}
ddgrHooksNotCleanedUp :: Lens' DeleteDeploymentGroupResponse [AutoScalingGroup]
ddgrHooksNotCleanedUp =
lens _ddgrHooksNotCleanedUp (\s a -> s { _ddgrHooksNotCleanedUp = a })
. _List
instance ToPath DeleteDeploymentGroup where
toPath = const "/"
instance ToQuery DeleteDeploymentGroup where
toQuery = const mempty
instance ToHeaders DeleteDeploymentGroup
instance ToJSON DeleteDeploymentGroup where
toJSON DeleteDeploymentGroup{..} = object
[ "applicationName" .= _ddgApplicationName
, "deploymentGroupName" .= _ddgDeploymentGroupName
]
instance AWSRequest DeleteDeploymentGroup where
type Sv DeleteDeploymentGroup = CodeDeploy
type Rs DeleteDeploymentGroup = DeleteDeploymentGroupResponse
request = post "DeleteDeploymentGroup"
response = jsonResponse
instance FromJSON DeleteDeploymentGroupResponse where
parseJSON = withObject "DeleteDeploymentGroupResponse" $ \o -> DeleteDeploymentGroupResponse
<$> o .: "hooksNotCleanedUp"