module Network.AWS.CodeDeploy.DeleteApplication
(
DeleteApplication
, deleteApplication
, daApplicationName
, DeleteApplicationResponse
, deleteApplicationResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CodeDeploy.Types
import qualified GHC.Exts
newtype DeleteApplication = DeleteApplication
{ _daApplicationName :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deleteApplication :: Text
-> DeleteApplication
deleteApplication p1 = DeleteApplication
{ _daApplicationName = p1
}
daApplicationName :: Lens' DeleteApplication Text
daApplicationName =
lens _daApplicationName (\s a -> s { _daApplicationName = a })
data DeleteApplicationResponse = DeleteApplicationResponse
deriving (Eq, Ord, Show, Generic)
deleteApplicationResponse :: DeleteApplicationResponse
deleteApplicationResponse = DeleteApplicationResponse
instance ToPath DeleteApplication where
toPath = const "/"
instance ToQuery DeleteApplication where
toQuery = const mempty
instance ToHeaders DeleteApplication
instance ToJSON DeleteApplication where
toJSON DeleteApplication{..} = object
[ "applicationName" .= _daApplicationName
]
instance AWSRequest DeleteApplication where
type Sv DeleteApplication = CodeDeploy
type Rs DeleteApplication = DeleteApplicationResponse
request = post "DeleteApplication"
response = nullResponse DeleteApplicationResponse