module Network.AWS.CodeDeploy.GetApplicationRevision
(
getApplicationRevision
, GetApplicationRevision
, garApplicationName
, garRevision
, getApplicationRevisionResponse
, GetApplicationRevisionResponse
, garrsApplicationName
, garrsRevisionInfo
, garrsRevision
, garrsResponseStatus
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetApplicationRevision = GetApplicationRevision'
{ _garApplicationName :: !Text
, _garRevision :: !RevisionLocation
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getApplicationRevision
:: Text
-> RevisionLocation
-> GetApplicationRevision
getApplicationRevision pApplicationName_ pRevision_ =
GetApplicationRevision'
{ _garApplicationName = pApplicationName_
, _garRevision = pRevision_
}
garApplicationName :: Lens' GetApplicationRevision Text
garApplicationName = lens _garApplicationName (\ s a -> s{_garApplicationName = a});
garRevision :: Lens' GetApplicationRevision RevisionLocation
garRevision = lens _garRevision (\ s a -> s{_garRevision = a});
instance AWSRequest GetApplicationRevision where
type Rs GetApplicationRevision =
GetApplicationRevisionResponse
request = postJSON codeDeploy
response
= receiveJSON
(\ s h x ->
GetApplicationRevisionResponse' <$>
(x .?> "applicationName") <*> (x .?> "revisionInfo")
<*> (x .?> "revision")
<*> (pure (fromEnum s)))
instance ToHeaders GetApplicationRevision where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.GetApplicationRevision" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetApplicationRevision where
toJSON GetApplicationRevision'{..}
= object
(catMaybes
[Just ("applicationName" .= _garApplicationName),
Just ("revision" .= _garRevision)])
instance ToPath GetApplicationRevision where
toPath = const "/"
instance ToQuery GetApplicationRevision where
toQuery = const mempty
data GetApplicationRevisionResponse = GetApplicationRevisionResponse'
{ _garrsApplicationName :: !(Maybe Text)
, _garrsRevisionInfo :: !(Maybe GenericRevisionInfo)
, _garrsRevision :: !(Maybe RevisionLocation)
, _garrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getApplicationRevisionResponse
:: Int
-> GetApplicationRevisionResponse
getApplicationRevisionResponse pResponseStatus_ =
GetApplicationRevisionResponse'
{ _garrsApplicationName = Nothing
, _garrsRevisionInfo = Nothing
, _garrsRevision = Nothing
, _garrsResponseStatus = pResponseStatus_
}
garrsApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text)
garrsApplicationName = lens _garrsApplicationName (\ s a -> s{_garrsApplicationName = a});
garrsRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)
garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a});
garrsRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation)
garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a});
garrsResponseStatus :: Lens' GetApplicationRevisionResponse Int
garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a});