module Network.AWS.CodeDeploy.RegisterApplicationRevision
(
registerApplicationRevision
, RegisterApplicationRevision
, rarDescription
, rarApplicationName
, rarRevision
, registerApplicationRevisionResponse
, RegisterApplicationRevisionResponse
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RegisterApplicationRevision = RegisterApplicationRevision'
{ _rarDescription :: !(Maybe Text)
, _rarApplicationName :: !Text
, _rarRevision :: !RevisionLocation
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerApplicationRevision
:: Text
-> RevisionLocation
-> RegisterApplicationRevision
registerApplicationRevision pApplicationName_ pRevision_ =
RegisterApplicationRevision'
{ _rarDescription = Nothing
, _rarApplicationName = pApplicationName_
, _rarRevision = pRevision_
}
rarDescription :: Lens' RegisterApplicationRevision (Maybe Text)
rarDescription = lens _rarDescription (\ s a -> s{_rarDescription = a});
rarApplicationName :: Lens' RegisterApplicationRevision Text
rarApplicationName = lens _rarApplicationName (\ s a -> s{_rarApplicationName = a});
rarRevision :: Lens' RegisterApplicationRevision RevisionLocation
rarRevision = lens _rarRevision (\ s a -> s{_rarRevision = a});
instance AWSRequest RegisterApplicationRevision where
type Rs RegisterApplicationRevision =
RegisterApplicationRevisionResponse
request = postJSON codeDeploy
response
= receiveNull RegisterApplicationRevisionResponse'
instance Hashable RegisterApplicationRevision
instance NFData RegisterApplicationRevision
instance ToHeaders RegisterApplicationRevision where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.RegisterApplicationRevision" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterApplicationRevision where
toJSON RegisterApplicationRevision'{..}
= object
(catMaybes
[("description" .=) <$> _rarDescription,
Just ("applicationName" .= _rarApplicationName),
Just ("revision" .= _rarRevision)])
instance ToPath RegisterApplicationRevision where
toPath = const "/"
instance ToQuery RegisterApplicationRevision where
toQuery = const mempty
data RegisterApplicationRevisionResponse =
RegisterApplicationRevisionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
registerApplicationRevisionResponse
:: RegisterApplicationRevisionResponse
registerApplicationRevisionResponse = RegisterApplicationRevisionResponse'
instance NFData RegisterApplicationRevisionResponse