module Network.AWS.CodeCommit.Types.Product where
import Network.AWS.CodeCommit.Types.Sum
import Network.AWS.Prelude
data BranchInfo = BranchInfo'
{ _biCommitId :: !(Maybe Text)
, _biBranchName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
branchInfo
:: BranchInfo
branchInfo =
BranchInfo'
{ _biCommitId = Nothing
, _biBranchName = Nothing
}
biCommitId :: Lens' BranchInfo (Maybe Text)
biCommitId = lens _biCommitId (\ s a -> s{_biCommitId = a});
biBranchName :: Lens' BranchInfo (Maybe Text)
biBranchName = lens _biBranchName (\ s a -> s{_biBranchName = a});
instance FromJSON BranchInfo where
parseJSON
= withObject "BranchInfo"
(\ x ->
BranchInfo' <$>
(x .:? "commitId") <*> (x .:? "branchName"))
data RepositoryMetadata = RepositoryMetadata'
{ _rmRepositoryDescription :: !(Maybe Text)
, _rmLastModifiedDate :: !(Maybe POSIX)
, _rmARN :: !(Maybe Text)
, _rmCloneURLHTTP :: !(Maybe Text)
, _rmAccountId :: !(Maybe Text)
, _rmDefaultBranch :: !(Maybe Text)
, _rmRepositoryId :: !(Maybe Text)
, _rmCreationDate :: !(Maybe POSIX)
, _rmRepositoryName :: !(Maybe Text)
, _rmCloneURLSSH :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
repositoryMetadata
:: RepositoryMetadata
repositoryMetadata =
RepositoryMetadata'
{ _rmRepositoryDescription = Nothing
, _rmLastModifiedDate = Nothing
, _rmARN = Nothing
, _rmCloneURLHTTP = Nothing
, _rmAccountId = Nothing
, _rmDefaultBranch = Nothing
, _rmRepositoryId = Nothing
, _rmCreationDate = Nothing
, _rmRepositoryName = Nothing
, _rmCloneURLSSH = Nothing
}
rmRepositoryDescription :: Lens' RepositoryMetadata (Maybe Text)
rmRepositoryDescription = lens _rmRepositoryDescription (\ s a -> s{_rmRepositoryDescription = a});
rmLastModifiedDate :: Lens' RepositoryMetadata (Maybe UTCTime)
rmLastModifiedDate = lens _rmLastModifiedDate (\ s a -> s{_rmLastModifiedDate = a}) . mapping _Time;
rmARN :: Lens' RepositoryMetadata (Maybe Text)
rmARN = lens _rmARN (\ s a -> s{_rmARN = a});
rmCloneURLHTTP :: Lens' RepositoryMetadata (Maybe Text)
rmCloneURLHTTP = lens _rmCloneURLHTTP (\ s a -> s{_rmCloneURLHTTP = a});
rmAccountId :: Lens' RepositoryMetadata (Maybe Text)
rmAccountId = lens _rmAccountId (\ s a -> s{_rmAccountId = a});
rmDefaultBranch :: Lens' RepositoryMetadata (Maybe Text)
rmDefaultBranch = lens _rmDefaultBranch (\ s a -> s{_rmDefaultBranch = a});
rmRepositoryId :: Lens' RepositoryMetadata (Maybe Text)
rmRepositoryId = lens _rmRepositoryId (\ s a -> s{_rmRepositoryId = a});
rmCreationDate :: Lens' RepositoryMetadata (Maybe UTCTime)
rmCreationDate = lens _rmCreationDate (\ s a -> s{_rmCreationDate = a}) . mapping _Time;
rmRepositoryName :: Lens' RepositoryMetadata (Maybe Text)
rmRepositoryName = lens _rmRepositoryName (\ s a -> s{_rmRepositoryName = a});
rmCloneURLSSH :: Lens' RepositoryMetadata (Maybe Text)
rmCloneURLSSH = lens _rmCloneURLSSH (\ s a -> s{_rmCloneURLSSH = a});
instance FromJSON RepositoryMetadata where
parseJSON
= withObject "RepositoryMetadata"
(\ x ->
RepositoryMetadata' <$>
(x .:? "repositoryDescription") <*>
(x .:? "lastModifiedDate")
<*> (x .:? "Arn")
<*> (x .:? "cloneUrlHttp")
<*> (x .:? "accountId")
<*> (x .:? "defaultBranch")
<*> (x .:? "repositoryId")
<*> (x .:? "creationDate")
<*> (x .:? "repositoryName")
<*> (x .:? "cloneUrlSsh"))
data RepositoryNameIdPair = RepositoryNameIdPair'
{ _rnipRepositoryId :: !(Maybe Text)
, _rnipRepositoryName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
repositoryNameIdPair
:: RepositoryNameIdPair
repositoryNameIdPair =
RepositoryNameIdPair'
{ _rnipRepositoryId = Nothing
, _rnipRepositoryName = Nothing
}
rnipRepositoryId :: Lens' RepositoryNameIdPair (Maybe Text)
rnipRepositoryId = lens _rnipRepositoryId (\ s a -> s{_rnipRepositoryId = a});
rnipRepositoryName :: Lens' RepositoryNameIdPair (Maybe Text)
rnipRepositoryName = lens _rnipRepositoryName (\ s a -> s{_rnipRepositoryName = a});
instance FromJSON RepositoryNameIdPair where
parseJSON
= withObject "RepositoryNameIdPair"
(\ x ->
RepositoryNameIdPair' <$>
(x .:? "repositoryId") <*> (x .:? "repositoryName"))