module Network.AWS.CodeDeploy.RegisterApplicationRevision
(
RegisterApplicationRevision
, registerApplicationRevision
, rarApplicationName
, rarDescription
, rarRevision
, RegisterApplicationRevisionResponse
, registerApplicationRevisionResponse
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CodeDeploy.Types
import qualified GHC.Exts
data RegisterApplicationRevision = RegisterApplicationRevision
{ _rarApplicationName :: Text
, _rarDescription :: Maybe Text
, _rarRevision :: RevisionLocation
} deriving (Eq, Read, Show)
registerApplicationRevision :: Text
-> RevisionLocation
-> RegisterApplicationRevision
registerApplicationRevision p1 p2 = RegisterApplicationRevision
{ _rarApplicationName = p1
, _rarRevision = p2
, _rarDescription = Nothing
}
rarApplicationName :: Lens' RegisterApplicationRevision Text
rarApplicationName =
lens _rarApplicationName (\s a -> s { _rarApplicationName = a })
rarDescription :: Lens' RegisterApplicationRevision (Maybe Text)
rarDescription = lens _rarDescription (\s a -> s { _rarDescription = a })
rarRevision :: Lens' RegisterApplicationRevision RevisionLocation
rarRevision = lens _rarRevision (\s a -> s { _rarRevision = a })
data RegisterApplicationRevisionResponse = RegisterApplicationRevisionResponse
deriving (Eq, Ord, Read, Show, Generic)
registerApplicationRevisionResponse :: RegisterApplicationRevisionResponse
registerApplicationRevisionResponse = RegisterApplicationRevisionResponse
instance ToPath RegisterApplicationRevision where
toPath = const "/"
instance ToQuery RegisterApplicationRevision where
toQuery = const mempty
instance ToHeaders RegisterApplicationRevision
instance ToJSON RegisterApplicationRevision where
toJSON RegisterApplicationRevision{..} = object
[ "applicationName" .= _rarApplicationName
, "description" .= _rarDescription
, "revision" .= _rarRevision
]
instance AWSRequest RegisterApplicationRevision where
type Sv RegisterApplicationRevision = CodeDeploy
type Rs RegisterApplicationRevision = RegisterApplicationRevisionResponse
request = post "RegisterApplicationRevision"
response = nullResponse RegisterApplicationRevisionResponse