module Network.AWS.CodeDeploy.GetApplicationRevision
(
getApplicationRevision
, GetApplicationRevision
, garApplicationName
, garRevision
, getApplicationRevisionResponse
, GetApplicationRevisionResponse
, garrsRevisionInfo
, garrsApplicationName
, garrsRevision
, garrsStatus
) 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 Sv GetApplicationRevision = CodeDeploy
type Rs GetApplicationRevision =
GetApplicationRevisionResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
GetApplicationRevisionResponse' <$>
(x .?> "revisionInfo") <*> (x .?> "applicationName")
<*> (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
["applicationName" .= _garApplicationName,
"revision" .= _garRevision]
instance ToPath GetApplicationRevision where
toPath = const "/"
instance ToQuery GetApplicationRevision where
toQuery = const mempty
data GetApplicationRevisionResponse = GetApplicationRevisionResponse'
{ _garrsRevisionInfo :: !(Maybe GenericRevisionInfo)
, _garrsApplicationName :: !(Maybe Text)
, _garrsRevision :: !(Maybe RevisionLocation)
, _garrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getApplicationRevisionResponse
:: Int
-> GetApplicationRevisionResponse
getApplicationRevisionResponse pStatus_ =
GetApplicationRevisionResponse'
{ _garrsRevisionInfo = Nothing
, _garrsApplicationName = Nothing
, _garrsRevision = Nothing
, _garrsStatus = pStatus_
}
garrsRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)
garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a});
garrsApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text)
garrsApplicationName = lens _garrsApplicationName (\ s a -> s{_garrsApplicationName = a});
garrsRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation)
garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a});
garrsStatus :: Lens' GetApplicationRevisionResponse Int
garrsStatus = lens _garrsStatus (\ s a -> s{_garrsStatus = a});