{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.CodePipeline.Types.Product where
import Network.AWS.CodePipeline.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
data AWSSessionCredentials = AWSSessionCredentials'
{ _ascAccessKeyId :: !Text
, _ascSecretAccessKey :: !Text
, _ascSessionToken :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
awsSessionCredentials
:: Text
-> Text
-> Text
-> AWSSessionCredentials
awsSessionCredentials pAccessKeyId_ pSecretAccessKey_ pSessionToken_ =
AWSSessionCredentials'
{ _ascAccessKeyId = pAccessKeyId_
, _ascSecretAccessKey = pSecretAccessKey_
, _ascSessionToken = pSessionToken_
}
ascAccessKeyId :: Lens' AWSSessionCredentials Text
ascAccessKeyId = lens _ascAccessKeyId (\ s a -> s{_ascAccessKeyId = a});
ascSecretAccessKey :: Lens' AWSSessionCredentials Text
ascSecretAccessKey = lens _ascSecretAccessKey (\ s a -> s{_ascSecretAccessKey = a});
ascSessionToken :: Lens' AWSSessionCredentials Text
ascSessionToken = lens _ascSessionToken (\ s a -> s{_ascSessionToken = a});
instance FromJSON AWSSessionCredentials where
parseJSON
= withObject "AWSSessionCredentials"
(\ x ->
AWSSessionCredentials' <$>
(x .: "accessKeyId") <*> (x .: "secretAccessKey") <*>
(x .: "sessionToken"))
instance Hashable AWSSessionCredentials
instance NFData AWSSessionCredentials
newtype ActionConfiguration = ActionConfiguration'
{ _acConfiguration :: Maybe (Map Text Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionConfiguration
:: ActionConfiguration
actionConfiguration =
ActionConfiguration'
{ _acConfiguration = Nothing
}
acConfiguration :: Lens' ActionConfiguration (HashMap Text Text)
acConfiguration = lens _acConfiguration (\ s a -> s{_acConfiguration = a}) . _Default . _Map;
instance FromJSON ActionConfiguration where
parseJSON
= withObject "ActionConfiguration"
(\ x ->
ActionConfiguration' <$>
(x .:? "configuration" .!= mempty))
instance Hashable ActionConfiguration
instance NFData ActionConfiguration
data ActionConfigurationProperty = ActionConfigurationProperty'
{ _acpQueryable :: !(Maybe Bool)
, _acpType :: !(Maybe ActionConfigurationPropertyType)
, _acpDescription :: !(Maybe Text)
, _acpName :: !Text
, _acpRequired :: !Bool
, _acpKey :: !Bool
, _acpSecret :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionConfigurationProperty
:: Text
-> Bool
-> Bool
-> Bool
-> ActionConfigurationProperty
actionConfigurationProperty pName_ pRequired_ pKey_ pSecret_ =
ActionConfigurationProperty'
{ _acpQueryable = Nothing
, _acpType = Nothing
, _acpDescription = Nothing
, _acpName = pName_
, _acpRequired = pRequired_
, _acpKey = pKey_
, _acpSecret = pSecret_
}
acpQueryable :: Lens' ActionConfigurationProperty (Maybe Bool)
acpQueryable = lens _acpQueryable (\ s a -> s{_acpQueryable = a});
acpType :: Lens' ActionConfigurationProperty (Maybe ActionConfigurationPropertyType)
acpType = lens _acpType (\ s a -> s{_acpType = a});
acpDescription :: Lens' ActionConfigurationProperty (Maybe Text)
acpDescription = lens _acpDescription (\ s a -> s{_acpDescription = a});
acpName :: Lens' ActionConfigurationProperty Text
acpName = lens _acpName (\ s a -> s{_acpName = a});
acpRequired :: Lens' ActionConfigurationProperty Bool
acpRequired = lens _acpRequired (\ s a -> s{_acpRequired = a});
acpKey :: Lens' ActionConfigurationProperty Bool
acpKey = lens _acpKey (\ s a -> s{_acpKey = a});
acpSecret :: Lens' ActionConfigurationProperty Bool
acpSecret = lens _acpSecret (\ s a -> s{_acpSecret = a});
instance FromJSON ActionConfigurationProperty where
parseJSON
= withObject "ActionConfigurationProperty"
(\ x ->
ActionConfigurationProperty' <$>
(x .:? "queryable") <*> (x .:? "type") <*>
(x .:? "description")
<*> (x .: "name")
<*> (x .: "required")
<*> (x .: "key")
<*> (x .: "secret"))
instance Hashable ActionConfigurationProperty
instance NFData ActionConfigurationProperty
instance ToJSON ActionConfigurationProperty where
toJSON ActionConfigurationProperty'{..}
= object
(catMaybes
[("queryable" .=) <$> _acpQueryable,
("type" .=) <$> _acpType,
("description" .=) <$> _acpDescription,
Just ("name" .= _acpName),
Just ("required" .= _acpRequired),
Just ("key" .= _acpKey),
Just ("secret" .= _acpSecret)])
newtype ActionContext = ActionContext'
{ _acName :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionContext
:: ActionContext
actionContext =
ActionContext'
{ _acName = Nothing
}
acName :: Lens' ActionContext (Maybe Text)
acName = lens _acName (\ s a -> s{_acName = a});
instance FromJSON ActionContext where
parseJSON
= withObject "ActionContext"
(\ x -> ActionContext' <$> (x .:? "name"))
instance Hashable ActionContext
instance NFData ActionContext
data ActionDeclaration = ActionDeclaration'
{ _adOutputArtifacts :: !(Maybe [OutputArtifact])
, _adRunOrder :: !(Maybe Nat)
, _adConfiguration :: !(Maybe (Map Text Text))
, _adInputArtifacts :: !(Maybe [InputArtifact])
, _adRoleARN :: !(Maybe Text)
, _adName :: !Text
, _adActionTypeId :: !ActionTypeId
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionDeclaration
:: Text
-> ActionTypeId
-> ActionDeclaration
actionDeclaration pName_ pActionTypeId_ =
ActionDeclaration'
{ _adOutputArtifacts = Nothing
, _adRunOrder = Nothing
, _adConfiguration = Nothing
, _adInputArtifacts = Nothing
, _adRoleARN = Nothing
, _adName = pName_
, _adActionTypeId = pActionTypeId_
}
adOutputArtifacts :: Lens' ActionDeclaration [OutputArtifact]
adOutputArtifacts = lens _adOutputArtifacts (\ s a -> s{_adOutputArtifacts = a}) . _Default . _Coerce;
adRunOrder :: Lens' ActionDeclaration (Maybe Natural)
adRunOrder = lens _adRunOrder (\ s a -> s{_adRunOrder = a}) . mapping _Nat;
adConfiguration :: Lens' ActionDeclaration (HashMap Text Text)
adConfiguration = lens _adConfiguration (\ s a -> s{_adConfiguration = a}) . _Default . _Map;
adInputArtifacts :: Lens' ActionDeclaration [InputArtifact]
adInputArtifacts = lens _adInputArtifacts (\ s a -> s{_adInputArtifacts = a}) . _Default . _Coerce;
adRoleARN :: Lens' ActionDeclaration (Maybe Text)
adRoleARN = lens _adRoleARN (\ s a -> s{_adRoleARN = a});
adName :: Lens' ActionDeclaration Text
adName = lens _adName (\ s a -> s{_adName = a});
adActionTypeId :: Lens' ActionDeclaration ActionTypeId
adActionTypeId = lens _adActionTypeId (\ s a -> s{_adActionTypeId = a});
instance FromJSON ActionDeclaration where
parseJSON
= withObject "ActionDeclaration"
(\ x ->
ActionDeclaration' <$>
(x .:? "outputArtifacts" .!= mempty) <*>
(x .:? "runOrder")
<*> (x .:? "configuration" .!= mempty)
<*> (x .:? "inputArtifacts" .!= mempty)
<*> (x .:? "roleArn")
<*> (x .: "name")
<*> (x .: "actionTypeId"))
instance Hashable ActionDeclaration
instance NFData ActionDeclaration
instance ToJSON ActionDeclaration where
toJSON ActionDeclaration'{..}
= object
(catMaybes
[("outputArtifacts" .=) <$> _adOutputArtifacts,
("runOrder" .=) <$> _adRunOrder,
("configuration" .=) <$> _adConfiguration,
("inputArtifacts" .=) <$> _adInputArtifacts,
("roleArn" .=) <$> _adRoleARN,
Just ("name" .= _adName),
Just ("actionTypeId" .= _adActionTypeId)])
data ActionExecution = ActionExecution'
{ _aeLastUpdatedBy :: !(Maybe Text)
, _aeSummary :: !(Maybe Text)
, _aeStatus :: !(Maybe ActionExecutionStatus)
, _aeLastStatusChange :: !(Maybe POSIX)
, _aeToken :: !(Maybe Text)
, _aeExternalExecutionURL :: !(Maybe Text)
, _aeExternalExecutionId :: !(Maybe Text)
, _aeErrorDetails :: !(Maybe ErrorDetails)
, _aePercentComplete :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionExecution
:: ActionExecution
actionExecution =
ActionExecution'
{ _aeLastUpdatedBy = Nothing
, _aeSummary = Nothing
, _aeStatus = Nothing
, _aeLastStatusChange = Nothing
, _aeToken = Nothing
, _aeExternalExecutionURL = Nothing
, _aeExternalExecutionId = Nothing
, _aeErrorDetails = Nothing
, _aePercentComplete = Nothing
}
aeLastUpdatedBy :: Lens' ActionExecution (Maybe Text)
aeLastUpdatedBy = lens _aeLastUpdatedBy (\ s a -> s{_aeLastUpdatedBy = a});
aeSummary :: Lens' ActionExecution (Maybe Text)
aeSummary = lens _aeSummary (\ s a -> s{_aeSummary = a});
aeStatus :: Lens' ActionExecution (Maybe ActionExecutionStatus)
aeStatus = lens _aeStatus (\ s a -> s{_aeStatus = a});
aeLastStatusChange :: Lens' ActionExecution (Maybe UTCTime)
aeLastStatusChange = lens _aeLastStatusChange (\ s a -> s{_aeLastStatusChange = a}) . mapping _Time;
aeToken :: Lens' ActionExecution (Maybe Text)
aeToken = lens _aeToken (\ s a -> s{_aeToken = a});
aeExternalExecutionURL :: Lens' ActionExecution (Maybe Text)
aeExternalExecutionURL = lens _aeExternalExecutionURL (\ s a -> s{_aeExternalExecutionURL = a});
aeExternalExecutionId :: Lens' ActionExecution (Maybe Text)
aeExternalExecutionId = lens _aeExternalExecutionId (\ s a -> s{_aeExternalExecutionId = a});
aeErrorDetails :: Lens' ActionExecution (Maybe ErrorDetails)
aeErrorDetails = lens _aeErrorDetails (\ s a -> s{_aeErrorDetails = a});
aePercentComplete :: Lens' ActionExecution (Maybe Natural)
aePercentComplete = lens _aePercentComplete (\ s a -> s{_aePercentComplete = a}) . mapping _Nat;
instance FromJSON ActionExecution where
parseJSON
= withObject "ActionExecution"
(\ x ->
ActionExecution' <$>
(x .:? "lastUpdatedBy") <*> (x .:? "summary") <*>
(x .:? "status")
<*> (x .:? "lastStatusChange")
<*> (x .:? "token")
<*> (x .:? "externalExecutionUrl")
<*> (x .:? "externalExecutionId")
<*> (x .:? "errorDetails")
<*> (x .:? "percentComplete"))
instance Hashable ActionExecution
instance NFData ActionExecution
data ActionRevision = ActionRevision'
{ _aRevisionId :: !Text
, _aRevisionChangeId :: !Text
, _aCreated :: !POSIX
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionRevision
:: Text
-> Text
-> UTCTime
-> ActionRevision
actionRevision pRevisionId_ pRevisionChangeId_ pCreated_ =
ActionRevision'
{ _aRevisionId = pRevisionId_
, _aRevisionChangeId = pRevisionChangeId_
, _aCreated = _Time # pCreated_
}
aRevisionId :: Lens' ActionRevision Text
aRevisionId = lens _aRevisionId (\ s a -> s{_aRevisionId = a});
aRevisionChangeId :: Lens' ActionRevision Text
aRevisionChangeId = lens _aRevisionChangeId (\ s a -> s{_aRevisionChangeId = a});
aCreated :: Lens' ActionRevision UTCTime
aCreated = lens _aCreated (\ s a -> s{_aCreated = a}) . _Time;
instance FromJSON ActionRevision where
parseJSON
= withObject "ActionRevision"
(\ x ->
ActionRevision' <$>
(x .: "revisionId") <*> (x .: "revisionChangeId") <*>
(x .: "created"))
instance Hashable ActionRevision
instance NFData ActionRevision
instance ToJSON ActionRevision where
toJSON ActionRevision'{..}
= object
(catMaybes
[Just ("revisionId" .= _aRevisionId),
Just ("revisionChangeId" .= _aRevisionChangeId),
Just ("created" .= _aCreated)])
data ActionState = ActionState'
{ _asRevisionURL :: !(Maybe Text)
, _asEntityURL :: !(Maybe Text)
, _asActionName :: !(Maybe Text)
, _asCurrentRevision :: !(Maybe ActionRevision)
, _asLatestExecution :: !(Maybe ActionExecution)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionState
:: ActionState
actionState =
ActionState'
{ _asRevisionURL = Nothing
, _asEntityURL = Nothing
, _asActionName = Nothing
, _asCurrentRevision = Nothing
, _asLatestExecution = Nothing
}
asRevisionURL :: Lens' ActionState (Maybe Text)
asRevisionURL = lens _asRevisionURL (\ s a -> s{_asRevisionURL = a});
asEntityURL :: Lens' ActionState (Maybe Text)
asEntityURL = lens _asEntityURL (\ s a -> s{_asEntityURL = a});
asActionName :: Lens' ActionState (Maybe Text)
asActionName = lens _asActionName (\ s a -> s{_asActionName = a});
asCurrentRevision :: Lens' ActionState (Maybe ActionRevision)
asCurrentRevision = lens _asCurrentRevision (\ s a -> s{_asCurrentRevision = a});
asLatestExecution :: Lens' ActionState (Maybe ActionExecution)
asLatestExecution = lens _asLatestExecution (\ s a -> s{_asLatestExecution = a});
instance FromJSON ActionState where
parseJSON
= withObject "ActionState"
(\ x ->
ActionState' <$>
(x .:? "revisionUrl") <*> (x .:? "entityUrl") <*>
(x .:? "actionName")
<*> (x .:? "currentRevision")
<*> (x .:? "latestExecution"))
instance Hashable ActionState
instance NFData ActionState
data ActionType = ActionType'
{ _atSettings :: !(Maybe ActionTypeSettings)
, _atActionConfigurationProperties :: !(Maybe [ActionConfigurationProperty])
, _atId :: !ActionTypeId
, _atInputArtifactDetails :: !ArtifactDetails
, _atOutputArtifactDetails :: !ArtifactDetails
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionType
:: ActionTypeId
-> ArtifactDetails
-> ArtifactDetails
-> ActionType
actionType pId_ pInputArtifactDetails_ pOutputArtifactDetails_ =
ActionType'
{ _atSettings = Nothing
, _atActionConfigurationProperties = Nothing
, _atId = pId_
, _atInputArtifactDetails = pInputArtifactDetails_
, _atOutputArtifactDetails = pOutputArtifactDetails_
}
atSettings :: Lens' ActionType (Maybe ActionTypeSettings)
atSettings = lens _atSettings (\ s a -> s{_atSettings = a});
atActionConfigurationProperties :: Lens' ActionType [ActionConfigurationProperty]
atActionConfigurationProperties = lens _atActionConfigurationProperties (\ s a -> s{_atActionConfigurationProperties = a}) . _Default . _Coerce;
atId :: Lens' ActionType ActionTypeId
atId = lens _atId (\ s a -> s{_atId = a});
atInputArtifactDetails :: Lens' ActionType ArtifactDetails
atInputArtifactDetails = lens _atInputArtifactDetails (\ s a -> s{_atInputArtifactDetails = a});
atOutputArtifactDetails :: Lens' ActionType ArtifactDetails
atOutputArtifactDetails = lens _atOutputArtifactDetails (\ s a -> s{_atOutputArtifactDetails = a});
instance FromJSON ActionType where
parseJSON
= withObject "ActionType"
(\ x ->
ActionType' <$>
(x .:? "settings") <*>
(x .:? "actionConfigurationProperties" .!= mempty)
<*> (x .: "id")
<*> (x .: "inputArtifactDetails")
<*> (x .: "outputArtifactDetails"))
instance Hashable ActionType
instance NFData ActionType
data ActionTypeId = ActionTypeId'
{ _atiCategory :: !ActionCategory
, _atiOwner :: !ActionOwner
, _atiProvider :: !Text
, _atiVersion :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionTypeId
:: ActionCategory
-> ActionOwner
-> Text
-> Text
-> ActionTypeId
actionTypeId pCategory_ pOwner_ pProvider_ pVersion_ =
ActionTypeId'
{ _atiCategory = pCategory_
, _atiOwner = pOwner_
, _atiProvider = pProvider_
, _atiVersion = pVersion_
}
atiCategory :: Lens' ActionTypeId ActionCategory
atiCategory = lens _atiCategory (\ s a -> s{_atiCategory = a});
atiOwner :: Lens' ActionTypeId ActionOwner
atiOwner = lens _atiOwner (\ s a -> s{_atiOwner = a});
atiProvider :: Lens' ActionTypeId Text
atiProvider = lens _atiProvider (\ s a -> s{_atiProvider = a});
atiVersion :: Lens' ActionTypeId Text
atiVersion = lens _atiVersion (\ s a -> s{_atiVersion = a});
instance FromJSON ActionTypeId where
parseJSON
= withObject "ActionTypeId"
(\ x ->
ActionTypeId' <$>
(x .: "category") <*> (x .: "owner") <*>
(x .: "provider")
<*> (x .: "version"))
instance Hashable ActionTypeId
instance NFData ActionTypeId
instance ToJSON ActionTypeId where
toJSON ActionTypeId'{..}
= object
(catMaybes
[Just ("category" .= _atiCategory),
Just ("owner" .= _atiOwner),
Just ("provider" .= _atiProvider),
Just ("version" .= _atiVersion)])
data ActionTypeSettings = ActionTypeSettings'
{ _atsThirdPartyConfigurationURL :: !(Maybe Text)
, _atsExecutionURLTemplate :: !(Maybe Text)
, _atsRevisionURLTemplate :: !(Maybe Text)
, _atsEntityURLTemplate :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
actionTypeSettings
:: ActionTypeSettings
actionTypeSettings =
ActionTypeSettings'
{ _atsThirdPartyConfigurationURL = Nothing
, _atsExecutionURLTemplate = Nothing
, _atsRevisionURLTemplate = Nothing
, _atsEntityURLTemplate = Nothing
}
atsThirdPartyConfigurationURL :: Lens' ActionTypeSettings (Maybe Text)
atsThirdPartyConfigurationURL = lens _atsThirdPartyConfigurationURL (\ s a -> s{_atsThirdPartyConfigurationURL = a});
atsExecutionURLTemplate :: Lens' ActionTypeSettings (Maybe Text)
atsExecutionURLTemplate = lens _atsExecutionURLTemplate (\ s a -> s{_atsExecutionURLTemplate = a});
atsRevisionURLTemplate :: Lens' ActionTypeSettings (Maybe Text)
atsRevisionURLTemplate = lens _atsRevisionURLTemplate (\ s a -> s{_atsRevisionURLTemplate = a});
atsEntityURLTemplate :: Lens' ActionTypeSettings (Maybe Text)
atsEntityURLTemplate = lens _atsEntityURLTemplate (\ s a -> s{_atsEntityURLTemplate = a});
instance FromJSON ActionTypeSettings where
parseJSON
= withObject "ActionTypeSettings"
(\ x ->
ActionTypeSettings' <$>
(x .:? "thirdPartyConfigurationUrl") <*>
(x .:? "executionUrlTemplate")
<*> (x .:? "revisionUrlTemplate")
<*> (x .:? "entityUrlTemplate"))
instance Hashable ActionTypeSettings
instance NFData ActionTypeSettings
instance ToJSON ActionTypeSettings where
toJSON ActionTypeSettings'{..}
= object
(catMaybes
[("thirdPartyConfigurationUrl" .=) <$>
_atsThirdPartyConfigurationURL,
("executionUrlTemplate" .=) <$>
_atsExecutionURLTemplate,
("revisionUrlTemplate" .=) <$>
_atsRevisionURLTemplate,
("entityUrlTemplate" .=) <$> _atsEntityURLTemplate])
data ApprovalResult = ApprovalResult'
{ _arSummary :: !Text
, _arStatus :: !ApprovalStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
approvalResult
:: Text
-> ApprovalStatus
-> ApprovalResult
approvalResult pSummary_ pStatus_ =
ApprovalResult'
{ _arSummary = pSummary_
, _arStatus = pStatus_
}
arSummary :: Lens' ApprovalResult Text
arSummary = lens _arSummary (\ s a -> s{_arSummary = a});
arStatus :: Lens' ApprovalResult ApprovalStatus
arStatus = lens _arStatus (\ s a -> s{_arStatus = a});
instance Hashable ApprovalResult
instance NFData ApprovalResult
instance ToJSON ApprovalResult where
toJSON ApprovalResult'{..}
= object
(catMaybes
[Just ("summary" .= _arSummary),
Just ("status" .= _arStatus)])
data Artifact = Artifact'
{ _aLocation :: !(Maybe ArtifactLocation)
, _aName :: !(Maybe Text)
, _aRevision :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
artifact
:: Artifact
artifact =
Artifact'
{ _aLocation = Nothing
, _aName = Nothing
, _aRevision = Nothing
}
aLocation :: Lens' Artifact (Maybe ArtifactLocation)
aLocation = lens _aLocation (\ s a -> s{_aLocation = a});
aName :: Lens' Artifact (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a});
aRevision :: Lens' Artifact (Maybe Text)
aRevision = lens _aRevision (\ s a -> s{_aRevision = a});
instance FromJSON Artifact where
parseJSON
= withObject "Artifact"
(\ x ->
Artifact' <$>
(x .:? "location") <*> (x .:? "name") <*>
(x .:? "revision"))
instance Hashable Artifact
instance NFData Artifact
data ArtifactDetails = ArtifactDetails'
{ _adMinimumCount :: !Nat
, _adMaximumCount :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
artifactDetails
:: Natural
-> Natural
-> ArtifactDetails
artifactDetails pMinimumCount_ pMaximumCount_ =
ArtifactDetails'
{ _adMinimumCount = _Nat # pMinimumCount_
, _adMaximumCount = _Nat # pMaximumCount_
}
adMinimumCount :: Lens' ArtifactDetails Natural
adMinimumCount = lens _adMinimumCount (\ s a -> s{_adMinimumCount = a}) . _Nat;
adMaximumCount :: Lens' ArtifactDetails Natural
adMaximumCount = lens _adMaximumCount (\ s a -> s{_adMaximumCount = a}) . _Nat;
instance FromJSON ArtifactDetails where
parseJSON
= withObject "ArtifactDetails"
(\ x ->
ArtifactDetails' <$>
(x .: "minimumCount") <*> (x .: "maximumCount"))
instance Hashable ArtifactDetails
instance NFData ArtifactDetails
instance ToJSON ArtifactDetails where
toJSON ArtifactDetails'{..}
= object
(catMaybes
[Just ("minimumCount" .= _adMinimumCount),
Just ("maximumCount" .= _adMaximumCount)])
data ArtifactLocation = ArtifactLocation'
{ _alS3Location :: !(Maybe S3ArtifactLocation)
, _alType :: !(Maybe ArtifactLocationType)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
artifactLocation
:: ArtifactLocation
artifactLocation =
ArtifactLocation'
{ _alS3Location = Nothing
, _alType = Nothing
}
alS3Location :: Lens' ArtifactLocation (Maybe S3ArtifactLocation)
alS3Location = lens _alS3Location (\ s a -> s{_alS3Location = a});
alType :: Lens' ArtifactLocation (Maybe ArtifactLocationType)
alType = lens _alType (\ s a -> s{_alType = a});
instance FromJSON ArtifactLocation where
parseJSON
= withObject "ArtifactLocation"
(\ x ->
ArtifactLocation' <$>
(x .:? "s3Location") <*> (x .:? "type"))
instance Hashable ArtifactLocation
instance NFData ArtifactLocation
data ArtifactRevision = ArtifactRevision'
{ _arRevisionSummary :: !(Maybe Text)
, _arRevisionURL :: !(Maybe Text)
, _arCreated :: !(Maybe POSIX)
, _arName :: !(Maybe Text)
, _arRevisionId :: !(Maybe Text)
, _arRevisionChangeIdentifier :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
artifactRevision
:: ArtifactRevision
artifactRevision =
ArtifactRevision'
{ _arRevisionSummary = Nothing
, _arRevisionURL = Nothing
, _arCreated = Nothing
, _arName = Nothing
, _arRevisionId = Nothing
, _arRevisionChangeIdentifier = Nothing
}
arRevisionSummary :: Lens' ArtifactRevision (Maybe Text)
arRevisionSummary = lens _arRevisionSummary (\ s a -> s{_arRevisionSummary = a});
arRevisionURL :: Lens' ArtifactRevision (Maybe Text)
arRevisionURL = lens _arRevisionURL (\ s a -> s{_arRevisionURL = a});
arCreated :: Lens' ArtifactRevision (Maybe UTCTime)
arCreated = lens _arCreated (\ s a -> s{_arCreated = a}) . mapping _Time;
arName :: Lens' ArtifactRevision (Maybe Text)
arName = lens _arName (\ s a -> s{_arName = a});
arRevisionId :: Lens' ArtifactRevision (Maybe Text)
arRevisionId = lens _arRevisionId (\ s a -> s{_arRevisionId = a});
arRevisionChangeIdentifier :: Lens' ArtifactRevision (Maybe Text)
arRevisionChangeIdentifier = lens _arRevisionChangeIdentifier (\ s a -> s{_arRevisionChangeIdentifier = a});
instance FromJSON ArtifactRevision where
parseJSON
= withObject "ArtifactRevision"
(\ x ->
ArtifactRevision' <$>
(x .:? "revisionSummary") <*> (x .:? "revisionUrl")
<*> (x .:? "created")
<*> (x .:? "name")
<*> (x .:? "revisionId")
<*> (x .:? "revisionChangeIdentifier"))
instance Hashable ArtifactRevision
instance NFData ArtifactRevision
data ArtifactStore = ArtifactStore'
{ _asEncryptionKey :: !(Maybe EncryptionKey)
, _asType :: !ArtifactStoreType
, _asLocation :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
artifactStore
:: ArtifactStoreType
-> Text
-> ArtifactStore
artifactStore pType_ pLocation_ =
ArtifactStore'
{ _asEncryptionKey = Nothing
, _asType = pType_
, _asLocation = pLocation_
}
asEncryptionKey :: Lens' ArtifactStore (Maybe EncryptionKey)
asEncryptionKey = lens _asEncryptionKey (\ s a -> s{_asEncryptionKey = a});
asType :: Lens' ArtifactStore ArtifactStoreType
asType = lens _asType (\ s a -> s{_asType = a});
asLocation :: Lens' ArtifactStore Text
asLocation = lens _asLocation (\ s a -> s{_asLocation = a});
instance FromJSON ArtifactStore where
parseJSON
= withObject "ArtifactStore"
(\ x ->
ArtifactStore' <$>
(x .:? "encryptionKey") <*> (x .: "type") <*>
(x .: "location"))
instance Hashable ArtifactStore
instance NFData ArtifactStore
instance ToJSON ArtifactStore where
toJSON ArtifactStore'{..}
= object
(catMaybes
[("encryptionKey" .=) <$> _asEncryptionKey,
Just ("type" .= _asType),
Just ("location" .= _asLocation)])
data BlockerDeclaration = BlockerDeclaration'
{ _bdName :: !Text
, _bdType :: !BlockerType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
blockerDeclaration
:: Text
-> BlockerType
-> BlockerDeclaration
blockerDeclaration pName_ pType_ =
BlockerDeclaration'
{ _bdName = pName_
, _bdType = pType_
}
bdName :: Lens' BlockerDeclaration Text
bdName = lens _bdName (\ s a -> s{_bdName = a});
bdType :: Lens' BlockerDeclaration BlockerType
bdType = lens _bdType (\ s a -> s{_bdType = a});
instance FromJSON BlockerDeclaration where
parseJSON
= withObject "BlockerDeclaration"
(\ x ->
BlockerDeclaration' <$>
(x .: "name") <*> (x .: "type"))
instance Hashable BlockerDeclaration
instance NFData BlockerDeclaration
instance ToJSON BlockerDeclaration where
toJSON BlockerDeclaration'{..}
= object
(catMaybes
[Just ("name" .= _bdName), Just ("type" .= _bdType)])
data CurrentRevision = CurrentRevision'
{ _crRevisionSummary :: !(Maybe Text)
, _crCreated :: !(Maybe POSIX)
, _crRevision :: !Text
, _crChangeIdentifier :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
currentRevision
:: Text
-> Text
-> CurrentRevision
currentRevision pRevision_ pChangeIdentifier_ =
CurrentRevision'
{ _crRevisionSummary = Nothing
, _crCreated = Nothing
, _crRevision = pRevision_
, _crChangeIdentifier = pChangeIdentifier_
}
crRevisionSummary :: Lens' CurrentRevision (Maybe Text)
crRevisionSummary = lens _crRevisionSummary (\ s a -> s{_crRevisionSummary = a});
crCreated :: Lens' CurrentRevision (Maybe UTCTime)
crCreated = lens _crCreated (\ s a -> s{_crCreated = a}) . mapping _Time;
crRevision :: Lens' CurrentRevision Text
crRevision = lens _crRevision (\ s a -> s{_crRevision = a});
crChangeIdentifier :: Lens' CurrentRevision Text
crChangeIdentifier = lens _crChangeIdentifier (\ s a -> s{_crChangeIdentifier = a});
instance Hashable CurrentRevision
instance NFData CurrentRevision
instance ToJSON CurrentRevision where
toJSON CurrentRevision'{..}
= object
(catMaybes
[("revisionSummary" .=) <$> _crRevisionSummary,
("created" .=) <$> _crCreated,
Just ("revision" .= _crRevision),
Just ("changeIdentifier" .= _crChangeIdentifier)])
data EncryptionKey = EncryptionKey'
{ _ekId :: !Text
, _ekType :: !EncryptionKeyType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
encryptionKey
:: Text
-> EncryptionKeyType
-> EncryptionKey
encryptionKey pId_ pType_ =
EncryptionKey'
{ _ekId = pId_
, _ekType = pType_
}
ekId :: Lens' EncryptionKey Text
ekId = lens _ekId (\ s a -> s{_ekId = a});
ekType :: Lens' EncryptionKey EncryptionKeyType
ekType = lens _ekType (\ s a -> s{_ekType = a});
instance FromJSON EncryptionKey where
parseJSON
= withObject "EncryptionKey"
(\ x ->
EncryptionKey' <$> (x .: "id") <*> (x .: "type"))
instance Hashable EncryptionKey
instance NFData EncryptionKey
instance ToJSON EncryptionKey where
toJSON EncryptionKey'{..}
= object
(catMaybes
[Just ("id" .= _ekId), Just ("type" .= _ekType)])
data ErrorDetails = ErrorDetails'
{ _edCode :: !(Maybe Text)
, _edMessage :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
errorDetails
:: ErrorDetails
errorDetails =
ErrorDetails'
{ _edCode = Nothing
, _edMessage = Nothing
}
edCode :: Lens' ErrorDetails (Maybe Text)
edCode = lens _edCode (\ s a -> s{_edCode = a});
edMessage :: Lens' ErrorDetails (Maybe Text)
edMessage = lens _edMessage (\ s a -> s{_edMessage = a});
instance FromJSON ErrorDetails where
parseJSON
= withObject "ErrorDetails"
(\ x ->
ErrorDetails' <$>
(x .:? "code") <*> (x .:? "message"))
instance Hashable ErrorDetails
instance NFData ErrorDetails
data ExecutionDetails = ExecutionDetails'
{ _edSummary :: !(Maybe Text)
, _edExternalExecutionId :: !(Maybe Text)
, _edPercentComplete :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
executionDetails
:: ExecutionDetails
executionDetails =
ExecutionDetails'
{ _edSummary = Nothing
, _edExternalExecutionId = Nothing
, _edPercentComplete = Nothing
}
edSummary :: Lens' ExecutionDetails (Maybe Text)
edSummary = lens _edSummary (\ s a -> s{_edSummary = a});
edExternalExecutionId :: Lens' ExecutionDetails (Maybe Text)
edExternalExecutionId = lens _edExternalExecutionId (\ s a -> s{_edExternalExecutionId = a});
edPercentComplete :: Lens' ExecutionDetails (Maybe Natural)
edPercentComplete = lens _edPercentComplete (\ s a -> s{_edPercentComplete = a}) . mapping _Nat;
instance Hashable ExecutionDetails
instance NFData ExecutionDetails
instance ToJSON ExecutionDetails where
toJSON ExecutionDetails'{..}
= object
(catMaybes
[("summary" .=) <$> _edSummary,
("externalExecutionId" .=) <$>
_edExternalExecutionId,
("percentComplete" .=) <$> _edPercentComplete])
data FailureDetails = FailureDetails'
{ _fdExternalExecutionId :: !(Maybe Text)
, _fdType :: !FailureType
, _fdMessage :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
failureDetails
:: FailureType
-> Text
-> FailureDetails
failureDetails pType_ pMessage_ =
FailureDetails'
{ _fdExternalExecutionId = Nothing
, _fdType = pType_
, _fdMessage = pMessage_
}
fdExternalExecutionId :: Lens' FailureDetails (Maybe Text)
fdExternalExecutionId = lens _fdExternalExecutionId (\ s a -> s{_fdExternalExecutionId = a});
fdType :: Lens' FailureDetails FailureType
fdType = lens _fdType (\ s a -> s{_fdType = a});
fdMessage :: Lens' FailureDetails Text
fdMessage = lens _fdMessage (\ s a -> s{_fdMessage = a});
instance Hashable FailureDetails
instance NFData FailureDetails
instance ToJSON FailureDetails where
toJSON FailureDetails'{..}
= object
(catMaybes
[("externalExecutionId" .=) <$>
_fdExternalExecutionId,
Just ("type" .= _fdType),
Just ("message" .= _fdMessage)])
newtype InputArtifact = InputArtifact'
{ _iaName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
inputArtifact
:: Text
-> InputArtifact
inputArtifact pName_ =
InputArtifact'
{ _iaName = pName_
}
iaName :: Lens' InputArtifact Text
iaName = lens _iaName (\ s a -> s{_iaName = a});
instance FromJSON InputArtifact where
parseJSON
= withObject "InputArtifact"
(\ x -> InputArtifact' <$> (x .: "name"))
instance Hashable InputArtifact
instance NFData InputArtifact
instance ToJSON InputArtifact where
toJSON InputArtifact'{..}
= object (catMaybes [Just ("name" .= _iaName)])
data Job = Job'
{ _jData :: !(Maybe JobData)
, _jAccountId :: !(Maybe Text)
, _jId :: !(Maybe Text)
, _jNonce :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
job
:: Job
job =
Job'
{ _jData = Nothing
, _jAccountId = Nothing
, _jId = Nothing
, _jNonce = Nothing
}
jData :: Lens' Job (Maybe JobData)
jData = lens _jData (\ s a -> s{_jData = a});
jAccountId :: Lens' Job (Maybe Text)
jAccountId = lens _jAccountId (\ s a -> s{_jAccountId = a});
jId :: Lens' Job (Maybe Text)
jId = lens _jId (\ s a -> s{_jId = a});
jNonce :: Lens' Job (Maybe Text)
jNonce = lens _jNonce (\ s a -> s{_jNonce = a});
instance FromJSON Job where
parseJSON
= withObject "Job"
(\ x ->
Job' <$>
(x .:? "data") <*> (x .:? "accountId") <*>
(x .:? "id")
<*> (x .:? "nonce"))
instance Hashable Job
instance NFData Job
data JobData = JobData'
{ _jdContinuationToken :: !(Maybe Text)
, _jdOutputArtifacts :: !(Maybe [Artifact])
, _jdArtifactCredentials :: !(Maybe (Sensitive AWSSessionCredentials))
, _jdPipelineContext :: !(Maybe PipelineContext)
, _jdEncryptionKey :: !(Maybe EncryptionKey)
, _jdActionTypeId :: !(Maybe ActionTypeId)
, _jdInputArtifacts :: !(Maybe [Artifact])
, _jdActionConfiguration :: !(Maybe ActionConfiguration)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
jobData
:: JobData
jobData =
JobData'
{ _jdContinuationToken = Nothing
, _jdOutputArtifacts = Nothing
, _jdArtifactCredentials = Nothing
, _jdPipelineContext = Nothing
, _jdEncryptionKey = Nothing
, _jdActionTypeId = Nothing
, _jdInputArtifacts = Nothing
, _jdActionConfiguration = Nothing
}
jdContinuationToken :: Lens' JobData (Maybe Text)
jdContinuationToken = lens _jdContinuationToken (\ s a -> s{_jdContinuationToken = a});
jdOutputArtifacts :: Lens' JobData [Artifact]
jdOutputArtifacts = lens _jdOutputArtifacts (\ s a -> s{_jdOutputArtifacts = a}) . _Default . _Coerce;
jdArtifactCredentials :: Lens' JobData (Maybe AWSSessionCredentials)
jdArtifactCredentials = lens _jdArtifactCredentials (\ s a -> s{_jdArtifactCredentials = a}) . mapping _Sensitive;
jdPipelineContext :: Lens' JobData (Maybe PipelineContext)
jdPipelineContext = lens _jdPipelineContext (\ s a -> s{_jdPipelineContext = a});
jdEncryptionKey :: Lens' JobData (Maybe EncryptionKey)
jdEncryptionKey = lens _jdEncryptionKey (\ s a -> s{_jdEncryptionKey = a});
jdActionTypeId :: Lens' JobData (Maybe ActionTypeId)
jdActionTypeId = lens _jdActionTypeId (\ s a -> s{_jdActionTypeId = a});
jdInputArtifacts :: Lens' JobData [Artifact]
jdInputArtifacts = lens _jdInputArtifacts (\ s a -> s{_jdInputArtifacts = a}) . _Default . _Coerce;
jdActionConfiguration :: Lens' JobData (Maybe ActionConfiguration)
jdActionConfiguration = lens _jdActionConfiguration (\ s a -> s{_jdActionConfiguration = a});
instance FromJSON JobData where
parseJSON
= withObject "JobData"
(\ x ->
JobData' <$>
(x .:? "continuationToken") <*>
(x .:? "outputArtifacts" .!= mempty)
<*> (x .:? "artifactCredentials")
<*> (x .:? "pipelineContext")
<*> (x .:? "encryptionKey")
<*> (x .:? "actionTypeId")
<*> (x .:? "inputArtifacts" .!= mempty)
<*> (x .:? "actionConfiguration"))
instance Hashable JobData
instance NFData JobData
data JobDetails = JobDetails'
{ _jdData :: !(Maybe JobData)
, _jdAccountId :: !(Maybe Text)
, _jdId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
jobDetails
:: JobDetails
jobDetails =
JobDetails'
{ _jdData = Nothing
, _jdAccountId = Nothing
, _jdId = Nothing
}
jdData :: Lens' JobDetails (Maybe JobData)
jdData = lens _jdData (\ s a -> s{_jdData = a});
jdAccountId :: Lens' JobDetails (Maybe Text)
jdAccountId = lens _jdAccountId (\ s a -> s{_jdAccountId = a});
jdId :: Lens' JobDetails (Maybe Text)
jdId = lens _jdId (\ s a -> s{_jdId = a});
instance FromJSON JobDetails where
parseJSON
= withObject "JobDetails"
(\ x ->
JobDetails' <$>
(x .:? "data") <*> (x .:? "accountId") <*>
(x .:? "id"))
instance Hashable JobDetails
instance NFData JobDetails
newtype OutputArtifact = OutputArtifact'
{ _oaName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
outputArtifact
:: Text
-> OutputArtifact
outputArtifact pName_ =
OutputArtifact'
{ _oaName = pName_
}
oaName :: Lens' OutputArtifact Text
oaName = lens _oaName (\ s a -> s{_oaName = a});
instance FromJSON OutputArtifact where
parseJSON
= withObject "OutputArtifact"
(\ x -> OutputArtifact' <$> (x .: "name"))
instance Hashable OutputArtifact
instance NFData OutputArtifact
instance ToJSON OutputArtifact where
toJSON OutputArtifact'{..}
= object (catMaybes [Just ("name" .= _oaName)])
data PipelineContext = PipelineContext'
{ _pcStage :: !(Maybe StageContext)
, _pcPipelineName :: !(Maybe Text)
, _pcAction :: !(Maybe ActionContext)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
pipelineContext
:: PipelineContext
pipelineContext =
PipelineContext'
{ _pcStage = Nothing
, _pcPipelineName = Nothing
, _pcAction = Nothing
}
pcStage :: Lens' PipelineContext (Maybe StageContext)
pcStage = lens _pcStage (\ s a -> s{_pcStage = a});
pcPipelineName :: Lens' PipelineContext (Maybe Text)
pcPipelineName = lens _pcPipelineName (\ s a -> s{_pcPipelineName = a});
pcAction :: Lens' PipelineContext (Maybe ActionContext)
pcAction = lens _pcAction (\ s a -> s{_pcAction = a});
instance FromJSON PipelineContext where
parseJSON
= withObject "PipelineContext"
(\ x ->
PipelineContext' <$>
(x .:? "stage") <*> (x .:? "pipelineName") <*>
(x .:? "action"))
instance Hashable PipelineContext
instance NFData PipelineContext
data PipelineDeclaration = PipelineDeclaration'
{ _pdVersion :: !(Maybe Nat)
, _pdName :: !Text
, _pdRoleARN :: !Text
, _pdArtifactStore :: !ArtifactStore
, _pdStages :: ![StageDeclaration]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
pipelineDeclaration
:: Text
-> Text
-> ArtifactStore
-> PipelineDeclaration
pipelineDeclaration pName_ pRoleARN_ pArtifactStore_ =
PipelineDeclaration'
{ _pdVersion = Nothing
, _pdName = pName_
, _pdRoleARN = pRoleARN_
, _pdArtifactStore = pArtifactStore_
, _pdStages = mempty
}
pdVersion :: Lens' PipelineDeclaration (Maybe Natural)
pdVersion = lens _pdVersion (\ s a -> s{_pdVersion = a}) . mapping _Nat;
pdName :: Lens' PipelineDeclaration Text
pdName = lens _pdName (\ s a -> s{_pdName = a});
pdRoleARN :: Lens' PipelineDeclaration Text
pdRoleARN = lens _pdRoleARN (\ s a -> s{_pdRoleARN = a});
pdArtifactStore :: Lens' PipelineDeclaration ArtifactStore
pdArtifactStore = lens _pdArtifactStore (\ s a -> s{_pdArtifactStore = a});
pdStages :: Lens' PipelineDeclaration [StageDeclaration]
pdStages = lens _pdStages (\ s a -> s{_pdStages = a}) . _Coerce;
instance FromJSON PipelineDeclaration where
parseJSON
= withObject "PipelineDeclaration"
(\ x ->
PipelineDeclaration' <$>
(x .:? "version") <*> (x .: "name") <*>
(x .: "roleArn")
<*> (x .: "artifactStore")
<*> (x .:? "stages" .!= mempty))
instance Hashable PipelineDeclaration
instance NFData PipelineDeclaration
instance ToJSON PipelineDeclaration where
toJSON PipelineDeclaration'{..}
= object
(catMaybes
[("version" .=) <$> _pdVersion,
Just ("name" .= _pdName),
Just ("roleArn" .= _pdRoleARN),
Just ("artifactStore" .= _pdArtifactStore),
Just ("stages" .= _pdStages)])
data PipelineExecution = PipelineExecution'
{ _peStatus :: !(Maybe PipelineExecutionStatus)
, _pePipelineName :: !(Maybe Text)
, _pePipelineVersion :: !(Maybe Nat)
, _pePipelineExecutionId :: !(Maybe Text)
, _peArtifactRevisions :: !(Maybe [ArtifactRevision])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
pipelineExecution
:: PipelineExecution
pipelineExecution =
PipelineExecution'
{ _peStatus = Nothing
, _pePipelineName = Nothing
, _pePipelineVersion = Nothing
, _pePipelineExecutionId = Nothing
, _peArtifactRevisions = Nothing
}
peStatus :: Lens' PipelineExecution (Maybe PipelineExecutionStatus)
peStatus = lens _peStatus (\ s a -> s{_peStatus = a});
pePipelineName :: Lens' PipelineExecution (Maybe Text)
pePipelineName = lens _pePipelineName (\ s a -> s{_pePipelineName = a});
pePipelineVersion :: Lens' PipelineExecution (Maybe Natural)
pePipelineVersion = lens _pePipelineVersion (\ s a -> s{_pePipelineVersion = a}) . mapping _Nat;
pePipelineExecutionId :: Lens' PipelineExecution (Maybe Text)
pePipelineExecutionId = lens _pePipelineExecutionId (\ s a -> s{_pePipelineExecutionId = a});
peArtifactRevisions :: Lens' PipelineExecution [ArtifactRevision]
peArtifactRevisions = lens _peArtifactRevisions (\ s a -> s{_peArtifactRevisions = a}) . _Default . _Coerce;
instance FromJSON PipelineExecution where
parseJSON
= withObject "PipelineExecution"
(\ x ->
PipelineExecution' <$>
(x .:? "status") <*> (x .:? "pipelineName") <*>
(x .:? "pipelineVersion")
<*> (x .:? "pipelineExecutionId")
<*> (x .:? "artifactRevisions" .!= mempty))
instance Hashable PipelineExecution
instance NFData PipelineExecution
data PipelineSummary = PipelineSummary'
{ _psCreated :: !(Maybe POSIX)
, _psName :: !(Maybe Text)
, _psVersion :: !(Maybe Nat)
, _psUpdated :: !(Maybe POSIX)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
pipelineSummary
:: PipelineSummary
pipelineSummary =
PipelineSummary'
{ _psCreated = Nothing
, _psName = Nothing
, _psVersion = Nothing
, _psUpdated = Nothing
}
psCreated :: Lens' PipelineSummary (Maybe UTCTime)
psCreated = lens _psCreated (\ s a -> s{_psCreated = a}) . mapping _Time;
psName :: Lens' PipelineSummary (Maybe Text)
psName = lens _psName (\ s a -> s{_psName = a});
psVersion :: Lens' PipelineSummary (Maybe Natural)
psVersion = lens _psVersion (\ s a -> s{_psVersion = a}) . mapping _Nat;
psUpdated :: Lens' PipelineSummary (Maybe UTCTime)
psUpdated = lens _psUpdated (\ s a -> s{_psUpdated = a}) . mapping _Time;
instance FromJSON PipelineSummary where
parseJSON
= withObject "PipelineSummary"
(\ x ->
PipelineSummary' <$>
(x .:? "created") <*> (x .:? "name") <*>
(x .:? "version")
<*> (x .:? "updated"))
instance Hashable PipelineSummary
instance NFData PipelineSummary
data S3ArtifactLocation = S3ArtifactLocation'
{ _salBucketName :: !Text
, _salObjectKey :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
s3ArtifactLocation
:: Text
-> Text
-> S3ArtifactLocation
s3ArtifactLocation pBucketName_ pObjectKey_ =
S3ArtifactLocation'
{ _salBucketName = pBucketName_
, _salObjectKey = pObjectKey_
}
salBucketName :: Lens' S3ArtifactLocation Text
salBucketName = lens _salBucketName (\ s a -> s{_salBucketName = a});
salObjectKey :: Lens' S3ArtifactLocation Text
salObjectKey = lens _salObjectKey (\ s a -> s{_salObjectKey = a});
instance FromJSON S3ArtifactLocation where
parseJSON
= withObject "S3ArtifactLocation"
(\ x ->
S3ArtifactLocation' <$>
(x .: "bucketName") <*> (x .: "objectKey"))
instance Hashable S3ArtifactLocation
instance NFData S3ArtifactLocation
newtype StageContext = StageContext'
{ _scName :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
stageContext
:: StageContext
stageContext =
StageContext'
{ _scName = Nothing
}
scName :: Lens' StageContext (Maybe Text)
scName = lens _scName (\ s a -> s{_scName = a});
instance FromJSON StageContext where
parseJSON
= withObject "StageContext"
(\ x -> StageContext' <$> (x .:? "name"))
instance Hashable StageContext
instance NFData StageContext
data StageDeclaration = StageDeclaration'
{ _sdBlockers :: !(Maybe [BlockerDeclaration])
, _sdName :: !Text
, _sdActions :: ![ActionDeclaration]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
stageDeclaration
:: Text
-> StageDeclaration
stageDeclaration pName_ =
StageDeclaration'
{ _sdBlockers = Nothing
, _sdName = pName_
, _sdActions = mempty
}
sdBlockers :: Lens' StageDeclaration [BlockerDeclaration]
sdBlockers = lens _sdBlockers (\ s a -> s{_sdBlockers = a}) . _Default . _Coerce;
sdName :: Lens' StageDeclaration Text
sdName = lens _sdName (\ s a -> s{_sdName = a});
sdActions :: Lens' StageDeclaration [ActionDeclaration]
sdActions = lens _sdActions (\ s a -> s{_sdActions = a}) . _Coerce;
instance FromJSON StageDeclaration where
parseJSON
= withObject "StageDeclaration"
(\ x ->
StageDeclaration' <$>
(x .:? "blockers" .!= mempty) <*> (x .: "name") <*>
(x .:? "actions" .!= mempty))
instance Hashable StageDeclaration
instance NFData StageDeclaration
instance ToJSON StageDeclaration where
toJSON StageDeclaration'{..}
= object
(catMaybes
[("blockers" .=) <$> _sdBlockers,
Just ("name" .= _sdName),
Just ("actions" .= _sdActions)])
data StageExecution = StageExecution'
{ _sePipelineExecutionId :: !Text
, _seStatus :: !StageExecutionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
stageExecution
:: Text
-> StageExecutionStatus
-> StageExecution
stageExecution pPipelineExecutionId_ pStatus_ =
StageExecution'
{ _sePipelineExecutionId = pPipelineExecutionId_
, _seStatus = pStatus_
}
sePipelineExecutionId :: Lens' StageExecution Text
sePipelineExecutionId = lens _sePipelineExecutionId (\ s a -> s{_sePipelineExecutionId = a});
seStatus :: Lens' StageExecution StageExecutionStatus
seStatus = lens _seStatus (\ s a -> s{_seStatus = a});
instance FromJSON StageExecution where
parseJSON
= withObject "StageExecution"
(\ x ->
StageExecution' <$>
(x .: "pipelineExecutionId") <*> (x .: "status"))
instance Hashable StageExecution
instance NFData StageExecution
data StageState = StageState'
{ _ssInboundTransitionState :: !(Maybe TransitionState)
, _ssActionStates :: !(Maybe [ActionState])
, _ssStageName :: !(Maybe Text)
, _ssLatestExecution :: !(Maybe StageExecution)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
stageState
:: StageState
stageState =
StageState'
{ _ssInboundTransitionState = Nothing
, _ssActionStates = Nothing
, _ssStageName = Nothing
, _ssLatestExecution = Nothing
}
ssInboundTransitionState :: Lens' StageState (Maybe TransitionState)
ssInboundTransitionState = lens _ssInboundTransitionState (\ s a -> s{_ssInboundTransitionState = a});
ssActionStates :: Lens' StageState [ActionState]
ssActionStates = lens _ssActionStates (\ s a -> s{_ssActionStates = a}) . _Default . _Coerce;
ssStageName :: Lens' StageState (Maybe Text)
ssStageName = lens _ssStageName (\ s a -> s{_ssStageName = a});
ssLatestExecution :: Lens' StageState (Maybe StageExecution)
ssLatestExecution = lens _ssLatestExecution (\ s a -> s{_ssLatestExecution = a});
instance FromJSON StageState where
parseJSON
= withObject "StageState"
(\ x ->
StageState' <$>
(x .:? "inboundTransitionState") <*>
(x .:? "actionStates" .!= mempty)
<*> (x .:? "stageName")
<*> (x .:? "latestExecution"))
instance Hashable StageState
instance NFData StageState
data ThirdPartyJob = ThirdPartyJob'
{ _tpjClientId :: !(Maybe Text)
, _tpjJobId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
thirdPartyJob
:: ThirdPartyJob
thirdPartyJob =
ThirdPartyJob'
{ _tpjClientId = Nothing
, _tpjJobId = Nothing
}
tpjClientId :: Lens' ThirdPartyJob (Maybe Text)
tpjClientId = lens _tpjClientId (\ s a -> s{_tpjClientId = a});
tpjJobId :: Lens' ThirdPartyJob (Maybe Text)
tpjJobId = lens _tpjJobId (\ s a -> s{_tpjJobId = a});
instance FromJSON ThirdPartyJob where
parseJSON
= withObject "ThirdPartyJob"
(\ x ->
ThirdPartyJob' <$>
(x .:? "clientId") <*> (x .:? "jobId"))
instance Hashable ThirdPartyJob
instance NFData ThirdPartyJob
data ThirdPartyJobData = ThirdPartyJobData'
{ _tpjdContinuationToken :: !(Maybe Text)
, _tpjdOutputArtifacts :: !(Maybe [Artifact])
, _tpjdArtifactCredentials :: !(Maybe (Sensitive AWSSessionCredentials))
, _tpjdPipelineContext :: !(Maybe PipelineContext)
, _tpjdEncryptionKey :: !(Maybe EncryptionKey)
, _tpjdActionTypeId :: !(Maybe ActionTypeId)
, _tpjdInputArtifacts :: !(Maybe [Artifact])
, _tpjdActionConfiguration :: !(Maybe ActionConfiguration)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
thirdPartyJobData
:: ThirdPartyJobData
thirdPartyJobData =
ThirdPartyJobData'
{ _tpjdContinuationToken = Nothing
, _tpjdOutputArtifacts = Nothing
, _tpjdArtifactCredentials = Nothing
, _tpjdPipelineContext = Nothing
, _tpjdEncryptionKey = Nothing
, _tpjdActionTypeId = Nothing
, _tpjdInputArtifacts = Nothing
, _tpjdActionConfiguration = Nothing
}
tpjdContinuationToken :: Lens' ThirdPartyJobData (Maybe Text)
tpjdContinuationToken = lens _tpjdContinuationToken (\ s a -> s{_tpjdContinuationToken = a});
tpjdOutputArtifacts :: Lens' ThirdPartyJobData [Artifact]
tpjdOutputArtifacts = lens _tpjdOutputArtifacts (\ s a -> s{_tpjdOutputArtifacts = a}) . _Default . _Coerce;
tpjdArtifactCredentials :: Lens' ThirdPartyJobData (Maybe AWSSessionCredentials)
tpjdArtifactCredentials = lens _tpjdArtifactCredentials (\ s a -> s{_tpjdArtifactCredentials = a}) . mapping _Sensitive;
tpjdPipelineContext :: Lens' ThirdPartyJobData (Maybe PipelineContext)
tpjdPipelineContext = lens _tpjdPipelineContext (\ s a -> s{_tpjdPipelineContext = a});
tpjdEncryptionKey :: Lens' ThirdPartyJobData (Maybe EncryptionKey)
tpjdEncryptionKey = lens _tpjdEncryptionKey (\ s a -> s{_tpjdEncryptionKey = a});
tpjdActionTypeId :: Lens' ThirdPartyJobData (Maybe ActionTypeId)
tpjdActionTypeId = lens _tpjdActionTypeId (\ s a -> s{_tpjdActionTypeId = a});
tpjdInputArtifacts :: Lens' ThirdPartyJobData [Artifact]
tpjdInputArtifacts = lens _tpjdInputArtifacts (\ s a -> s{_tpjdInputArtifacts = a}) . _Default . _Coerce;
tpjdActionConfiguration :: Lens' ThirdPartyJobData (Maybe ActionConfiguration)
tpjdActionConfiguration = lens _tpjdActionConfiguration (\ s a -> s{_tpjdActionConfiguration = a});
instance FromJSON ThirdPartyJobData where
parseJSON
= withObject "ThirdPartyJobData"
(\ x ->
ThirdPartyJobData' <$>
(x .:? "continuationToken") <*>
(x .:? "outputArtifacts" .!= mempty)
<*> (x .:? "artifactCredentials")
<*> (x .:? "pipelineContext")
<*> (x .:? "encryptionKey")
<*> (x .:? "actionTypeId")
<*> (x .:? "inputArtifacts" .!= mempty)
<*> (x .:? "actionConfiguration"))
instance Hashable ThirdPartyJobData
instance NFData ThirdPartyJobData
data ThirdPartyJobDetails = ThirdPartyJobDetails'
{ _tpjdData :: !(Maybe ThirdPartyJobData)
, _tpjdId :: !(Maybe Text)
, _tpjdNonce :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
thirdPartyJobDetails
:: ThirdPartyJobDetails
thirdPartyJobDetails =
ThirdPartyJobDetails'
{ _tpjdData = Nothing
, _tpjdId = Nothing
, _tpjdNonce = Nothing
}
tpjdData :: Lens' ThirdPartyJobDetails (Maybe ThirdPartyJobData)
tpjdData = lens _tpjdData (\ s a -> s{_tpjdData = a});
tpjdId :: Lens' ThirdPartyJobDetails (Maybe Text)
tpjdId = lens _tpjdId (\ s a -> s{_tpjdId = a});
tpjdNonce :: Lens' ThirdPartyJobDetails (Maybe Text)
tpjdNonce = lens _tpjdNonce (\ s a -> s{_tpjdNonce = a});
instance FromJSON ThirdPartyJobDetails where
parseJSON
= withObject "ThirdPartyJobDetails"
(\ x ->
ThirdPartyJobDetails' <$>
(x .:? "data") <*> (x .:? "id") <*> (x .:? "nonce"))
instance Hashable ThirdPartyJobDetails
instance NFData ThirdPartyJobDetails
data TransitionState = TransitionState'
{ _tsEnabled :: !(Maybe Bool)
, _tsDisabledReason :: !(Maybe Text)
, _tsLastChangedAt :: !(Maybe POSIX)
, _tsLastChangedBy :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
transitionState
:: TransitionState
transitionState =
TransitionState'
{ _tsEnabled = Nothing
, _tsDisabledReason = Nothing
, _tsLastChangedAt = Nothing
, _tsLastChangedBy = Nothing
}
tsEnabled :: Lens' TransitionState (Maybe Bool)
tsEnabled = lens _tsEnabled (\ s a -> s{_tsEnabled = a});
tsDisabledReason :: Lens' TransitionState (Maybe Text)
tsDisabledReason = lens _tsDisabledReason (\ s a -> s{_tsDisabledReason = a});
tsLastChangedAt :: Lens' TransitionState (Maybe UTCTime)
tsLastChangedAt = lens _tsLastChangedAt (\ s a -> s{_tsLastChangedAt = a}) . mapping _Time;
tsLastChangedBy :: Lens' TransitionState (Maybe Text)
tsLastChangedBy = lens _tsLastChangedBy (\ s a -> s{_tsLastChangedBy = a});
instance FromJSON TransitionState where
parseJSON
= withObject "TransitionState"
(\ x ->
TransitionState' <$>
(x .:? "enabled") <*> (x .:? "disabledReason") <*>
(x .:? "lastChangedAt")
<*> (x .:? "lastChangedBy"))
instance Hashable TransitionState
instance NFData TransitionState