module Network.Google.TagManager.Types.Product where
import Network.Google.Prelude
import Network.Google.TagManager.Types.Sum
newtype ListVariablesResponse = ListVariablesResponse'
{ _lvrVariables :: Maybe [Variable]
} deriving (Eq,Show,Data,Typeable,Generic)
listVariablesResponse
:: ListVariablesResponse
listVariablesResponse =
ListVariablesResponse'
{ _lvrVariables = Nothing
}
lvrVariables :: Lens' ListVariablesResponse [Variable]
lvrVariables
= lens _lvrVariables (\ s a -> s{_lvrVariables = a})
. _Default
. _Coerce
instance FromJSON ListVariablesResponse where
parseJSON
= withObject "ListVariablesResponse"
(\ o ->
ListVariablesResponse' <$>
(o .:? "variables" .!= mempty))
instance ToJSON ListVariablesResponse where
toJSON ListVariablesResponse'{..}
= object
(catMaybes [("variables" .=) <$> _lvrVariables])
newtype ListFoldersResponse = ListFoldersResponse'
{ _lfrFolders :: Maybe [Folder]
} deriving (Eq,Show,Data,Typeable,Generic)
listFoldersResponse
:: ListFoldersResponse
listFoldersResponse =
ListFoldersResponse'
{ _lfrFolders = Nothing
}
lfrFolders :: Lens' ListFoldersResponse [Folder]
lfrFolders
= lens _lfrFolders (\ s a -> s{_lfrFolders = a}) .
_Default
. _Coerce
instance FromJSON ListFoldersResponse where
parseJSON
= withObject "ListFoldersResponse"
(\ o ->
ListFoldersResponse' <$>
(o .:? "folders" .!= mempty))
instance ToJSON ListFoldersResponse where
toJSON ListFoldersResponse'{..}
= object (catMaybes [("folders" .=) <$> _lfrFolders])
newtype ListEnvironmentsResponse = ListEnvironmentsResponse'
{ _lerEnvironments :: Maybe [Environment]
} deriving (Eq,Show,Data,Typeable,Generic)
listEnvironmentsResponse
:: ListEnvironmentsResponse
listEnvironmentsResponse =
ListEnvironmentsResponse'
{ _lerEnvironments = Nothing
}
lerEnvironments :: Lens' ListEnvironmentsResponse [Environment]
lerEnvironments
= lens _lerEnvironments
(\ s a -> s{_lerEnvironments = a})
. _Default
. _Coerce
instance FromJSON ListEnvironmentsResponse where
parseJSON
= withObject "ListEnvironmentsResponse"
(\ o ->
ListEnvironmentsResponse' <$>
(o .:? "environments" .!= mempty))
instance ToJSON ListEnvironmentsResponse where
toJSON ListEnvironmentsResponse'{..}
= object
(catMaybes
[("environments" .=) <$> _lerEnvironments])
data PublishContainerVersionResponse = PublishContainerVersionResponse'
{ _pcvrCompilerError :: !(Maybe Bool)
, _pcvrContainerVersion :: !(Maybe ContainerVersion)
} deriving (Eq,Show,Data,Typeable,Generic)
publishContainerVersionResponse
:: PublishContainerVersionResponse
publishContainerVersionResponse =
PublishContainerVersionResponse'
{ _pcvrCompilerError = Nothing
, _pcvrContainerVersion = Nothing
}
pcvrCompilerError :: Lens' PublishContainerVersionResponse (Maybe Bool)
pcvrCompilerError
= lens _pcvrCompilerError
(\ s a -> s{_pcvrCompilerError = a})
pcvrContainerVersion :: Lens' PublishContainerVersionResponse (Maybe ContainerVersion)
pcvrContainerVersion
= lens _pcvrContainerVersion
(\ s a -> s{_pcvrContainerVersion = a})
instance FromJSON PublishContainerVersionResponse
where
parseJSON
= withObject "PublishContainerVersionResponse"
(\ o ->
PublishContainerVersionResponse' <$>
(o .:? "compilerError") <*>
(o .:? "containerVersion"))
instance ToJSON PublishContainerVersionResponse where
toJSON PublishContainerVersionResponse'{..}
= object
(catMaybes
[("compilerError" .=) <$> _pcvrCompilerError,
("containerVersion" .=) <$> _pcvrContainerVersion])
data ContainerVersionHeader = ContainerVersionHeader'
{ _cvhNumTags :: !(Maybe Text)
, _cvhNumMacros :: !(Maybe Text)
, _cvhContainerId :: !(Maybe Text)
, _cvhContainerVersionId :: !(Maybe Text)
, _cvhAccountId :: !(Maybe Text)
, _cvhName :: !(Maybe Text)
, _cvhNumTriggers :: !(Maybe Text)
, _cvhDeleted :: !(Maybe Bool)
, _cvhNumRules :: !(Maybe Text)
, _cvhNumVariables :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
containerVersionHeader
:: ContainerVersionHeader
containerVersionHeader =
ContainerVersionHeader'
{ _cvhNumTags = Nothing
, _cvhNumMacros = Nothing
, _cvhContainerId = Nothing
, _cvhContainerVersionId = Nothing
, _cvhAccountId = Nothing
, _cvhName = Nothing
, _cvhNumTriggers = Nothing
, _cvhDeleted = Nothing
, _cvhNumRules = Nothing
, _cvhNumVariables = Nothing
}
cvhNumTags :: Lens' ContainerVersionHeader (Maybe Text)
cvhNumTags
= lens _cvhNumTags (\ s a -> s{_cvhNumTags = a})
cvhNumMacros :: Lens' ContainerVersionHeader (Maybe Text)
cvhNumMacros
= lens _cvhNumMacros (\ s a -> s{_cvhNumMacros = a})
cvhContainerId :: Lens' ContainerVersionHeader (Maybe Text)
cvhContainerId
= lens _cvhContainerId
(\ s a -> s{_cvhContainerId = a})
cvhContainerVersionId :: Lens' ContainerVersionHeader (Maybe Text)
cvhContainerVersionId
= lens _cvhContainerVersionId
(\ s a -> s{_cvhContainerVersionId = a})
cvhAccountId :: Lens' ContainerVersionHeader (Maybe Text)
cvhAccountId
= lens _cvhAccountId (\ s a -> s{_cvhAccountId = a})
cvhName :: Lens' ContainerVersionHeader (Maybe Text)
cvhName = lens _cvhName (\ s a -> s{_cvhName = a})
cvhNumTriggers :: Lens' ContainerVersionHeader (Maybe Text)
cvhNumTriggers
= lens _cvhNumTriggers
(\ s a -> s{_cvhNumTriggers = a})
cvhDeleted :: Lens' ContainerVersionHeader (Maybe Bool)
cvhDeleted
= lens _cvhDeleted (\ s a -> s{_cvhDeleted = a})
cvhNumRules :: Lens' ContainerVersionHeader (Maybe Text)
cvhNumRules
= lens _cvhNumRules (\ s a -> s{_cvhNumRules = a})
cvhNumVariables :: Lens' ContainerVersionHeader (Maybe Text)
cvhNumVariables
= lens _cvhNumVariables
(\ s a -> s{_cvhNumVariables = a})
instance FromJSON ContainerVersionHeader where
parseJSON
= withObject "ContainerVersionHeader"
(\ o ->
ContainerVersionHeader' <$>
(o .:? "numTags") <*> (o .:? "numMacros") <*>
(o .:? "containerId")
<*> (o .:? "containerVersionId")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "numTriggers")
<*> (o .:? "deleted")
<*> (o .:? "numRules")
<*> (o .:? "numVariables"))
instance ToJSON ContainerVersionHeader where
toJSON ContainerVersionHeader'{..}
= object
(catMaybes
[("numTags" .=) <$> _cvhNumTags,
("numMacros" .=) <$> _cvhNumMacros,
("containerId" .=) <$> _cvhContainerId,
("containerVersionId" .=) <$> _cvhContainerVersionId,
("accountId" .=) <$> _cvhAccountId,
("name" .=) <$> _cvhName,
("numTriggers" .=) <$> _cvhNumTriggers,
("deleted" .=) <$> _cvhDeleted,
("numRules" .=) <$> _cvhNumRules,
("numVariables" .=) <$> _cvhNumVariables])
data TeardownTag = TeardownTag'
{ _ttStopTeardownOnFailure :: !(Maybe Bool)
, _ttTagName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
teardownTag
:: TeardownTag
teardownTag =
TeardownTag'
{ _ttStopTeardownOnFailure = Nothing
, _ttTagName = Nothing
}
ttStopTeardownOnFailure :: Lens' TeardownTag (Maybe Bool)
ttStopTeardownOnFailure
= lens _ttStopTeardownOnFailure
(\ s a -> s{_ttStopTeardownOnFailure = a})
ttTagName :: Lens' TeardownTag (Maybe Text)
ttTagName
= lens _ttTagName (\ s a -> s{_ttTagName = a})
instance FromJSON TeardownTag where
parseJSON
= withObject "TeardownTag"
(\ o ->
TeardownTag' <$>
(o .:? "stopTeardownOnFailure") <*>
(o .:? "tagName"))
instance ToJSON TeardownTag where
toJSON TeardownTag'{..}
= object
(catMaybes
[("stopTeardownOnFailure" .=) <$>
_ttStopTeardownOnFailure,
("tagName" .=) <$> _ttTagName])
newtype ListTriggersResponse = ListTriggersResponse'
{ _ltrTriggers :: Maybe [Trigger]
} deriving (Eq,Show,Data,Typeable,Generic)
listTriggersResponse
:: ListTriggersResponse
listTriggersResponse =
ListTriggersResponse'
{ _ltrTriggers = Nothing
}
ltrTriggers :: Lens' ListTriggersResponse [Trigger]
ltrTriggers
= lens _ltrTriggers (\ s a -> s{_ltrTriggers = a}) .
_Default
. _Coerce
instance FromJSON ListTriggersResponse where
parseJSON
= withObject "ListTriggersResponse"
(\ o ->
ListTriggersResponse' <$>
(o .:? "triggers" .!= mempty))
instance ToJSON ListTriggersResponse where
toJSON ListTriggersResponse'{..}
= object
(catMaybes [("triggers" .=) <$> _ltrTriggers])
data Macro = Macro'
{ _mScheduleEndMs :: !(Maybe (Textual Int64))
, _mParentFolderId :: !(Maybe Text)
, _mContainerId :: !(Maybe Text)
, _mDisablingRuleId :: !(Maybe [Text])
, _mFingerprint :: !(Maybe Text)
, _mAccountId :: !(Maybe Text)
, _mName :: !(Maybe Text)
, _mEnablingRuleId :: !(Maybe [Text])
, _mMacroId :: !(Maybe Text)
, _mType :: !(Maybe Text)
, _mScheduleStartMs :: !(Maybe (Textual Int64))
, _mNotes :: !(Maybe Text)
, _mParameter :: !(Maybe [Parameter])
} deriving (Eq,Show,Data,Typeable,Generic)
macro
:: Macro
macro =
Macro'
{ _mScheduleEndMs = Nothing
, _mParentFolderId = Nothing
, _mContainerId = Nothing
, _mDisablingRuleId = Nothing
, _mFingerprint = Nothing
, _mAccountId = Nothing
, _mName = Nothing
, _mEnablingRuleId = Nothing
, _mMacroId = Nothing
, _mType = Nothing
, _mScheduleStartMs = Nothing
, _mNotes = Nothing
, _mParameter = Nothing
}
mScheduleEndMs :: Lens' Macro (Maybe Int64)
mScheduleEndMs
= lens _mScheduleEndMs
(\ s a -> s{_mScheduleEndMs = a})
. mapping _Coerce
mParentFolderId :: Lens' Macro (Maybe Text)
mParentFolderId
= lens _mParentFolderId
(\ s a -> s{_mParentFolderId = a})
mContainerId :: Lens' Macro (Maybe Text)
mContainerId
= lens _mContainerId (\ s a -> s{_mContainerId = a})
mDisablingRuleId :: Lens' Macro [Text]
mDisablingRuleId
= lens _mDisablingRuleId
(\ s a -> s{_mDisablingRuleId = a})
. _Default
. _Coerce
mFingerprint :: Lens' Macro (Maybe Text)
mFingerprint
= lens _mFingerprint (\ s a -> s{_mFingerprint = a})
mAccountId :: Lens' Macro (Maybe Text)
mAccountId
= lens _mAccountId (\ s a -> s{_mAccountId = a})
mName :: Lens' Macro (Maybe Text)
mName = lens _mName (\ s a -> s{_mName = a})
mEnablingRuleId :: Lens' Macro [Text]
mEnablingRuleId
= lens _mEnablingRuleId
(\ s a -> s{_mEnablingRuleId = a})
. _Default
. _Coerce
mMacroId :: Lens' Macro (Maybe Text)
mMacroId = lens _mMacroId (\ s a -> s{_mMacroId = a})
mType :: Lens' Macro (Maybe Text)
mType = lens _mType (\ s a -> s{_mType = a})
mScheduleStartMs :: Lens' Macro (Maybe Int64)
mScheduleStartMs
= lens _mScheduleStartMs
(\ s a -> s{_mScheduleStartMs = a})
. mapping _Coerce
mNotes :: Lens' Macro (Maybe Text)
mNotes = lens _mNotes (\ s a -> s{_mNotes = a})
mParameter :: Lens' Macro [Parameter]
mParameter
= lens _mParameter (\ s a -> s{_mParameter = a}) .
_Default
. _Coerce
instance FromJSON Macro where
parseJSON
= withObject "Macro"
(\ o ->
Macro' <$>
(o .:? "scheduleEndMs") <*> (o .:? "parentFolderId")
<*> (o .:? "containerId")
<*> (o .:? "disablingRuleId" .!= mempty)
<*> (o .:? "fingerprint")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "enablingRuleId" .!= mempty)
<*> (o .:? "macroId")
<*> (o .:? "type")
<*> (o .:? "scheduleStartMs")
<*> (o .:? "notes")
<*> (o .:? "parameter" .!= mempty))
instance ToJSON Macro where
toJSON Macro'{..}
= object
(catMaybes
[("scheduleEndMs" .=) <$> _mScheduleEndMs,
("parentFolderId" .=) <$> _mParentFolderId,
("containerId" .=) <$> _mContainerId,
("disablingRuleId" .=) <$> _mDisablingRuleId,
("fingerprint" .=) <$> _mFingerprint,
("accountId" .=) <$> _mAccountId,
("name" .=) <$> _mName,
("enablingRuleId" .=) <$> _mEnablingRuleId,
("macroId" .=) <$> _mMacroId, ("type" .=) <$> _mType,
("scheduleStartMs" .=) <$> _mScheduleStartMs,
("notes" .=) <$> _mNotes,
("parameter" .=) <$> _mParameter])
data Tag = Tag'
{ _tBlockingTriggerId :: !(Maybe [Text])
, _tScheduleEndMs :: !(Maybe (Textual Int64))
, _tParentFolderId :: !(Maybe Text)
, _tLiveOnly :: !(Maybe Bool)
, _tContainerId :: !(Maybe Text)
, _tPriority :: !(Maybe Parameter)
, _tTeardownTag :: !(Maybe [TeardownTag])
, _tFingerprint :: !(Maybe Text)
, _tTagFiringOption :: !(Maybe TagTagFiringOption)
, _tAccountId :: !(Maybe Text)
, _tTagId :: !(Maybe Text)
, _tName :: !(Maybe Text)
, _tBlockingRuleId :: !(Maybe [Text])
, _tSetupTag :: !(Maybe [SetupTag])
, _tFiringTriggerId :: !(Maybe [Text])
, _tType :: !(Maybe Text)
, _tScheduleStartMs :: !(Maybe (Textual Int64))
, _tNotes :: !(Maybe Text)
, _tFiringRuleId :: !(Maybe [Text])
, _tParameter :: !(Maybe [Parameter])
} deriving (Eq,Show,Data,Typeable,Generic)
tag
:: Tag
tag =
Tag'
{ _tBlockingTriggerId = Nothing
, _tScheduleEndMs = Nothing
, _tParentFolderId = Nothing
, _tLiveOnly = Nothing
, _tContainerId = Nothing
, _tPriority = Nothing
, _tTeardownTag = Nothing
, _tFingerprint = Nothing
, _tTagFiringOption = Nothing
, _tAccountId = Nothing
, _tTagId = Nothing
, _tName = Nothing
, _tBlockingRuleId = Nothing
, _tSetupTag = Nothing
, _tFiringTriggerId = Nothing
, _tType = Nothing
, _tScheduleStartMs = Nothing
, _tNotes = Nothing
, _tFiringRuleId = Nothing
, _tParameter = Nothing
}
tBlockingTriggerId :: Lens' Tag [Text]
tBlockingTriggerId
= lens _tBlockingTriggerId
(\ s a -> s{_tBlockingTriggerId = a})
. _Default
. _Coerce
tScheduleEndMs :: Lens' Tag (Maybe Int64)
tScheduleEndMs
= lens _tScheduleEndMs
(\ s a -> s{_tScheduleEndMs = a})
. mapping _Coerce
tParentFolderId :: Lens' Tag (Maybe Text)
tParentFolderId
= lens _tParentFolderId
(\ s a -> s{_tParentFolderId = a})
tLiveOnly :: Lens' Tag (Maybe Bool)
tLiveOnly
= lens _tLiveOnly (\ s a -> s{_tLiveOnly = a})
tContainerId :: Lens' Tag (Maybe Text)
tContainerId
= lens _tContainerId (\ s a -> s{_tContainerId = a})
tPriority :: Lens' Tag (Maybe Parameter)
tPriority
= lens _tPriority (\ s a -> s{_tPriority = a})
tTeardownTag :: Lens' Tag [TeardownTag]
tTeardownTag
= lens _tTeardownTag (\ s a -> s{_tTeardownTag = a})
. _Default
. _Coerce
tFingerprint :: Lens' Tag (Maybe Text)
tFingerprint
= lens _tFingerprint (\ s a -> s{_tFingerprint = a})
tTagFiringOption :: Lens' Tag (Maybe TagTagFiringOption)
tTagFiringOption
= lens _tTagFiringOption
(\ s a -> s{_tTagFiringOption = a})
tAccountId :: Lens' Tag (Maybe Text)
tAccountId
= lens _tAccountId (\ s a -> s{_tAccountId = a})
tTagId :: Lens' Tag (Maybe Text)
tTagId = lens _tTagId (\ s a -> s{_tTagId = a})
tName :: Lens' Tag (Maybe Text)
tName = lens _tName (\ s a -> s{_tName = a})
tBlockingRuleId :: Lens' Tag [Text]
tBlockingRuleId
= lens _tBlockingRuleId
(\ s a -> s{_tBlockingRuleId = a})
. _Default
. _Coerce
tSetupTag :: Lens' Tag [SetupTag]
tSetupTag
= lens _tSetupTag (\ s a -> s{_tSetupTag = a}) .
_Default
. _Coerce
tFiringTriggerId :: Lens' Tag [Text]
tFiringTriggerId
= lens _tFiringTriggerId
(\ s a -> s{_tFiringTriggerId = a})
. _Default
. _Coerce
tType :: Lens' Tag (Maybe Text)
tType = lens _tType (\ s a -> s{_tType = a})
tScheduleStartMs :: Lens' Tag (Maybe Int64)
tScheduleStartMs
= lens _tScheduleStartMs
(\ s a -> s{_tScheduleStartMs = a})
. mapping _Coerce
tNotes :: Lens' Tag (Maybe Text)
tNotes = lens _tNotes (\ s a -> s{_tNotes = a})
tFiringRuleId :: Lens' Tag [Text]
tFiringRuleId
= lens _tFiringRuleId
(\ s a -> s{_tFiringRuleId = a})
. _Default
. _Coerce
tParameter :: Lens' Tag [Parameter]
tParameter
= lens _tParameter (\ s a -> s{_tParameter = a}) .
_Default
. _Coerce
instance FromJSON Tag where
parseJSON
= withObject "Tag"
(\ o ->
Tag' <$>
(o .:? "blockingTriggerId" .!= mempty) <*>
(o .:? "scheduleEndMs")
<*> (o .:? "parentFolderId")
<*> (o .:? "liveOnly")
<*> (o .:? "containerId")
<*> (o .:? "priority")
<*> (o .:? "teardownTag" .!= mempty)
<*> (o .:? "fingerprint")
<*> (o .:? "tagFiringOption")
<*> (o .:? "accountId")
<*> (o .:? "tagId")
<*> (o .:? "name")
<*> (o .:? "blockingRuleId" .!= mempty)
<*> (o .:? "setupTag" .!= mempty)
<*> (o .:? "firingTriggerId" .!= mempty)
<*> (o .:? "type")
<*> (o .:? "scheduleStartMs")
<*> (o .:? "notes")
<*> (o .:? "firingRuleId" .!= mempty)
<*> (o .:? "parameter" .!= mempty))
instance ToJSON Tag where
toJSON Tag'{..}
= object
(catMaybes
[("blockingTriggerId" .=) <$> _tBlockingTriggerId,
("scheduleEndMs" .=) <$> _tScheduleEndMs,
("parentFolderId" .=) <$> _tParentFolderId,
("liveOnly" .=) <$> _tLiveOnly,
("containerId" .=) <$> _tContainerId,
("priority" .=) <$> _tPriority,
("teardownTag" .=) <$> _tTeardownTag,
("fingerprint" .=) <$> _tFingerprint,
("tagFiringOption" .=) <$> _tTagFiringOption,
("accountId" .=) <$> _tAccountId,
("tagId" .=) <$> _tTagId, ("name" .=) <$> _tName,
("blockingRuleId" .=) <$> _tBlockingRuleId,
("setupTag" .=) <$> _tSetupTag,
("firingTriggerId" .=) <$> _tFiringTriggerId,
("type" .=) <$> _tType,
("scheduleStartMs" .=) <$> _tScheduleStartMs,
("notes" .=) <$> _tNotes,
("firingRuleId" .=) <$> _tFiringRuleId,
("parameter" .=) <$> _tParameter])
data CreateContainerVersionResponse = CreateContainerVersionResponse'
{ _ccvrCompilerError :: !(Maybe Bool)
, _ccvrContainerVersion :: !(Maybe ContainerVersion)
} deriving (Eq,Show,Data,Typeable,Generic)
createContainerVersionResponse
:: CreateContainerVersionResponse
createContainerVersionResponse =
CreateContainerVersionResponse'
{ _ccvrCompilerError = Nothing
, _ccvrContainerVersion = Nothing
}
ccvrCompilerError :: Lens' CreateContainerVersionResponse (Maybe Bool)
ccvrCompilerError
= lens _ccvrCompilerError
(\ s a -> s{_ccvrCompilerError = a})
ccvrContainerVersion :: Lens' CreateContainerVersionResponse (Maybe ContainerVersion)
ccvrContainerVersion
= lens _ccvrContainerVersion
(\ s a -> s{_ccvrContainerVersion = a})
instance FromJSON CreateContainerVersionResponse
where
parseJSON
= withObject "CreateContainerVersionResponse"
(\ o ->
CreateContainerVersionResponse' <$>
(o .:? "compilerError") <*>
(o .:? "containerVersion"))
instance ToJSON CreateContainerVersionResponse where
toJSON CreateContainerVersionResponse'{..}
= object
(catMaybes
[("compilerError" .=) <$> _ccvrCompilerError,
("containerVersion" .=) <$> _ccvrContainerVersion])
data CreateContainerVersionRequestVersionOptions = CreateContainerVersionRequestVersionOptions'
{ _ccvrvoName :: !(Maybe Text)
, _ccvrvoQuickPreview :: !(Maybe Bool)
, _ccvrvoNotes :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
createContainerVersionRequestVersionOptions
:: CreateContainerVersionRequestVersionOptions
createContainerVersionRequestVersionOptions =
CreateContainerVersionRequestVersionOptions'
{ _ccvrvoName = Nothing
, _ccvrvoQuickPreview = Nothing
, _ccvrvoNotes = Nothing
}
ccvrvoName :: Lens' CreateContainerVersionRequestVersionOptions (Maybe Text)
ccvrvoName
= lens _ccvrvoName (\ s a -> s{_ccvrvoName = a})
ccvrvoQuickPreview :: Lens' CreateContainerVersionRequestVersionOptions (Maybe Bool)
ccvrvoQuickPreview
= lens _ccvrvoQuickPreview
(\ s a -> s{_ccvrvoQuickPreview = a})
ccvrvoNotes :: Lens' CreateContainerVersionRequestVersionOptions (Maybe Text)
ccvrvoNotes
= lens _ccvrvoNotes (\ s a -> s{_ccvrvoNotes = a})
instance FromJSON
CreateContainerVersionRequestVersionOptions where
parseJSON
= withObject
"CreateContainerVersionRequestVersionOptions"
(\ o ->
CreateContainerVersionRequestVersionOptions' <$>
(o .:? "name") <*> (o .:? "quickPreview") <*>
(o .:? "notes"))
instance ToJSON
CreateContainerVersionRequestVersionOptions where
toJSON
CreateContainerVersionRequestVersionOptions'{..}
= object
(catMaybes
[("name" .=) <$> _ccvrvoName,
("quickPreview" .=) <$> _ccvrvoQuickPreview,
("notes" .=) <$> _ccvrvoNotes])
data UserAccess = UserAccess'
{ _uaAccountAccess :: !(Maybe AccountAccess)
, _uaAccountId :: !(Maybe Text)
, _uaEmailAddress :: !(Maybe Text)
, _uaContainerAccess :: !(Maybe [ContainerAccess])
, _uaPermissionId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
userAccess
:: UserAccess
userAccess =
UserAccess'
{ _uaAccountAccess = Nothing
, _uaAccountId = Nothing
, _uaEmailAddress = Nothing
, _uaContainerAccess = Nothing
, _uaPermissionId = Nothing
}
uaAccountAccess :: Lens' UserAccess (Maybe AccountAccess)
uaAccountAccess
= lens _uaAccountAccess
(\ s a -> s{_uaAccountAccess = a})
uaAccountId :: Lens' UserAccess (Maybe Text)
uaAccountId
= lens _uaAccountId (\ s a -> s{_uaAccountId = a})
uaEmailAddress :: Lens' UserAccess (Maybe Text)
uaEmailAddress
= lens _uaEmailAddress
(\ s a -> s{_uaEmailAddress = a})
uaContainerAccess :: Lens' UserAccess [ContainerAccess]
uaContainerAccess
= lens _uaContainerAccess
(\ s a -> s{_uaContainerAccess = a})
. _Default
. _Coerce
uaPermissionId :: Lens' UserAccess (Maybe Text)
uaPermissionId
= lens _uaPermissionId
(\ s a -> s{_uaPermissionId = a})
instance FromJSON UserAccess where
parseJSON
= withObject "UserAccess"
(\ o ->
UserAccess' <$>
(o .:? "accountAccess") <*> (o .:? "accountId") <*>
(o .:? "emailAddress")
<*> (o .:? "containerAccess" .!= mempty)
<*> (o .:? "permissionId"))
instance ToJSON UserAccess where
toJSON UserAccess'{..}
= object
(catMaybes
[("accountAccess" .=) <$> _uaAccountAccess,
("accountId" .=) <$> _uaAccountId,
("emailAddress" .=) <$> _uaEmailAddress,
("containerAccess" .=) <$> _uaContainerAccess,
("permissionId" .=) <$> _uaPermissionId])
data Environment = Environment'
{ _eContainerId :: !(Maybe Text)
, _eFingerprint :: !(Maybe Text)
, _eContainerVersionId :: !(Maybe Text)
, _eURL :: !(Maybe Text)
, _eAuthorizationCode :: !(Maybe Text)
, _eAccountId :: !(Maybe Text)
, _eName :: !(Maybe Text)
, _eEnableDebug :: !(Maybe Bool)
, _eEnvironmentId :: !(Maybe Text)
, _eType :: !(Maybe EnvironmentType)
, _eAuthorizationTimestampMs :: !(Maybe (Textual Int64))
, _eDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
environment
:: Environment
environment =
Environment'
{ _eContainerId = Nothing
, _eFingerprint = Nothing
, _eContainerVersionId = Nothing
, _eURL = Nothing
, _eAuthorizationCode = Nothing
, _eAccountId = Nothing
, _eName = Nothing
, _eEnableDebug = Nothing
, _eEnvironmentId = Nothing
, _eType = Nothing
, _eAuthorizationTimestampMs = Nothing
, _eDescription = Nothing
}
eContainerId :: Lens' Environment (Maybe Text)
eContainerId
= lens _eContainerId (\ s a -> s{_eContainerId = a})
eFingerprint :: Lens' Environment (Maybe Text)
eFingerprint
= lens _eFingerprint (\ s a -> s{_eFingerprint = a})
eContainerVersionId :: Lens' Environment (Maybe Text)
eContainerVersionId
= lens _eContainerVersionId
(\ s a -> s{_eContainerVersionId = a})
eURL :: Lens' Environment (Maybe Text)
eURL = lens _eURL (\ s a -> s{_eURL = a})
eAuthorizationCode :: Lens' Environment (Maybe Text)
eAuthorizationCode
= lens _eAuthorizationCode
(\ s a -> s{_eAuthorizationCode = a})
eAccountId :: Lens' Environment (Maybe Text)
eAccountId
= lens _eAccountId (\ s a -> s{_eAccountId = a})
eName :: Lens' Environment (Maybe Text)
eName = lens _eName (\ s a -> s{_eName = a})
eEnableDebug :: Lens' Environment (Maybe Bool)
eEnableDebug
= lens _eEnableDebug (\ s a -> s{_eEnableDebug = a})
eEnvironmentId :: Lens' Environment (Maybe Text)
eEnvironmentId
= lens _eEnvironmentId
(\ s a -> s{_eEnvironmentId = a})
eType :: Lens' Environment (Maybe EnvironmentType)
eType = lens _eType (\ s a -> s{_eType = a})
eAuthorizationTimestampMs :: Lens' Environment (Maybe Int64)
eAuthorizationTimestampMs
= lens _eAuthorizationTimestampMs
(\ s a -> s{_eAuthorizationTimestampMs = a})
. mapping _Coerce
eDescription :: Lens' Environment (Maybe Text)
eDescription
= lens _eDescription (\ s a -> s{_eDescription = a})
instance FromJSON Environment where
parseJSON
= withObject "Environment"
(\ o ->
Environment' <$>
(o .:? "containerId") <*> (o .:? "fingerprint") <*>
(o .:? "containerVersionId")
<*> (o .:? "url")
<*> (o .:? "authorizationCode")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "enableDebug")
<*> (o .:? "environmentId")
<*> (o .:? "type")
<*> (o .:? "authorizationTimestampMs")
<*> (o .:? "description"))
instance ToJSON Environment where
toJSON Environment'{..}
= object
(catMaybes
[("containerId" .=) <$> _eContainerId,
("fingerprint" .=) <$> _eFingerprint,
("containerVersionId" .=) <$> _eContainerVersionId,
("url" .=) <$> _eURL,
("authorizationCode" .=) <$> _eAuthorizationCode,
("accountId" .=) <$> _eAccountId,
("name" .=) <$> _eName,
("enableDebug" .=) <$> _eEnableDebug,
("environmentId" .=) <$> _eEnvironmentId,
("type" .=) <$> _eType,
("authorizationTimestampMs" .=) <$>
_eAuthorizationTimestampMs,
("description" .=) <$> _eDescription])
newtype AccountAccess = AccountAccess'
{ _aaPermission :: Maybe [AccountAccessPermissionItem]
} deriving (Eq,Show,Data,Typeable,Generic)
accountAccess
:: AccountAccess
accountAccess =
AccountAccess'
{ _aaPermission = Nothing
}
aaPermission :: Lens' AccountAccess [AccountAccessPermissionItem]
aaPermission
= lens _aaPermission (\ s a -> s{_aaPermission = a})
. _Default
. _Coerce
instance FromJSON AccountAccess where
parseJSON
= withObject "AccountAccess"
(\ o ->
AccountAccess' <$> (o .:? "permission" .!= mempty))
instance ToJSON AccountAccess where
toJSON AccountAccess'{..}
= object
(catMaybes [("permission" .=) <$> _aaPermission])
newtype ListAccountsResponse = ListAccountsResponse'
{ _larAccounts :: Maybe [Account]
} deriving (Eq,Show,Data,Typeable,Generic)
listAccountsResponse
:: ListAccountsResponse
listAccountsResponse =
ListAccountsResponse'
{ _larAccounts = Nothing
}
larAccounts :: Lens' ListAccountsResponse [Account]
larAccounts
= lens _larAccounts (\ s a -> s{_larAccounts = a}) .
_Default
. _Coerce
instance FromJSON ListAccountsResponse where
parseJSON
= withObject "ListAccountsResponse"
(\ o ->
ListAccountsResponse' <$>
(o .:? "accounts" .!= mempty))
instance ToJSON ListAccountsResponse where
toJSON ListAccountsResponse'{..}
= object
(catMaybes [("accounts" .=) <$> _larAccounts])
data Rule = Rule'
{ _rContainerId :: !(Maybe Text)
, _rFingerprint :: !(Maybe Text)
, _rRuleId :: !(Maybe Text)
, _rAccountId :: !(Maybe Text)
, _rName :: !(Maybe Text)
, _rNotes :: !(Maybe Text)
, _rCondition :: !(Maybe [Condition])
} deriving (Eq,Show,Data,Typeable,Generic)
rule
:: Rule
rule =
Rule'
{ _rContainerId = Nothing
, _rFingerprint = Nothing
, _rRuleId = Nothing
, _rAccountId = Nothing
, _rName = Nothing
, _rNotes = Nothing
, _rCondition = Nothing
}
rContainerId :: Lens' Rule (Maybe Text)
rContainerId
= lens _rContainerId (\ s a -> s{_rContainerId = a})
rFingerprint :: Lens' Rule (Maybe Text)
rFingerprint
= lens _rFingerprint (\ s a -> s{_rFingerprint = a})
rRuleId :: Lens' Rule (Maybe Text)
rRuleId = lens _rRuleId (\ s a -> s{_rRuleId = a})
rAccountId :: Lens' Rule (Maybe Text)
rAccountId
= lens _rAccountId (\ s a -> s{_rAccountId = a})
rName :: Lens' Rule (Maybe Text)
rName = lens _rName (\ s a -> s{_rName = a})
rNotes :: Lens' Rule (Maybe Text)
rNotes = lens _rNotes (\ s a -> s{_rNotes = a})
rCondition :: Lens' Rule [Condition]
rCondition
= lens _rCondition (\ s a -> s{_rCondition = a}) .
_Default
. _Coerce
instance FromJSON Rule where
parseJSON
= withObject "Rule"
(\ o ->
Rule' <$>
(o .:? "containerId") <*> (o .:? "fingerprint") <*>
(o .:? "ruleId")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "notes")
<*> (o .:? "condition" .!= mempty))
instance ToJSON Rule where
toJSON Rule'{..}
= object
(catMaybes
[("containerId" .=) <$> _rContainerId,
("fingerprint" .=) <$> _rFingerprint,
("ruleId" .=) <$> _rRuleId,
("accountId" .=) <$> _rAccountId,
("name" .=) <$> _rName, ("notes" .=) <$> _rNotes,
("condition" .=) <$> _rCondition])
data Folder = Folder'
{ _fContainerId :: !(Maybe Text)
, _fFingerprint :: !(Maybe Text)
, _fFolderId :: !(Maybe Text)
, _fAccountId :: !(Maybe Text)
, _fName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
folder
:: Folder
folder =
Folder'
{ _fContainerId = Nothing
, _fFingerprint = Nothing
, _fFolderId = Nothing
, _fAccountId = Nothing
, _fName = Nothing
}
fContainerId :: Lens' Folder (Maybe Text)
fContainerId
= lens _fContainerId (\ s a -> s{_fContainerId = a})
fFingerprint :: Lens' Folder (Maybe Text)
fFingerprint
= lens _fFingerprint (\ s a -> s{_fFingerprint = a})
fFolderId :: Lens' Folder (Maybe Text)
fFolderId
= lens _fFolderId (\ s a -> s{_fFolderId = a})
fAccountId :: Lens' Folder (Maybe Text)
fAccountId
= lens _fAccountId (\ s a -> s{_fAccountId = a})
fName :: Lens' Folder (Maybe Text)
fName = lens _fName (\ s a -> s{_fName = a})
instance FromJSON Folder where
parseJSON
= withObject "Folder"
(\ o ->
Folder' <$>
(o .:? "containerId") <*> (o .:? "fingerprint") <*>
(o .:? "folderId")
<*> (o .:? "accountId")
<*> (o .:? "name"))
instance ToJSON Folder where
toJSON Folder'{..}
= object
(catMaybes
[("containerId" .=) <$> _fContainerId,
("fingerprint" .=) <$> _fFingerprint,
("folderId" .=) <$> _fFolderId,
("accountId" .=) <$> _fAccountId,
("name" .=) <$> _fName])
data Variable = Variable'
{ _vScheduleEndMs :: !(Maybe (Textual Int64))
, _vParentFolderId :: !(Maybe Text)
, _vContainerId :: !(Maybe Text)
, _vFingerprint :: !(Maybe Text)
, _vVariableId :: !(Maybe Text)
, _vAccountId :: !(Maybe Text)
, _vDisablingTriggerId :: !(Maybe [Text])
, _vName :: !(Maybe Text)
, _vType :: !(Maybe Text)
, _vScheduleStartMs :: !(Maybe (Textual Int64))
, _vNotes :: !(Maybe Text)
, _vEnablingTriggerId :: !(Maybe [Text])
, _vParameter :: !(Maybe [Parameter])
} deriving (Eq,Show,Data,Typeable,Generic)
variable
:: Variable
variable =
Variable'
{ _vScheduleEndMs = Nothing
, _vParentFolderId = Nothing
, _vContainerId = Nothing
, _vFingerprint = Nothing
, _vVariableId = Nothing
, _vAccountId = Nothing
, _vDisablingTriggerId = Nothing
, _vName = Nothing
, _vType = Nothing
, _vScheduleStartMs = Nothing
, _vNotes = Nothing
, _vEnablingTriggerId = Nothing
, _vParameter = Nothing
}
vScheduleEndMs :: Lens' Variable (Maybe Int64)
vScheduleEndMs
= lens _vScheduleEndMs
(\ s a -> s{_vScheduleEndMs = a})
. mapping _Coerce
vParentFolderId :: Lens' Variable (Maybe Text)
vParentFolderId
= lens _vParentFolderId
(\ s a -> s{_vParentFolderId = a})
vContainerId :: Lens' Variable (Maybe Text)
vContainerId
= lens _vContainerId (\ s a -> s{_vContainerId = a})
vFingerprint :: Lens' Variable (Maybe Text)
vFingerprint
= lens _vFingerprint (\ s a -> s{_vFingerprint = a})
vVariableId :: Lens' Variable (Maybe Text)
vVariableId
= lens _vVariableId (\ s a -> s{_vVariableId = a})
vAccountId :: Lens' Variable (Maybe Text)
vAccountId
= lens _vAccountId (\ s a -> s{_vAccountId = a})
vDisablingTriggerId :: Lens' Variable [Text]
vDisablingTriggerId
= lens _vDisablingTriggerId
(\ s a -> s{_vDisablingTriggerId = a})
. _Default
. _Coerce
vName :: Lens' Variable (Maybe Text)
vName = lens _vName (\ s a -> s{_vName = a})
vType :: Lens' Variable (Maybe Text)
vType = lens _vType (\ s a -> s{_vType = a})
vScheduleStartMs :: Lens' Variable (Maybe Int64)
vScheduleStartMs
= lens _vScheduleStartMs
(\ s a -> s{_vScheduleStartMs = a})
. mapping _Coerce
vNotes :: Lens' Variable (Maybe Text)
vNotes = lens _vNotes (\ s a -> s{_vNotes = a})
vEnablingTriggerId :: Lens' Variable [Text]
vEnablingTriggerId
= lens _vEnablingTriggerId
(\ s a -> s{_vEnablingTriggerId = a})
. _Default
. _Coerce
vParameter :: Lens' Variable [Parameter]
vParameter
= lens _vParameter (\ s a -> s{_vParameter = a}) .
_Default
. _Coerce
instance FromJSON Variable where
parseJSON
= withObject "Variable"
(\ o ->
Variable' <$>
(o .:? "scheduleEndMs") <*> (o .:? "parentFolderId")
<*> (o .:? "containerId")
<*> (o .:? "fingerprint")
<*> (o .:? "variableId")
<*> (o .:? "accountId")
<*> (o .:? "disablingTriggerId" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "type")
<*> (o .:? "scheduleStartMs")
<*> (o .:? "notes")
<*> (o .:? "enablingTriggerId" .!= mempty)
<*> (o .:? "parameter" .!= mempty))
instance ToJSON Variable where
toJSON Variable'{..}
= object
(catMaybes
[("scheduleEndMs" .=) <$> _vScheduleEndMs,
("parentFolderId" .=) <$> _vParentFolderId,
("containerId" .=) <$> _vContainerId,
("fingerprint" .=) <$> _vFingerprint,
("variableId" .=) <$> _vVariableId,
("accountId" .=) <$> _vAccountId,
("disablingTriggerId" .=) <$> _vDisablingTriggerId,
("name" .=) <$> _vName, ("type" .=) <$> _vType,
("scheduleStartMs" .=) <$> _vScheduleStartMs,
("notes" .=) <$> _vNotes,
("enablingTriggerId" .=) <$> _vEnablingTriggerId,
("parameter" .=) <$> _vParameter])
data Account = Account'
{ _aaShareData :: !(Maybe Bool)
, _aaFingerprint :: !(Maybe Text)
, _aaAccountId :: !(Maybe Text)
, _aaName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
account
:: Account
account =
Account'
{ _aaShareData = Nothing
, _aaFingerprint = Nothing
, _aaAccountId = Nothing
, _aaName = Nothing
}
aaShareData :: Lens' Account (Maybe Bool)
aaShareData
= lens _aaShareData (\ s a -> s{_aaShareData = a})
aaFingerprint :: Lens' Account (Maybe Text)
aaFingerprint
= lens _aaFingerprint
(\ s a -> s{_aaFingerprint = a})
aaAccountId :: Lens' Account (Maybe Text)
aaAccountId
= lens _aaAccountId (\ s a -> s{_aaAccountId = a})
aaName :: Lens' Account (Maybe Text)
aaName = lens _aaName (\ s a -> s{_aaName = a})
instance FromJSON Account where
parseJSON
= withObject "Account"
(\ o ->
Account' <$>
(o .:? "shareData") <*> (o .:? "fingerprint") <*>
(o .:? "accountId")
<*> (o .:? "name"))
instance ToJSON Account where
toJSON Account'{..}
= object
(catMaybes
[("shareData" .=) <$> _aaShareData,
("fingerprint" .=) <$> _aaFingerprint,
("accountId" .=) <$> _aaAccountId,
("name" .=) <$> _aaName])
data ListContainerVersionsResponse = ListContainerVersionsResponse'
{ _lcvrContainerVersionHeader :: !(Maybe [ContainerVersionHeader])
, _lcvrContainerVersion :: !(Maybe [ContainerVersion])
} deriving (Eq,Show,Data,Typeable,Generic)
listContainerVersionsResponse
:: ListContainerVersionsResponse
listContainerVersionsResponse =
ListContainerVersionsResponse'
{ _lcvrContainerVersionHeader = Nothing
, _lcvrContainerVersion = Nothing
}
lcvrContainerVersionHeader :: Lens' ListContainerVersionsResponse [ContainerVersionHeader]
lcvrContainerVersionHeader
= lens _lcvrContainerVersionHeader
(\ s a -> s{_lcvrContainerVersionHeader = a})
. _Default
. _Coerce
lcvrContainerVersion :: Lens' ListContainerVersionsResponse [ContainerVersion]
lcvrContainerVersion
= lens _lcvrContainerVersion
(\ s a -> s{_lcvrContainerVersion = a})
. _Default
. _Coerce
instance FromJSON ListContainerVersionsResponse where
parseJSON
= withObject "ListContainerVersionsResponse"
(\ o ->
ListContainerVersionsResponse' <$>
(o .:? "containerVersionHeader" .!= mempty) <*>
(o .:? "containerVersion" .!= mempty))
instance ToJSON ListContainerVersionsResponse where
toJSON ListContainerVersionsResponse'{..}
= object
(catMaybes
[("containerVersionHeader" .=) <$>
_lcvrContainerVersionHeader,
("containerVersion" .=) <$> _lcvrContainerVersion])
data Container = Container'
{ _cPublicId :: !(Maybe Text)
, _cUsageContext :: !(Maybe [ContainerUsageContextItem])
, _cEnabledBuiltInVariable :: !(Maybe [ContainerEnabledBuiltInVariableItem])
, _cContainerId :: !(Maybe Text)
, _cFingerprint :: !(Maybe Text)
, _cTimeZoneCountryId :: !(Maybe Text)
, _cAccountId :: !(Maybe Text)
, _cDomainName :: !(Maybe [Text])
, _cName :: !(Maybe Text)
, _cNotes :: !(Maybe Text)
, _cTimeZoneId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
container
:: Container
container =
Container'
{ _cPublicId = Nothing
, _cUsageContext = Nothing
, _cEnabledBuiltInVariable = Nothing
, _cContainerId = Nothing
, _cFingerprint = Nothing
, _cTimeZoneCountryId = Nothing
, _cAccountId = Nothing
, _cDomainName = Nothing
, _cName = Nothing
, _cNotes = Nothing
, _cTimeZoneId = Nothing
}
cPublicId :: Lens' Container (Maybe Text)
cPublicId
= lens _cPublicId (\ s a -> s{_cPublicId = a})
cUsageContext :: Lens' Container [ContainerUsageContextItem]
cUsageContext
= lens _cUsageContext
(\ s a -> s{_cUsageContext = a})
. _Default
. _Coerce
cEnabledBuiltInVariable :: Lens' Container [ContainerEnabledBuiltInVariableItem]
cEnabledBuiltInVariable
= lens _cEnabledBuiltInVariable
(\ s a -> s{_cEnabledBuiltInVariable = a})
. _Default
. _Coerce
cContainerId :: Lens' Container (Maybe Text)
cContainerId
= lens _cContainerId (\ s a -> s{_cContainerId = a})
cFingerprint :: Lens' Container (Maybe Text)
cFingerprint
= lens _cFingerprint (\ s a -> s{_cFingerprint = a})
cTimeZoneCountryId :: Lens' Container (Maybe Text)
cTimeZoneCountryId
= lens _cTimeZoneCountryId
(\ s a -> s{_cTimeZoneCountryId = a})
cAccountId :: Lens' Container (Maybe Text)
cAccountId
= lens _cAccountId (\ s a -> s{_cAccountId = a})
cDomainName :: Lens' Container [Text]
cDomainName
= lens _cDomainName (\ s a -> s{_cDomainName = a}) .
_Default
. _Coerce
cName :: Lens' Container (Maybe Text)
cName = lens _cName (\ s a -> s{_cName = a})
cNotes :: Lens' Container (Maybe Text)
cNotes = lens _cNotes (\ s a -> s{_cNotes = a})
cTimeZoneId :: Lens' Container (Maybe Text)
cTimeZoneId
= lens _cTimeZoneId (\ s a -> s{_cTimeZoneId = a})
instance FromJSON Container where
parseJSON
= withObject "Container"
(\ o ->
Container' <$>
(o .:? "publicId") <*>
(o .:? "usageContext" .!= mempty)
<*> (o .:? "enabledBuiltInVariable" .!= mempty)
<*> (o .:? "containerId")
<*> (o .:? "fingerprint")
<*> (o .:? "timeZoneCountryId")
<*> (o .:? "accountId")
<*> (o .:? "domainName" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "notes")
<*> (o .:? "timeZoneId"))
instance ToJSON Container where
toJSON Container'{..}
= object
(catMaybes
[("publicId" .=) <$> _cPublicId,
("usageContext" .=) <$> _cUsageContext,
("enabledBuiltInVariable" .=) <$>
_cEnabledBuiltInVariable,
("containerId" .=) <$> _cContainerId,
("fingerprint" .=) <$> _cFingerprint,
("timeZoneCountryId" .=) <$> _cTimeZoneCountryId,
("accountId" .=) <$> _cAccountId,
("domainName" .=) <$> _cDomainName,
("name" .=) <$> _cName, ("notes" .=) <$> _cNotes,
("timeZoneId" .=) <$> _cTimeZoneId])
newtype ListAccountUsersResponse = ListAccountUsersResponse'
{ _laurUserAccess :: Maybe [UserAccess]
} deriving (Eq,Show,Data,Typeable,Generic)
listAccountUsersResponse
:: ListAccountUsersResponse
listAccountUsersResponse =
ListAccountUsersResponse'
{ _laurUserAccess = Nothing
}
laurUserAccess :: Lens' ListAccountUsersResponse [UserAccess]
laurUserAccess
= lens _laurUserAccess
(\ s a -> s{_laurUserAccess = a})
. _Default
. _Coerce
instance FromJSON ListAccountUsersResponse where
parseJSON
= withObject "ListAccountUsersResponse"
(\ o ->
ListAccountUsersResponse' <$>
(o .:? "userAccess" .!= mempty))
instance ToJSON ListAccountUsersResponse where
toJSON ListAccountUsersResponse'{..}
= object
(catMaybes [("userAccess" .=) <$> _laurUserAccess])
data ContainerVersion = ContainerVersion'
{ _cvMacro :: !(Maybe [Macro])
, _cvTag :: !(Maybe [Tag])
, _cvContainerId :: !(Maybe Text)
, _cvFingerprint :: !(Maybe Text)
, _cvContainerVersionId :: !(Maybe Text)
, _cvRule :: !(Maybe [Rule])
, _cvFolder :: !(Maybe [Folder])
, _cvVariable :: !(Maybe [Variable])
, _cvAccountId :: !(Maybe Text)
, _cvName :: !(Maybe Text)
, _cvContainer :: !(Maybe Container)
, _cvDeleted :: !(Maybe Bool)
, _cvTrigger :: !(Maybe [Trigger])
, _cvNotes :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
containerVersion
:: ContainerVersion
containerVersion =
ContainerVersion'
{ _cvMacro = Nothing
, _cvTag = Nothing
, _cvContainerId = Nothing
, _cvFingerprint = Nothing
, _cvContainerVersionId = Nothing
, _cvRule = Nothing
, _cvFolder = Nothing
, _cvVariable = Nothing
, _cvAccountId = Nothing
, _cvName = Nothing
, _cvContainer = Nothing
, _cvDeleted = Nothing
, _cvTrigger = Nothing
, _cvNotes = Nothing
}
cvMacro :: Lens' ContainerVersion [Macro]
cvMacro
= lens _cvMacro (\ s a -> s{_cvMacro = a}) . _Default
. _Coerce
cvTag :: Lens' ContainerVersion [Tag]
cvTag
= lens _cvTag (\ s a -> s{_cvTag = a}) . _Default .
_Coerce
cvContainerId :: Lens' ContainerVersion (Maybe Text)
cvContainerId
= lens _cvContainerId
(\ s a -> s{_cvContainerId = a})
cvFingerprint :: Lens' ContainerVersion (Maybe Text)
cvFingerprint
= lens _cvFingerprint
(\ s a -> s{_cvFingerprint = a})
cvContainerVersionId :: Lens' ContainerVersion (Maybe Text)
cvContainerVersionId
= lens _cvContainerVersionId
(\ s a -> s{_cvContainerVersionId = a})
cvRule :: Lens' ContainerVersion [Rule]
cvRule
= lens _cvRule (\ s a -> s{_cvRule = a}) . _Default .
_Coerce
cvFolder :: Lens' ContainerVersion [Folder]
cvFolder
= lens _cvFolder (\ s a -> s{_cvFolder = a}) .
_Default
. _Coerce
cvVariable :: Lens' ContainerVersion [Variable]
cvVariable
= lens _cvVariable (\ s a -> s{_cvVariable = a}) .
_Default
. _Coerce
cvAccountId :: Lens' ContainerVersion (Maybe Text)
cvAccountId
= lens _cvAccountId (\ s a -> s{_cvAccountId = a})
cvName :: Lens' ContainerVersion (Maybe Text)
cvName = lens _cvName (\ s a -> s{_cvName = a})
cvContainer :: Lens' ContainerVersion (Maybe Container)
cvContainer
= lens _cvContainer (\ s a -> s{_cvContainer = a})
cvDeleted :: Lens' ContainerVersion (Maybe Bool)
cvDeleted
= lens _cvDeleted (\ s a -> s{_cvDeleted = a})
cvTrigger :: Lens' ContainerVersion [Trigger]
cvTrigger
= lens _cvTrigger (\ s a -> s{_cvTrigger = a}) .
_Default
. _Coerce
cvNotes :: Lens' ContainerVersion (Maybe Text)
cvNotes = lens _cvNotes (\ s a -> s{_cvNotes = a})
instance FromJSON ContainerVersion where
parseJSON
= withObject "ContainerVersion"
(\ o ->
ContainerVersion' <$>
(o .:? "macro" .!= mempty) <*>
(o .:? "tag" .!= mempty)
<*> (o .:? "containerId")
<*> (o .:? "fingerprint")
<*> (o .:? "containerVersionId")
<*> (o .:? "rule" .!= mempty)
<*> (o .:? "folder" .!= mempty)
<*> (o .:? "variable" .!= mempty)
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "container")
<*> (o .:? "deleted")
<*> (o .:? "trigger" .!= mempty)
<*> (o .:? "notes"))
instance ToJSON ContainerVersion where
toJSON ContainerVersion'{..}
= object
(catMaybes
[("macro" .=) <$> _cvMacro, ("tag" .=) <$> _cvTag,
("containerId" .=) <$> _cvContainerId,
("fingerprint" .=) <$> _cvFingerprint,
("containerVersionId" .=) <$> _cvContainerVersionId,
("rule" .=) <$> _cvRule, ("folder" .=) <$> _cvFolder,
("variable" .=) <$> _cvVariable,
("accountId" .=) <$> _cvAccountId,
("name" .=) <$> _cvName,
("container" .=) <$> _cvContainer,
("deleted" .=) <$> _cvDeleted,
("trigger" .=) <$> _cvTrigger,
("notes" .=) <$> _cvNotes])
data SetupTag = SetupTag'
{ _stTagName :: !(Maybe Text)
, _stStopOnSetupFailure :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
setupTag
:: SetupTag
setupTag =
SetupTag'
{ _stTagName = Nothing
, _stStopOnSetupFailure = Nothing
}
stTagName :: Lens' SetupTag (Maybe Text)
stTagName
= lens _stTagName (\ s a -> s{_stTagName = a})
stStopOnSetupFailure :: Lens' SetupTag (Maybe Bool)
stStopOnSetupFailure
= lens _stStopOnSetupFailure
(\ s a -> s{_stStopOnSetupFailure = a})
instance FromJSON SetupTag where
parseJSON
= withObject "SetupTag"
(\ o ->
SetupTag' <$>
(o .:? "tagName") <*> (o .:? "stopOnSetupFailure"))
instance ToJSON SetupTag where
toJSON SetupTag'{..}
= object
(catMaybes
[("tagName" .=) <$> _stTagName,
("stopOnSetupFailure" .=) <$> _stStopOnSetupFailure])
newtype ListContainersResponse = ListContainersResponse'
{ _lcrContainers :: Maybe [Container]
} deriving (Eq,Show,Data,Typeable,Generic)
listContainersResponse
:: ListContainersResponse
listContainersResponse =
ListContainersResponse'
{ _lcrContainers = Nothing
}
lcrContainers :: Lens' ListContainersResponse [Container]
lcrContainers
= lens _lcrContainers
(\ s a -> s{_lcrContainers = a})
. _Default
. _Coerce
instance FromJSON ListContainersResponse where
parseJSON
= withObject "ListContainersResponse"
(\ o ->
ListContainersResponse' <$>
(o .:? "containers" .!= mempty))
instance ToJSON ListContainersResponse where
toJSON ListContainersResponse'{..}
= object
(catMaybes [("containers" .=) <$> _lcrContainers])
data Trigger = Trigger'
{ _triCustomEventFilter :: !(Maybe [Condition])
, _triParentFolderId :: !(Maybe Text)
, _triContainerId :: !(Maybe Text)
, _triTriggerId :: !(Maybe Text)
, _triCheckValidation :: !(Maybe Parameter)
, _triFingerprint :: !(Maybe Text)
, _triAutoEventFilter :: !(Maybe [Condition])
, _triUniqueTriggerId :: !(Maybe Parameter)
, _triAccountId :: !(Maybe Text)
, _triName :: !(Maybe Text)
, _triInterval :: !(Maybe Parameter)
, _triEnableAllVideos :: !(Maybe Parameter)
, _triWaitForTagsTimeout :: !(Maybe Parameter)
, _triLimit :: !(Maybe Parameter)
, _triFilter :: !(Maybe [Condition])
, _triType :: !(Maybe TriggerType)
, _triVideoPercentageList :: !(Maybe Parameter)
, _triEventName :: !(Maybe Parameter)
, _triWaitForTags :: !(Maybe Parameter)
} deriving (Eq,Show,Data,Typeable,Generic)
trigger
:: Trigger
trigger =
Trigger'
{ _triCustomEventFilter = Nothing
, _triParentFolderId = Nothing
, _triContainerId = Nothing
, _triTriggerId = Nothing
, _triCheckValidation = Nothing
, _triFingerprint = Nothing
, _triAutoEventFilter = Nothing
, _triUniqueTriggerId = Nothing
, _triAccountId = Nothing
, _triName = Nothing
, _triInterval = Nothing
, _triEnableAllVideos = Nothing
, _triWaitForTagsTimeout = Nothing
, _triLimit = Nothing
, _triFilter = Nothing
, _triType = Nothing
, _triVideoPercentageList = Nothing
, _triEventName = Nothing
, _triWaitForTags = Nothing
}
triCustomEventFilter :: Lens' Trigger [Condition]
triCustomEventFilter
= lens _triCustomEventFilter
(\ s a -> s{_triCustomEventFilter = a})
. _Default
. _Coerce
triParentFolderId :: Lens' Trigger (Maybe Text)
triParentFolderId
= lens _triParentFolderId
(\ s a -> s{_triParentFolderId = a})
triContainerId :: Lens' Trigger (Maybe Text)
triContainerId
= lens _triContainerId
(\ s a -> s{_triContainerId = a})
triTriggerId :: Lens' Trigger (Maybe Text)
triTriggerId
= lens _triTriggerId (\ s a -> s{_triTriggerId = a})
triCheckValidation :: Lens' Trigger (Maybe Parameter)
triCheckValidation
= lens _triCheckValidation
(\ s a -> s{_triCheckValidation = a})
triFingerprint :: Lens' Trigger (Maybe Text)
triFingerprint
= lens _triFingerprint
(\ s a -> s{_triFingerprint = a})
triAutoEventFilter :: Lens' Trigger [Condition]
triAutoEventFilter
= lens _triAutoEventFilter
(\ s a -> s{_triAutoEventFilter = a})
. _Default
. _Coerce
triUniqueTriggerId :: Lens' Trigger (Maybe Parameter)
triUniqueTriggerId
= lens _triUniqueTriggerId
(\ s a -> s{_triUniqueTriggerId = a})
triAccountId :: Lens' Trigger (Maybe Text)
triAccountId
= lens _triAccountId (\ s a -> s{_triAccountId = a})
triName :: Lens' Trigger (Maybe Text)
triName = lens _triName (\ s a -> s{_triName = a})
triInterval :: Lens' Trigger (Maybe Parameter)
triInterval
= lens _triInterval (\ s a -> s{_triInterval = a})
triEnableAllVideos :: Lens' Trigger (Maybe Parameter)
triEnableAllVideos
= lens _triEnableAllVideos
(\ s a -> s{_triEnableAllVideos = a})
triWaitForTagsTimeout :: Lens' Trigger (Maybe Parameter)
triWaitForTagsTimeout
= lens _triWaitForTagsTimeout
(\ s a -> s{_triWaitForTagsTimeout = a})
triLimit :: Lens' Trigger (Maybe Parameter)
triLimit = lens _triLimit (\ s a -> s{_triLimit = a})
triFilter :: Lens' Trigger [Condition]
triFilter
= lens _triFilter (\ s a -> s{_triFilter = a}) .
_Default
. _Coerce
triType :: Lens' Trigger (Maybe TriggerType)
triType = lens _triType (\ s a -> s{_triType = a})
triVideoPercentageList :: Lens' Trigger (Maybe Parameter)
triVideoPercentageList
= lens _triVideoPercentageList
(\ s a -> s{_triVideoPercentageList = a})
triEventName :: Lens' Trigger (Maybe Parameter)
triEventName
= lens _triEventName (\ s a -> s{_triEventName = a})
triWaitForTags :: Lens' Trigger (Maybe Parameter)
triWaitForTags
= lens _triWaitForTags
(\ s a -> s{_triWaitForTags = a})
instance FromJSON Trigger where
parseJSON
= withObject "Trigger"
(\ o ->
Trigger' <$>
(o .:? "customEventFilter" .!= mempty) <*>
(o .:? "parentFolderId")
<*> (o .:? "containerId")
<*> (o .:? "triggerId")
<*> (o .:? "checkValidation")
<*> (o .:? "fingerprint")
<*> (o .:? "autoEventFilter" .!= mempty)
<*> (o .:? "uniqueTriggerId")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "interval")
<*> (o .:? "enableAllVideos")
<*> (o .:? "waitForTagsTimeout")
<*> (o .:? "limit")
<*> (o .:? "filter" .!= mempty)
<*> (o .:? "type")
<*> (o .:? "videoPercentageList")
<*> (o .:? "eventName")
<*> (o .:? "waitForTags"))
instance ToJSON Trigger where
toJSON Trigger'{..}
= object
(catMaybes
[("customEventFilter" .=) <$> _triCustomEventFilter,
("parentFolderId" .=) <$> _triParentFolderId,
("containerId" .=) <$> _triContainerId,
("triggerId" .=) <$> _triTriggerId,
("checkValidation" .=) <$> _triCheckValidation,
("fingerprint" .=) <$> _triFingerprint,
("autoEventFilter" .=) <$> _triAutoEventFilter,
("uniqueTriggerId" .=) <$> _triUniqueTriggerId,
("accountId" .=) <$> _triAccountId,
("name" .=) <$> _triName,
("interval" .=) <$> _triInterval,
("enableAllVideos" .=) <$> _triEnableAllVideos,
("waitForTagsTimeout" .=) <$> _triWaitForTagsTimeout,
("limit" .=) <$> _triLimit,
("filter" .=) <$> _triFilter,
("type" .=) <$> _triType,
("videoPercentageList" .=) <$>
_triVideoPercentageList,
("eventName" .=) <$> _triEventName,
("waitForTags" .=) <$> _triWaitForTags])
newtype ListTagsResponse = ListTagsResponse'
{ _ltrTags :: Maybe [Tag]
} deriving (Eq,Show,Data,Typeable,Generic)
listTagsResponse
:: ListTagsResponse
listTagsResponse =
ListTagsResponse'
{ _ltrTags = Nothing
}
ltrTags :: Lens' ListTagsResponse [Tag]
ltrTags
= lens _ltrTags (\ s a -> s{_ltrTags = a}) . _Default
. _Coerce
instance FromJSON ListTagsResponse where
parseJSON
= withObject "ListTagsResponse"
(\ o ->
ListTagsResponse' <$> (o .:? "tags" .!= mempty))
instance ToJSON ListTagsResponse where
toJSON ListTagsResponse'{..}
= object (catMaybes [("tags" .=) <$> _ltrTags])
data FolderEntities = FolderEntities'
{ _feTag :: !(Maybe [Tag])
, _feVariable :: !(Maybe [Variable])
, _feTrigger :: !(Maybe [Trigger])
} deriving (Eq,Show,Data,Typeable,Generic)
folderEntities
:: FolderEntities
folderEntities =
FolderEntities'
{ _feTag = Nothing
, _feVariable = Nothing
, _feTrigger = Nothing
}
feTag :: Lens' FolderEntities [Tag]
feTag
= lens _feTag (\ s a -> s{_feTag = a}) . _Default .
_Coerce
feVariable :: Lens' FolderEntities [Variable]
feVariable
= lens _feVariable (\ s a -> s{_feVariable = a}) .
_Default
. _Coerce
feTrigger :: Lens' FolderEntities [Trigger]
feTrigger
= lens _feTrigger (\ s a -> s{_feTrigger = a}) .
_Default
. _Coerce
instance FromJSON FolderEntities where
parseJSON
= withObject "FolderEntities"
(\ o ->
FolderEntities' <$>
(o .:? "tag" .!= mempty) <*>
(o .:? "variable" .!= mempty)
<*> (o .:? "trigger" .!= mempty))
instance ToJSON FolderEntities where
toJSON FolderEntities'{..}
= object
(catMaybes
[("tag" .=) <$> _feTag,
("variable" .=) <$> _feVariable,
("trigger" .=) <$> _feTrigger])
data Condition = Condition'
{ _cType :: !(Maybe ConditionType)
, _cParameter :: !(Maybe [Parameter])
} deriving (Eq,Show,Data,Typeable,Generic)
condition
:: Condition
condition =
Condition'
{ _cType = Nothing
, _cParameter = Nothing
}
cType :: Lens' Condition (Maybe ConditionType)
cType = lens _cType (\ s a -> s{_cType = a})
cParameter :: Lens' Condition [Parameter]
cParameter
= lens _cParameter (\ s a -> s{_cParameter = a}) .
_Default
. _Coerce
instance FromJSON Condition where
parseJSON
= withObject "Condition"
(\ o ->
Condition' <$>
(o .:? "type") <*> (o .:? "parameter" .!= mempty))
instance ToJSON Condition where
toJSON Condition'{..}
= object
(catMaybes
[("type" .=) <$> _cType,
("parameter" .=) <$> _cParameter])
data ContainerAccess = ContainerAccess'
{ _caContainerId :: !(Maybe Text)
, _caPermission :: !(Maybe [ContainerAccessPermissionItem])
} deriving (Eq,Show,Data,Typeable,Generic)
containerAccess
:: ContainerAccess
containerAccess =
ContainerAccess'
{ _caContainerId = Nothing
, _caPermission = Nothing
}
caContainerId :: Lens' ContainerAccess (Maybe Text)
caContainerId
= lens _caContainerId
(\ s a -> s{_caContainerId = a})
caPermission :: Lens' ContainerAccess [ContainerAccessPermissionItem]
caPermission
= lens _caPermission (\ s a -> s{_caPermission = a})
. _Default
. _Coerce
instance FromJSON ContainerAccess where
parseJSON
= withObject "ContainerAccess"
(\ o ->
ContainerAccess' <$>
(o .:? "containerId") <*>
(o .:? "permission" .!= mempty))
instance ToJSON ContainerAccess where
toJSON ContainerAccess'{..}
= object
(catMaybes
[("containerId" .=) <$> _caContainerId,
("permission" .=) <$> _caPermission])
data Parameter = Parameter'
{ _pList :: !(Maybe [Parameter])
, _pValue :: !(Maybe Text)
, _pMap :: !(Maybe [Parameter])
, _pKey :: !(Maybe Text)
, _pType :: !(Maybe ParameterType)
} deriving (Eq,Show,Data,Typeable,Generic)
parameter
:: Parameter
parameter =
Parameter'
{ _pList = Nothing
, _pValue = Nothing
, _pMap = Nothing
, _pKey = Nothing
, _pType = Nothing
}
pList :: Lens' Parameter [Parameter]
pList
= lens _pList (\ s a -> s{_pList = a}) . _Default .
_Coerce
pValue :: Lens' Parameter (Maybe Text)
pValue = lens _pValue (\ s a -> s{_pValue = a})
pMap :: Lens' Parameter [Parameter]
pMap
= lens _pMap (\ s a -> s{_pMap = a}) . _Default .
_Coerce
pKey :: Lens' Parameter (Maybe Text)
pKey = lens _pKey (\ s a -> s{_pKey = a})
pType :: Lens' Parameter (Maybe ParameterType)
pType = lens _pType (\ s a -> s{_pType = a})
instance FromJSON Parameter where
parseJSON
= withObject "Parameter"
(\ o ->
Parameter' <$>
(o .:? "list" .!= mempty) <*> (o .:? "value") <*>
(o .:? "map" .!= mempty)
<*> (o .:? "key")
<*> (o .:? "type"))
instance ToJSON Parameter where
toJSON Parameter'{..}
= object
(catMaybes
[("list" .=) <$> _pList, ("value" .=) <$> _pValue,
("map" .=) <$> _pMap, ("key" .=) <$> _pKey,
("type" .=) <$> _pType])