{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.TagManager.Types.Product where
import Network.Google.Prelude
import Network.Google.TagManager.Types.Sum
data CreateWorkspaceProposalRequest = CreateWorkspaceProposalRequest'
{ _cwprInitialComment :: !(Maybe WorkspaceProposalHistoryComment)
, _cwprReviewers :: !(Maybe [WorkspaceProposalUser])
} deriving (Eq,Show,Data,Typeable,Generic)
createWorkspaceProposalRequest
:: CreateWorkspaceProposalRequest
createWorkspaceProposalRequest =
CreateWorkspaceProposalRequest'
{ _cwprInitialComment = Nothing
, _cwprReviewers = Nothing
}
cwprInitialComment :: Lens' CreateWorkspaceProposalRequest (Maybe WorkspaceProposalHistoryComment)
cwprInitialComment
= lens _cwprInitialComment
(\ s a -> s{_cwprInitialComment = a})
cwprReviewers :: Lens' CreateWorkspaceProposalRequest [WorkspaceProposalUser]
cwprReviewers
= lens _cwprReviewers
(\ s a -> s{_cwprReviewers = a})
. _Default
. _Coerce
instance FromJSON CreateWorkspaceProposalRequest
where
parseJSON
= withObject "CreateWorkspaceProposalRequest"
(\ o ->
CreateWorkspaceProposalRequest' <$>
(o .:? "initialComment") <*>
(o .:? "reviewers" .!= mempty))
instance ToJSON CreateWorkspaceProposalRequest where
toJSON CreateWorkspaceProposalRequest'{..}
= object
(catMaybes
[("initialComment" .=) <$> _cwprInitialComment,
("reviewers" .=) <$> _cwprReviewers])
data ListVariablesResponse = ListVariablesResponse'
{ _lvrNextPageToken :: !(Maybe Text)
, _lvrVariable :: !(Maybe [Variable])
} deriving (Eq,Show,Data,Typeable,Generic)
listVariablesResponse
:: ListVariablesResponse
listVariablesResponse =
ListVariablesResponse'
{ _lvrNextPageToken = Nothing
, _lvrVariable = Nothing
}
lvrNextPageToken :: Lens' ListVariablesResponse (Maybe Text)
lvrNextPageToken
= lens _lvrNextPageToken
(\ s a -> s{_lvrNextPageToken = a})
lvrVariable :: Lens' ListVariablesResponse [Variable]
lvrVariable
= lens _lvrVariable (\ s a -> s{_lvrVariable = a}) .
_Default
. _Coerce
instance FromJSON ListVariablesResponse where
parseJSON
= withObject "ListVariablesResponse"
(\ o ->
ListVariablesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "variable" .!= mempty))
instance ToJSON ListVariablesResponse where
toJSON ListVariablesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lvrNextPageToken,
("variable" .=) <$> _lvrVariable])
data ListFoldersResponse = ListFoldersResponse'
{ _lfrNextPageToken :: !(Maybe Text)
, _lfrFolder :: !(Maybe [Folder])
} deriving (Eq,Show,Data,Typeable,Generic)
listFoldersResponse
:: ListFoldersResponse
listFoldersResponse =
ListFoldersResponse'
{ _lfrNextPageToken = Nothing
, _lfrFolder = Nothing
}
lfrNextPageToken :: Lens' ListFoldersResponse (Maybe Text)
lfrNextPageToken
= lens _lfrNextPageToken
(\ s a -> s{_lfrNextPageToken = a})
lfrFolder :: Lens' ListFoldersResponse [Folder]
lfrFolder
= lens _lfrFolder (\ s a -> s{_lfrFolder = a}) .
_Default
. _Coerce
instance FromJSON ListFoldersResponse where
parseJSON
= withObject "ListFoldersResponse"
(\ o ->
ListFoldersResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "folder" .!= mempty))
instance ToJSON ListFoldersResponse where
toJSON ListFoldersResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lfrNextPageToken,
("folder" .=) <$> _lfrFolder])
data ListEnvironmentsResponse = ListEnvironmentsResponse'
{ _lerNextPageToken :: !(Maybe Text)
, _lerEnvironment :: !(Maybe [Environment])
} deriving (Eq,Show,Data,Typeable,Generic)
listEnvironmentsResponse
:: ListEnvironmentsResponse
listEnvironmentsResponse =
ListEnvironmentsResponse'
{ _lerNextPageToken = Nothing
, _lerEnvironment = Nothing
}
lerNextPageToken :: Lens' ListEnvironmentsResponse (Maybe Text)
lerNextPageToken
= lens _lerNextPageToken
(\ s a -> s{_lerNextPageToken = a})
lerEnvironment :: Lens' ListEnvironmentsResponse [Environment]
lerEnvironment
= lens _lerEnvironment
(\ s a -> s{_lerEnvironment = a})
. _Default
. _Coerce
instance FromJSON ListEnvironmentsResponse where
parseJSON
= withObject "ListEnvironmentsResponse"
(\ o ->
ListEnvironmentsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "environment" .!= mempty))
instance ToJSON ListEnvironmentsResponse where
toJSON ListEnvironmentsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lerNextPageToken,
("environment" .=) <$> _lerEnvironment])
newtype RevertFolderResponse = RevertFolderResponse'
{ _rfrFolder :: Maybe Folder
} deriving (Eq,Show,Data,Typeable,Generic)
revertFolderResponse
:: RevertFolderResponse
revertFolderResponse =
RevertFolderResponse'
{ _rfrFolder = Nothing
}
rfrFolder :: Lens' RevertFolderResponse (Maybe Folder)
rfrFolder
= lens _rfrFolder (\ s a -> s{_rfrFolder = a})
instance FromJSON RevertFolderResponse where
parseJSON
= withObject "RevertFolderResponse"
(\ o -> RevertFolderResponse' <$> (o .:? "folder"))
instance ToJSON RevertFolderResponse where
toJSON RevertFolderResponse'{..}
= object (catMaybes [("folder" .=) <$> _rfrFolder])
newtype RevertVariableResponse = RevertVariableResponse'
{ _rvrVariable :: Maybe Variable
} deriving (Eq,Show,Data,Typeable,Generic)
revertVariableResponse
:: RevertVariableResponse
revertVariableResponse =
RevertVariableResponse'
{ _rvrVariable = Nothing
}
rvrVariable :: Lens' RevertVariableResponse (Maybe Variable)
rvrVariable
= lens _rvrVariable (\ s a -> s{_rvrVariable = a})
instance FromJSON RevertVariableResponse where
parseJSON
= withObject "RevertVariableResponse"
(\ o ->
RevertVariableResponse' <$> (o .:? "variable"))
instance ToJSON RevertVariableResponse where
toJSON RevertVariableResponse'{..}
= object
(catMaybes [("variable" .=) <$> _rvrVariable])
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 ListWorkspacesResponse = ListWorkspacesResponse'
{ _lwrNextPageToken :: !(Maybe Text)
, _lwrWorkspace :: !(Maybe [Workspace])
} deriving (Eq,Show,Data,Typeable,Generic)
listWorkspacesResponse
:: ListWorkspacesResponse
listWorkspacesResponse =
ListWorkspacesResponse'
{ _lwrNextPageToken = Nothing
, _lwrWorkspace = Nothing
}
lwrNextPageToken :: Lens' ListWorkspacesResponse (Maybe Text)
lwrNextPageToken
= lens _lwrNextPageToken
(\ s a -> s{_lwrNextPageToken = a})
lwrWorkspace :: Lens' ListWorkspacesResponse [Workspace]
lwrWorkspace
= lens _lwrWorkspace (\ s a -> s{_lwrWorkspace = a})
. _Default
. _Coerce
instance FromJSON ListWorkspacesResponse where
parseJSON
= withObject "ListWorkspacesResponse"
(\ o ->
ListWorkspacesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "workspace" .!= mempty))
instance ToJSON ListWorkspacesResponse where
toJSON ListWorkspacesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lwrNextPageToken,
("workspace" .=) <$> _lwrWorkspace])
data ContainerVersionHeader = ContainerVersionHeader'
{ _cvhNumTags :: !(Maybe Text)
, _cvhNumMacros :: !(Maybe Text)
, _cvhContainerId :: !(Maybe Text)
, _cvhPath :: !(Maybe Text)
, _cvhContainerVersionId :: !(Maybe Text)
, _cvhAccountId :: !(Maybe Text)
, _cvhName :: !(Maybe Text)
, _cvhNumTriggers :: !(Maybe Text)
, _cvhDeleted :: !(Maybe Bool)
, _cvhNumZones :: !(Maybe Text)
, _cvhNumRules :: !(Maybe Text)
, _cvhNumVariables :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
containerVersionHeader
:: ContainerVersionHeader
containerVersionHeader =
ContainerVersionHeader'
{ _cvhNumTags = Nothing
, _cvhNumMacros = Nothing
, _cvhContainerId = Nothing
, _cvhPath = Nothing
, _cvhContainerVersionId = Nothing
, _cvhAccountId = Nothing
, _cvhName = Nothing
, _cvhNumTriggers = Nothing
, _cvhDeleted = Nothing
, _cvhNumZones = 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})
cvhPath :: Lens' ContainerVersionHeader (Maybe Text)
cvhPath = lens _cvhPath (\ s a -> s{_cvhPath = 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})
cvhNumZones :: Lens' ContainerVersionHeader (Maybe Text)
cvhNumZones
= lens _cvhNumZones (\ s a -> s{_cvhNumZones = 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 .:? "path")
<*> (o .:? "containerVersionId")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "numTriggers")
<*> (o .:? "deleted")
<*> (o .:? "numZones")
<*> (o .:? "numRules")
<*> (o .:? "numVariables"))
instance ToJSON ContainerVersionHeader where
toJSON ContainerVersionHeader'{..}
= object
(catMaybes
[("numTags" .=) <$> _cvhNumTags,
("numMacros" .=) <$> _cvhNumMacros,
("containerId" .=) <$> _cvhContainerId,
("path" .=) <$> _cvhPath,
("containerVersionId" .=) <$> _cvhContainerVersionId,
("accountId" .=) <$> _cvhAccountId,
("name" .=) <$> _cvhName,
("numTriggers" .=) <$> _cvhNumTriggers,
("deleted" .=) <$> _cvhDeleted,
("numZones" .=) <$> _cvhNumZones,
("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])
data ListTriggersResponse = ListTriggersResponse'
{ _ltrNextPageToken :: !(Maybe Text)
, _ltrTrigger :: !(Maybe [Trigger])
} deriving (Eq,Show,Data,Typeable,Generic)
listTriggersResponse
:: ListTriggersResponse
listTriggersResponse =
ListTriggersResponse'
{ _ltrNextPageToken = Nothing
, _ltrTrigger = Nothing
}
ltrNextPageToken :: Lens' ListTriggersResponse (Maybe Text)
ltrNextPageToken
= lens _ltrNextPageToken
(\ s a -> s{_ltrNextPageToken = a})
ltrTrigger :: Lens' ListTriggersResponse [Trigger]
ltrTrigger
= lens _ltrTrigger (\ s a -> s{_ltrTrigger = a}) .
_Default
. _Coerce
instance FromJSON ListTriggersResponse where
parseJSON
= withObject "ListTriggersResponse"
(\ o ->
ListTriggersResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "trigger" .!= mempty))
instance ToJSON ListTriggersResponse where
toJSON ListTriggersResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _ltrNextPageToken,
("trigger" .=) <$> _ltrTrigger])
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])
, _tPath :: !(Maybe Text)
, _tFingerprint :: !(Maybe Text)
, _tTagFiringOption :: !(Maybe TagTagFiringOption)
, _tAccountId :: !(Maybe Text)
, _tTagId :: !(Maybe Text)
, _tName :: !(Maybe Text)
, _tTagManagerURL :: !(Maybe Text)
, _tBlockingRuleId :: !(Maybe [Text])
, _tSetupTag :: !(Maybe [SetupTag])
, _tFiringTriggerId :: !(Maybe [Text])
, _tWorkspaceId :: !(Maybe Text)
, _tType :: !(Maybe Text)
, _tScheduleStartMs :: !(Maybe (Textual Int64))
, _tNotes :: !(Maybe Text)
, _tPaused :: !(Maybe Bool)
, _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
, _tPath = Nothing
, _tFingerprint = Nothing
, _tTagFiringOption = Nothing
, _tAccountId = Nothing
, _tTagId = Nothing
, _tName = Nothing
, _tTagManagerURL = Nothing
, _tBlockingRuleId = Nothing
, _tSetupTag = Nothing
, _tFiringTriggerId = Nothing
, _tWorkspaceId = Nothing
, _tType = Nothing
, _tScheduleStartMs = Nothing
, _tNotes = Nothing
, _tPaused = 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
tPath :: Lens' Tag (Maybe Text)
tPath = lens _tPath (\ s a -> s{_tPath = a})
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})
tTagManagerURL :: Lens' Tag (Maybe Text)
tTagManagerURL
= lens _tTagManagerURL
(\ s a -> s{_tTagManagerURL = 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
tWorkspaceId :: Lens' Tag (Maybe Text)
tWorkspaceId
= lens _tWorkspaceId (\ s a -> s{_tWorkspaceId = a})
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})
tPaused :: Lens' Tag (Maybe Bool)
tPaused = lens _tPaused (\ s a -> s{_tPaused = 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 .:? "path")
<*> (o .:? "fingerprint")
<*> (o .:? "tagFiringOption")
<*> (o .:? "accountId")
<*> (o .:? "tagId")
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "blockingRuleId" .!= mempty)
<*> (o .:? "setupTag" .!= mempty)
<*> (o .:? "firingTriggerId" .!= mempty)
<*> (o .:? "workspaceId")
<*> (o .:? "type")
<*> (o .:? "scheduleStartMs")
<*> (o .:? "notes")
<*> (o .:? "paused")
<*> (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,
("path" .=) <$> _tPath,
("fingerprint" .=) <$> _tFingerprint,
("tagFiringOption" .=) <$> _tTagFiringOption,
("accountId" .=) <$> _tAccountId,
("tagId" .=) <$> _tTagId, ("name" .=) <$> _tName,
("tagManagerUrl" .=) <$> _tTagManagerURL,
("blockingRuleId" .=) <$> _tBlockingRuleId,
("setupTag" .=) <$> _tSetupTag,
("firingTriggerId" .=) <$> _tFiringTriggerId,
("workspaceId" .=) <$> _tWorkspaceId,
("type" .=) <$> _tType,
("scheduleStartMs" .=) <$> _tScheduleStartMs,
("notes" .=) <$> _tNotes, ("paused" .=) <$> _tPaused,
("firingRuleId" .=) <$> _tFiringRuleId,
("parameter" .=) <$> _tParameter])
data ZoneTypeRestriction = ZoneTypeRestriction'
{ _ztrEnable :: !(Maybe Bool)
, _ztrWhiteListedTypeId :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
zoneTypeRestriction
:: ZoneTypeRestriction
zoneTypeRestriction =
ZoneTypeRestriction'
{ _ztrEnable = Nothing
, _ztrWhiteListedTypeId = Nothing
}
ztrEnable :: Lens' ZoneTypeRestriction (Maybe Bool)
ztrEnable
= lens _ztrEnable (\ s a -> s{_ztrEnable = a})
ztrWhiteListedTypeId :: Lens' ZoneTypeRestriction [Text]
ztrWhiteListedTypeId
= lens _ztrWhiteListedTypeId
(\ s a -> s{_ztrWhiteListedTypeId = a})
. _Default
. _Coerce
instance FromJSON ZoneTypeRestriction where
parseJSON
= withObject "ZoneTypeRestriction"
(\ o ->
ZoneTypeRestriction' <$>
(o .:? "enable") <*>
(o .:? "whitelistedTypeId" .!= mempty))
instance ToJSON ZoneTypeRestriction where
toJSON ZoneTypeRestriction'{..}
= object
(catMaybes
[("enable" .=) <$> _ztrEnable,
("whitelistedTypeId" .=) <$> _ztrWhiteListedTypeId])
data CreateContainerVersionResponse = CreateContainerVersionResponse'
{ _ccvrCompilerError :: !(Maybe Bool)
, _ccvrNewWorkspacePath :: !(Maybe Text)
, _ccvrContainerVersion :: !(Maybe ContainerVersion)
, _ccvrSyncStatus :: !(Maybe SyncStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
createContainerVersionResponse
:: CreateContainerVersionResponse
createContainerVersionResponse =
CreateContainerVersionResponse'
{ _ccvrCompilerError = Nothing
, _ccvrNewWorkspacePath = Nothing
, _ccvrContainerVersion = Nothing
, _ccvrSyncStatus = Nothing
}
ccvrCompilerError :: Lens' CreateContainerVersionResponse (Maybe Bool)
ccvrCompilerError
= lens _ccvrCompilerError
(\ s a -> s{_ccvrCompilerError = a})
ccvrNewWorkspacePath :: Lens' CreateContainerVersionResponse (Maybe Text)
ccvrNewWorkspacePath
= lens _ccvrNewWorkspacePath
(\ s a -> s{_ccvrNewWorkspacePath = a})
ccvrContainerVersion :: Lens' CreateContainerVersionResponse (Maybe ContainerVersion)
ccvrContainerVersion
= lens _ccvrContainerVersion
(\ s a -> s{_ccvrContainerVersion = a})
ccvrSyncStatus :: Lens' CreateContainerVersionResponse (Maybe SyncStatus)
ccvrSyncStatus
= lens _ccvrSyncStatus
(\ s a -> s{_ccvrSyncStatus = a})
instance FromJSON CreateContainerVersionResponse
where
parseJSON
= withObject "CreateContainerVersionResponse"
(\ o ->
CreateContainerVersionResponse' <$>
(o .:? "compilerError") <*>
(o .:? "newWorkspacePath")
<*> (o .:? "containerVersion")
<*> (o .:? "syncStatus"))
instance ToJSON CreateContainerVersionResponse where
toJSON CreateContainerVersionResponse'{..}
= object
(catMaybes
[("compilerError" .=) <$> _ccvrCompilerError,
("newWorkspacePath" .=) <$> _ccvrNewWorkspacePath,
("containerVersion" .=) <$> _ccvrContainerVersion,
("syncStatus" .=) <$> _ccvrSyncStatus])
data CreateContainerVersionRequestVersionOptions = CreateContainerVersionRequestVersionOptions'
{ _ccvrvoName :: !(Maybe Text)
, _ccvrvoNotes :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
createContainerVersionRequestVersionOptions
:: CreateContainerVersionRequestVersionOptions
createContainerVersionRequestVersionOptions =
CreateContainerVersionRequestVersionOptions'
{ _ccvrvoName = Nothing
, _ccvrvoNotes = Nothing
}
ccvrvoName :: Lens' CreateContainerVersionRequestVersionOptions (Maybe Text)
ccvrvoName
= lens _ccvrvoName (\ s a -> s{_ccvrvoName = 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 .:? "notes"))
instance ToJSON
CreateContainerVersionRequestVersionOptions where
toJSON
CreateContainerVersionRequestVersionOptions'{..}
= object
(catMaybes
[("name" .=) <$> _ccvrvoName,
("notes" .=) <$> _ccvrvoNotes])
data Workspace = Workspace'
{ _wContainerId :: !(Maybe Text)
, _wPath :: !(Maybe Text)
, _wFingerprint :: !(Maybe Text)
, _wAccountId :: !(Maybe Text)
, _wName :: !(Maybe Text)
, _wTagManagerURL :: !(Maybe Text)
, _wWorkspaceId :: !(Maybe Text)
, _wDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
workspace
:: Workspace
workspace =
Workspace'
{ _wContainerId = Nothing
, _wPath = Nothing
, _wFingerprint = Nothing
, _wAccountId = Nothing
, _wName = Nothing
, _wTagManagerURL = Nothing
, _wWorkspaceId = Nothing
, _wDescription = Nothing
}
wContainerId :: Lens' Workspace (Maybe Text)
wContainerId
= lens _wContainerId (\ s a -> s{_wContainerId = a})
wPath :: Lens' Workspace (Maybe Text)
wPath = lens _wPath (\ s a -> s{_wPath = a})
wFingerprint :: Lens' Workspace (Maybe Text)
wFingerprint
= lens _wFingerprint (\ s a -> s{_wFingerprint = a})
wAccountId :: Lens' Workspace (Maybe Text)
wAccountId
= lens _wAccountId (\ s a -> s{_wAccountId = a})
wName :: Lens' Workspace (Maybe Text)
wName = lens _wName (\ s a -> s{_wName = a})
wTagManagerURL :: Lens' Workspace (Maybe Text)
wTagManagerURL
= lens _wTagManagerURL
(\ s a -> s{_wTagManagerURL = a})
wWorkspaceId :: Lens' Workspace (Maybe Text)
wWorkspaceId
= lens _wWorkspaceId (\ s a -> s{_wWorkspaceId = a})
wDescription :: Lens' Workspace (Maybe Text)
wDescription
= lens _wDescription (\ s a -> s{_wDescription = a})
instance FromJSON Workspace where
parseJSON
= withObject "Workspace"
(\ o ->
Workspace' <$>
(o .:? "containerId") <*> (o .:? "path") <*>
(o .:? "fingerprint")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "workspaceId")
<*> (o .:? "description"))
instance ToJSON Workspace where
toJSON Workspace'{..}
= object
(catMaybes
[("containerId" .=) <$> _wContainerId,
("path" .=) <$> _wPath,
("fingerprint" .=) <$> _wFingerprint,
("accountId" .=) <$> _wAccountId,
("name" .=) <$> _wName,
("tagManagerUrl" .=) <$> _wTagManagerURL,
("workspaceId" .=) <$> _wWorkspaceId,
("description" .=) <$> _wDescription])
data Environment = Environment'
{ _eContainerId :: !(Maybe Text)
, _ePath :: !(Maybe Text)
, _eFingerprint :: !(Maybe Text)
, _eContainerVersionId :: !(Maybe Text)
, _eURL :: !(Maybe Text)
, _eAuthorizationCode :: !(Maybe Text)
, _eAccountId :: !(Maybe Text)
, _eName :: !(Maybe Text)
, _eTagManagerURL :: !(Maybe Text)
, _eAuthorizationTimestamp :: !(Maybe Timestamp)
, _eEnableDebug :: !(Maybe Bool)
, _eEnvironmentId :: !(Maybe Text)
, _eWorkspaceId :: !(Maybe Text)
, _eType :: !(Maybe EnvironmentType)
, _eDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
environment
:: Environment
environment =
Environment'
{ _eContainerId = Nothing
, _ePath = Nothing
, _eFingerprint = Nothing
, _eContainerVersionId = Nothing
, _eURL = Nothing
, _eAuthorizationCode = Nothing
, _eAccountId = Nothing
, _eName = Nothing
, _eTagManagerURL = Nothing
, _eAuthorizationTimestamp = Nothing
, _eEnableDebug = Nothing
, _eEnvironmentId = Nothing
, _eWorkspaceId = Nothing
, _eType = Nothing
, _eDescription = Nothing
}
eContainerId :: Lens' Environment (Maybe Text)
eContainerId
= lens _eContainerId (\ s a -> s{_eContainerId = a})
ePath :: Lens' Environment (Maybe Text)
ePath = lens _ePath (\ s a -> s{_ePath = 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})
eTagManagerURL :: Lens' Environment (Maybe Text)
eTagManagerURL
= lens _eTagManagerURL
(\ s a -> s{_eTagManagerURL = a})
eAuthorizationTimestamp :: Lens' Environment (Maybe Timestamp)
eAuthorizationTimestamp
= lens _eAuthorizationTimestamp
(\ s a -> s{_eAuthorizationTimestamp = 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})
eWorkspaceId :: Lens' Environment (Maybe Text)
eWorkspaceId
= lens _eWorkspaceId (\ s a -> s{_eWorkspaceId = a})
eType :: Lens' Environment (Maybe EnvironmentType)
eType = lens _eType (\ s a -> s{_eType = a})
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 .:? "path") <*>
(o .:? "fingerprint")
<*> (o .:? "containerVersionId")
<*> (o .:? "url")
<*> (o .:? "authorizationCode")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "authorizationTimestamp")
<*> (o .:? "enableDebug")
<*> (o .:? "environmentId")
<*> (o .:? "workspaceId")
<*> (o .:? "type")
<*> (o .:? "description"))
instance ToJSON Environment where
toJSON Environment'{..}
= object
(catMaybes
[("containerId" .=) <$> _eContainerId,
("path" .=) <$> _ePath,
("fingerprint" .=) <$> _eFingerprint,
("containerVersionId" .=) <$> _eContainerVersionId,
("url" .=) <$> _eURL,
("authorizationCode" .=) <$> _eAuthorizationCode,
("accountId" .=) <$> _eAccountId,
("name" .=) <$> _eName,
("tagManagerUrl" .=) <$> _eTagManagerURL,
("authorizationTimestamp" .=) <$>
_eAuthorizationTimestamp,
("enableDebug" .=) <$> _eEnableDebug,
("environmentId" .=) <$> _eEnvironmentId,
("workspaceId" .=) <$> _eWorkspaceId,
("type" .=) <$> _eType,
("description" .=) <$> _eDescription])
newtype AccountAccess = AccountAccess'
{ _aaPermission :: Maybe AccountAccessPermission
} deriving (Eq,Show,Data,Typeable,Generic)
accountAccess
:: AccountAccess
accountAccess =
AccountAccess'
{ _aaPermission = Nothing
}
aaPermission :: Lens' AccountAccess (Maybe AccountAccessPermission)
aaPermission
= lens _aaPermission (\ s a -> s{_aaPermission = a})
instance FromJSON AccountAccess where
parseJSON
= withObject "AccountAccess"
(\ o -> AccountAccess' <$> (o .:? "permission"))
instance ToJSON AccountAccess where
toJSON AccountAccess'{..}
= object
(catMaybes [("permission" .=) <$> _aaPermission])
data ListUserPermissionsResponse = ListUserPermissionsResponse'
{ _luprNextPageToken :: !(Maybe Text)
, _luprUserPermission :: !(Maybe [UserPermission])
} deriving (Eq,Show,Data,Typeable,Generic)
listUserPermissionsResponse
:: ListUserPermissionsResponse
listUserPermissionsResponse =
ListUserPermissionsResponse'
{ _luprNextPageToken = Nothing
, _luprUserPermission = Nothing
}
luprNextPageToken :: Lens' ListUserPermissionsResponse (Maybe Text)
luprNextPageToken
= lens _luprNextPageToken
(\ s a -> s{_luprNextPageToken = a})
luprUserPermission :: Lens' ListUserPermissionsResponse [UserPermission]
luprUserPermission
= lens _luprUserPermission
(\ s a -> s{_luprUserPermission = a})
. _Default
. _Coerce
instance FromJSON ListUserPermissionsResponse where
parseJSON
= withObject "ListUserPermissionsResponse"
(\ o ->
ListUserPermissionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "userPermission" .!= mempty))
instance ToJSON ListUserPermissionsResponse where
toJSON ListUserPermissionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _luprNextPageToken,
("userPermission" .=) <$> _luprUserPermission])
newtype WorkspaceProposalHistoryComment = WorkspaceProposalHistoryComment'
{ _wphcContent :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
workspaceProposalHistoryComment
:: WorkspaceProposalHistoryComment
workspaceProposalHistoryComment =
WorkspaceProposalHistoryComment'
{ _wphcContent = Nothing
}
wphcContent :: Lens' WorkspaceProposalHistoryComment (Maybe Text)
wphcContent
= lens _wphcContent (\ s a -> s{_wphcContent = a})
instance FromJSON WorkspaceProposalHistoryComment
where
parseJSON
= withObject "WorkspaceProposalHistoryComment"
(\ o ->
WorkspaceProposalHistoryComment' <$>
(o .:? "content"))
instance ToJSON WorkspaceProposalHistoryComment where
toJSON WorkspaceProposalHistoryComment'{..}
= object
(catMaybes [("content" .=) <$> _wphcContent])
newtype CreateBuiltInVariableResponse = CreateBuiltInVariableResponse'
{ _cbivrBuiltInVariable :: Maybe [BuiltInVariable]
} deriving (Eq,Show,Data,Typeable,Generic)
createBuiltInVariableResponse
:: CreateBuiltInVariableResponse
createBuiltInVariableResponse =
CreateBuiltInVariableResponse'
{ _cbivrBuiltInVariable = Nothing
}
cbivrBuiltInVariable :: Lens' CreateBuiltInVariableResponse [BuiltInVariable]
cbivrBuiltInVariable
= lens _cbivrBuiltInVariable
(\ s a -> s{_cbivrBuiltInVariable = a})
. _Default
. _Coerce
instance FromJSON CreateBuiltInVariableResponse where
parseJSON
= withObject "CreateBuiltInVariableResponse"
(\ o ->
CreateBuiltInVariableResponse' <$>
(o .:? "builtInVariable" .!= mempty))
instance ToJSON CreateBuiltInVariableResponse where
toJSON CreateBuiltInVariableResponse'{..}
= object
(catMaybes
[("builtInVariable" .=) <$> _cbivrBuiltInVariable])
data WorkspaceProposalHistory = WorkspaceProposalHistory'
{ _wphCreatedBy :: !(Maybe WorkspaceProposalUser)
, _wphStatusChange :: !(Maybe WorkspaceProposalHistoryStatusChange)
, _wphType :: !(Maybe WorkspaceProposalHistoryType)
, _wphComment :: !(Maybe WorkspaceProposalHistoryComment)
, _wphCreatedTimestamp :: !(Maybe Timestamp)
} deriving (Eq,Show,Data,Typeable,Generic)
workspaceProposalHistory
:: WorkspaceProposalHistory
workspaceProposalHistory =
WorkspaceProposalHistory'
{ _wphCreatedBy = Nothing
, _wphStatusChange = Nothing
, _wphType = Nothing
, _wphComment = Nothing
, _wphCreatedTimestamp = Nothing
}
wphCreatedBy :: Lens' WorkspaceProposalHistory (Maybe WorkspaceProposalUser)
wphCreatedBy
= lens _wphCreatedBy (\ s a -> s{_wphCreatedBy = a})
wphStatusChange :: Lens' WorkspaceProposalHistory (Maybe WorkspaceProposalHistoryStatusChange)
wphStatusChange
= lens _wphStatusChange
(\ s a -> s{_wphStatusChange = a})
wphType :: Lens' WorkspaceProposalHistory (Maybe WorkspaceProposalHistoryType)
wphType = lens _wphType (\ s a -> s{_wphType = a})
wphComment :: Lens' WorkspaceProposalHistory (Maybe WorkspaceProposalHistoryComment)
wphComment
= lens _wphComment (\ s a -> s{_wphComment = a})
wphCreatedTimestamp :: Lens' WorkspaceProposalHistory (Maybe Timestamp)
wphCreatedTimestamp
= lens _wphCreatedTimestamp
(\ s a -> s{_wphCreatedTimestamp = a})
instance FromJSON WorkspaceProposalHistory where
parseJSON
= withObject "WorkspaceProposalHistory"
(\ o ->
WorkspaceProposalHistory' <$>
(o .:? "createdBy") <*> (o .:? "statusChange") <*>
(o .:? "type")
<*> (o .:? "comment")
<*> (o .:? "createdTimestamp"))
instance ToJSON WorkspaceProposalHistory where
toJSON WorkspaceProposalHistory'{..}
= object
(catMaybes
[("createdBy" .=) <$> _wphCreatedBy,
("statusChange" .=) <$> _wphStatusChange,
("type" .=) <$> _wphType,
("comment" .=) <$> _wphComment,
("createdTimestamp" .=) <$> _wphCreatedTimestamp])
data ZoneChildContainer = ZoneChildContainer'
{ _zccPublicId :: !(Maybe Text)
, _zccNickname :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
zoneChildContainer
:: ZoneChildContainer
zoneChildContainer =
ZoneChildContainer'
{ _zccPublicId = Nothing
, _zccNickname = Nothing
}
zccPublicId :: Lens' ZoneChildContainer (Maybe Text)
zccPublicId
= lens _zccPublicId (\ s a -> s{_zccPublicId = a})
zccNickname :: Lens' ZoneChildContainer (Maybe Text)
zccNickname
= lens _zccNickname (\ s a -> s{_zccNickname = a})
instance FromJSON ZoneChildContainer where
parseJSON
= withObject "ZoneChildContainer"
(\ o ->
ZoneChildContainer' <$>
(o .:? "publicId") <*> (o .:? "nickname"))
instance ToJSON ZoneChildContainer where
toJSON ZoneChildContainer'{..}
= object
(catMaybes
[("publicId" .=) <$> _zccPublicId,
("nickname" .=) <$> _zccNickname])
data ListAccountsResponse = ListAccountsResponse'
{ _larNextPageToken :: !(Maybe Text)
, _larAccount :: !(Maybe [Account])
} deriving (Eq,Show,Data,Typeable,Generic)
listAccountsResponse
:: ListAccountsResponse
listAccountsResponse =
ListAccountsResponse'
{ _larNextPageToken = Nothing
, _larAccount = Nothing
}
larNextPageToken :: Lens' ListAccountsResponse (Maybe Text)
larNextPageToken
= lens _larNextPageToken
(\ s a -> s{_larNextPageToken = a})
larAccount :: Lens' ListAccountsResponse [Account]
larAccount
= lens _larAccount (\ s a -> s{_larAccount = a}) .
_Default
. _Coerce
instance FromJSON ListAccountsResponse where
parseJSON
= withObject "ListAccountsResponse"
(\ o ->
ListAccountsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "account" .!= mempty))
instance ToJSON ListAccountsResponse where
toJSON ListAccountsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _larNextPageToken,
("account" .=) <$> _larAccount])
data MergeConflict = MergeConflict'
{ _mcEntityInBaseVersion :: !(Maybe Entity)
, _mcEntityInWorkspace :: !(Maybe Entity)
} deriving (Eq,Show,Data,Typeable,Generic)
mergeConflict
:: MergeConflict
mergeConflict =
MergeConflict'
{ _mcEntityInBaseVersion = Nothing
, _mcEntityInWorkspace = Nothing
}
mcEntityInBaseVersion :: Lens' MergeConflict (Maybe Entity)
mcEntityInBaseVersion
= lens _mcEntityInBaseVersion
(\ s a -> s{_mcEntityInBaseVersion = a})
mcEntityInWorkspace :: Lens' MergeConflict (Maybe Entity)
mcEntityInWorkspace
= lens _mcEntityInWorkspace
(\ s a -> s{_mcEntityInWorkspace = a})
instance FromJSON MergeConflict where
parseJSON
= withObject "MergeConflict"
(\ o ->
MergeConflict' <$>
(o .:? "entityInBaseVersion") <*>
(o .:? "entityInWorkspace"))
instance ToJSON MergeConflict where
toJSON MergeConflict'{..}
= object
(catMaybes
[("entityInBaseVersion" .=) <$>
_mcEntityInBaseVersion,
("entityInWorkspace" .=) <$> _mcEntityInWorkspace])
data Folder = Folder'
{ _fContainerId :: !(Maybe Text)
, _fPath :: !(Maybe Text)
, _fFingerprint :: !(Maybe Text)
, _fFolderId :: !(Maybe Text)
, _fAccountId :: !(Maybe Text)
, _fName :: !(Maybe Text)
, _fTagManagerURL :: !(Maybe Text)
, _fWorkspaceId :: !(Maybe Text)
, _fNotes :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
folder
:: Folder
folder =
Folder'
{ _fContainerId = Nothing
, _fPath = Nothing
, _fFingerprint = Nothing
, _fFolderId = Nothing
, _fAccountId = Nothing
, _fName = Nothing
, _fTagManagerURL = Nothing
, _fWorkspaceId = Nothing
, _fNotes = Nothing
}
fContainerId :: Lens' Folder (Maybe Text)
fContainerId
= lens _fContainerId (\ s a -> s{_fContainerId = a})
fPath :: Lens' Folder (Maybe Text)
fPath = lens _fPath (\ s a -> s{_fPath = 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})
fTagManagerURL :: Lens' Folder (Maybe Text)
fTagManagerURL
= lens _fTagManagerURL
(\ s a -> s{_fTagManagerURL = a})
fWorkspaceId :: Lens' Folder (Maybe Text)
fWorkspaceId
= lens _fWorkspaceId (\ s a -> s{_fWorkspaceId = a})
fNotes :: Lens' Folder (Maybe Text)
fNotes = lens _fNotes (\ s a -> s{_fNotes = a})
instance FromJSON Folder where
parseJSON
= withObject "Folder"
(\ o ->
Folder' <$>
(o .:? "containerId") <*> (o .:? "path") <*>
(o .:? "fingerprint")
<*> (o .:? "folderId")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "workspaceId")
<*> (o .:? "notes"))
instance ToJSON Folder where
toJSON Folder'{..}
= object
(catMaybes
[("containerId" .=) <$> _fContainerId,
("path" .=) <$> _fPath,
("fingerprint" .=) <$> _fFingerprint,
("folderId" .=) <$> _fFolderId,
("accountId" .=) <$> _fAccountId,
("name" .=) <$> _fName,
("tagManagerUrl" .=) <$> _fTagManagerURL,
("workspaceId" .=) <$> _fWorkspaceId,
("notes" .=) <$> _fNotes])
data ZoneBoundary = ZoneBoundary'
{ _zbCustomEvaluationTriggerId :: !(Maybe [Text])
, _zbCondition :: !(Maybe [Condition])
} deriving (Eq,Show,Data,Typeable,Generic)
zoneBoundary
:: ZoneBoundary
zoneBoundary =
ZoneBoundary'
{ _zbCustomEvaluationTriggerId = Nothing
, _zbCondition = Nothing
}
zbCustomEvaluationTriggerId :: Lens' ZoneBoundary [Text]
zbCustomEvaluationTriggerId
= lens _zbCustomEvaluationTriggerId
(\ s a -> s{_zbCustomEvaluationTriggerId = a})
. _Default
. _Coerce
zbCondition :: Lens' ZoneBoundary [Condition]
zbCondition
= lens _zbCondition (\ s a -> s{_zbCondition = a}) .
_Default
. _Coerce
instance FromJSON ZoneBoundary where
parseJSON
= withObject "ZoneBoundary"
(\ o ->
ZoneBoundary' <$>
(o .:? "customEvaluationTriggerId" .!= mempty) <*>
(o .:? "condition" .!= mempty))
instance ToJSON ZoneBoundary where
toJSON ZoneBoundary'{..}
= object
(catMaybes
[("customEvaluationTriggerId" .=) <$>
_zbCustomEvaluationTriggerId,
("condition" .=) <$> _zbCondition])
data Variable = Variable'
{ _vScheduleEndMs :: !(Maybe (Textual Int64))
, _vParentFolderId :: !(Maybe Text)
, _vContainerId :: !(Maybe Text)
, _vPath :: !(Maybe Text)
, _vFingerprint :: !(Maybe Text)
, _vVariableId :: !(Maybe Text)
, _vAccountId :: !(Maybe Text)
, _vDisablingTriggerId :: !(Maybe [Text])
, _vName :: !(Maybe Text)
, _vTagManagerURL :: !(Maybe Text)
, _vWorkspaceId :: !(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
, _vPath = Nothing
, _vFingerprint = Nothing
, _vVariableId = Nothing
, _vAccountId = Nothing
, _vDisablingTriggerId = Nothing
, _vName = Nothing
, _vTagManagerURL = Nothing
, _vWorkspaceId = 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})
vPath :: Lens' Variable (Maybe Text)
vPath = lens _vPath (\ s a -> s{_vPath = 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})
vTagManagerURL :: Lens' Variable (Maybe Text)
vTagManagerURL
= lens _vTagManagerURL
(\ s a -> s{_vTagManagerURL = a})
vWorkspaceId :: Lens' Variable (Maybe Text)
vWorkspaceId
= lens _vWorkspaceId (\ s a -> s{_vWorkspaceId = 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 .:? "path")
<*> (o .:? "fingerprint")
<*> (o .:? "variableId")
<*> (o .:? "accountId")
<*> (o .:? "disablingTriggerId" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "workspaceId")
<*> (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,
("path" .=) <$> _vPath,
("fingerprint" .=) <$> _vFingerprint,
("variableId" .=) <$> _vVariableId,
("accountId" .=) <$> _vAccountId,
("disablingTriggerId" .=) <$> _vDisablingTriggerId,
("name" .=) <$> _vName,
("tagManagerUrl" .=) <$> _vTagManagerURL,
("workspaceId" .=) <$> _vWorkspaceId,
("type" .=) <$> _vType,
("scheduleStartMs" .=) <$> _vScheduleStartMs,
("notes" .=) <$> _vNotes,
("enablingTriggerId" .=) <$> _vEnablingTriggerId,
("parameter" .=) <$> _vParameter])
data Zone = Zone'
{ _zContainerId :: !(Maybe Text)
, _zPath :: !(Maybe Text)
, _zBoundary :: !(Maybe ZoneBoundary)
, _zFingerprint :: !(Maybe Text)
, _zZoneId :: !(Maybe Text)
, _zTypeRestriction :: !(Maybe ZoneTypeRestriction)
, _zAccountId :: !(Maybe Text)
, _zName :: !(Maybe Text)
, _zTagManagerURL :: !(Maybe Text)
, _zChildContainer :: !(Maybe [ZoneChildContainer])
, _zWorkspaceId :: !(Maybe Text)
, _zNotes :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
zone
:: Zone
zone =
Zone'
{ _zContainerId = Nothing
, _zPath = Nothing
, _zBoundary = Nothing
, _zFingerprint = Nothing
, _zZoneId = Nothing
, _zTypeRestriction = Nothing
, _zAccountId = Nothing
, _zName = Nothing
, _zTagManagerURL = Nothing
, _zChildContainer = Nothing
, _zWorkspaceId = Nothing
, _zNotes = Nothing
}
zContainerId :: Lens' Zone (Maybe Text)
zContainerId
= lens _zContainerId (\ s a -> s{_zContainerId = a})
zPath :: Lens' Zone (Maybe Text)
zPath = lens _zPath (\ s a -> s{_zPath = a})
zBoundary :: Lens' Zone (Maybe ZoneBoundary)
zBoundary
= lens _zBoundary (\ s a -> s{_zBoundary = a})
zFingerprint :: Lens' Zone (Maybe Text)
zFingerprint
= lens _zFingerprint (\ s a -> s{_zFingerprint = a})
zZoneId :: Lens' Zone (Maybe Text)
zZoneId = lens _zZoneId (\ s a -> s{_zZoneId = a})
zTypeRestriction :: Lens' Zone (Maybe ZoneTypeRestriction)
zTypeRestriction
= lens _zTypeRestriction
(\ s a -> s{_zTypeRestriction = a})
zAccountId :: Lens' Zone (Maybe Text)
zAccountId
= lens _zAccountId (\ s a -> s{_zAccountId = a})
zName :: Lens' Zone (Maybe Text)
zName = lens _zName (\ s a -> s{_zName = a})
zTagManagerURL :: Lens' Zone (Maybe Text)
zTagManagerURL
= lens _zTagManagerURL
(\ s a -> s{_zTagManagerURL = a})
zChildContainer :: Lens' Zone [ZoneChildContainer]
zChildContainer
= lens _zChildContainer
(\ s a -> s{_zChildContainer = a})
. _Default
. _Coerce
zWorkspaceId :: Lens' Zone (Maybe Text)
zWorkspaceId
= lens _zWorkspaceId (\ s a -> s{_zWorkspaceId = a})
zNotes :: Lens' Zone (Maybe Text)
zNotes = lens _zNotes (\ s a -> s{_zNotes = a})
instance FromJSON Zone where
parseJSON
= withObject "Zone"
(\ o ->
Zone' <$>
(o .:? "containerId") <*> (o .:? "path") <*>
(o .:? "boundary")
<*> (o .:? "fingerprint")
<*> (o .:? "zoneId")
<*> (o .:? "typeRestriction")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "childContainer" .!= mempty)
<*> (o .:? "workspaceId")
<*> (o .:? "notes"))
instance ToJSON Zone where
toJSON Zone'{..}
= object
(catMaybes
[("containerId" .=) <$> _zContainerId,
("path" .=) <$> _zPath,
("boundary" .=) <$> _zBoundary,
("fingerprint" .=) <$> _zFingerprint,
("zoneId" .=) <$> _zZoneId,
("typeRestriction" .=) <$> _zTypeRestriction,
("accountId" .=) <$> _zAccountId,
("name" .=) <$> _zName,
("tagManagerUrl" .=) <$> _zTagManagerURL,
("childContainer" .=) <$> _zChildContainer,
("workspaceId" .=) <$> _zWorkspaceId,
("notes" .=) <$> _zNotes])
data SyncWorkspaceResponse = SyncWorkspaceResponse'
{ _swrMergeConflict :: !(Maybe [MergeConflict])
, _swrSyncStatus :: !(Maybe SyncStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
syncWorkspaceResponse
:: SyncWorkspaceResponse
syncWorkspaceResponse =
SyncWorkspaceResponse'
{ _swrMergeConflict = Nothing
, _swrSyncStatus = Nothing
}
swrMergeConflict :: Lens' SyncWorkspaceResponse [MergeConflict]
swrMergeConflict
= lens _swrMergeConflict
(\ s a -> s{_swrMergeConflict = a})
. _Default
. _Coerce
swrSyncStatus :: Lens' SyncWorkspaceResponse (Maybe SyncStatus)
swrSyncStatus
= lens _swrSyncStatus
(\ s a -> s{_swrSyncStatus = a})
instance FromJSON SyncWorkspaceResponse where
parseJSON
= withObject "SyncWorkspaceResponse"
(\ o ->
SyncWorkspaceResponse' <$>
(o .:? "mergeConflict" .!= mempty) <*>
(o .:? "syncStatus"))
instance ToJSON SyncWorkspaceResponse where
toJSON SyncWorkspaceResponse'{..}
= object
(catMaybes
[("mergeConflict" .=) <$> _swrMergeConflict,
("syncStatus" .=) <$> _swrSyncStatus])
newtype RevertTriggerResponse = RevertTriggerResponse'
{ _rtrTrigger :: Maybe Trigger
} deriving (Eq,Show,Data,Typeable,Generic)
revertTriggerResponse
:: RevertTriggerResponse
revertTriggerResponse =
RevertTriggerResponse'
{ _rtrTrigger = Nothing
}
rtrTrigger :: Lens' RevertTriggerResponse (Maybe Trigger)
rtrTrigger
= lens _rtrTrigger (\ s a -> s{_rtrTrigger = a})
instance FromJSON RevertTriggerResponse where
parseJSON
= withObject "RevertTriggerResponse"
(\ o -> RevertTriggerResponse' <$> (o .:? "trigger"))
instance ToJSON RevertTriggerResponse where
toJSON RevertTriggerResponse'{..}
= object (catMaybes [("trigger" .=) <$> _rtrTrigger])
data Account = Account'
{ _aPath :: !(Maybe Text)
, _aShareData :: !(Maybe Bool)
, _aFingerprint :: !(Maybe Text)
, _aAccountId :: !(Maybe Text)
, _aName :: !(Maybe Text)
, _aTagManagerURL :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
account
:: Account
account =
Account'
{ _aPath = Nothing
, _aShareData = Nothing
, _aFingerprint = Nothing
, _aAccountId = Nothing
, _aName = Nothing
, _aTagManagerURL = Nothing
}
aPath :: Lens' Account (Maybe Text)
aPath = lens _aPath (\ s a -> s{_aPath = a})
aShareData :: Lens' Account (Maybe Bool)
aShareData
= lens _aShareData (\ s a -> s{_aShareData = a})
aFingerprint :: Lens' Account (Maybe Text)
aFingerprint
= lens _aFingerprint (\ s a -> s{_aFingerprint = a})
aAccountId :: Lens' Account (Maybe Text)
aAccountId
= lens _aAccountId (\ s a -> s{_aAccountId = a})
aName :: Lens' Account (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aTagManagerURL :: Lens' Account (Maybe Text)
aTagManagerURL
= lens _aTagManagerURL
(\ s a -> s{_aTagManagerURL = a})
instance FromJSON Account where
parseJSON
= withObject "Account"
(\ o ->
Account' <$>
(o .:? "path") <*> (o .:? "shareData") <*>
(o .:? "fingerprint")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl"))
instance ToJSON Account where
toJSON Account'{..}
= object
(catMaybes
[("path" .=) <$> _aPath,
("shareData" .=) <$> _aShareData,
("fingerprint" .=) <$> _aFingerprint,
("accountId" .=) <$> _aAccountId,
("name" .=) <$> _aName,
("tagManagerUrl" .=) <$> _aTagManagerURL])
data UpdateWorkspaceProposalRequest = UpdateWorkspaceProposalRequest'
{ _uwprStatus :: !(Maybe UpdateWorkspaceProposalRequestStatus)
, _uwprNewComment :: !(Maybe WorkspaceProposalHistoryComment)
, _uwprFingerprint :: !(Maybe Text)
, _uwprReviewers :: !(Maybe [WorkspaceProposalUser])
} deriving (Eq,Show,Data,Typeable,Generic)
updateWorkspaceProposalRequest
:: UpdateWorkspaceProposalRequest
updateWorkspaceProposalRequest =
UpdateWorkspaceProposalRequest'
{ _uwprStatus = Nothing
, _uwprNewComment = Nothing
, _uwprFingerprint = Nothing
, _uwprReviewers = Nothing
}
uwprStatus :: Lens' UpdateWorkspaceProposalRequest (Maybe UpdateWorkspaceProposalRequestStatus)
uwprStatus
= lens _uwprStatus (\ s a -> s{_uwprStatus = a})
uwprNewComment :: Lens' UpdateWorkspaceProposalRequest (Maybe WorkspaceProposalHistoryComment)
uwprNewComment
= lens _uwprNewComment
(\ s a -> s{_uwprNewComment = a})
uwprFingerprint :: Lens' UpdateWorkspaceProposalRequest (Maybe Text)
uwprFingerprint
= lens _uwprFingerprint
(\ s a -> s{_uwprFingerprint = a})
uwprReviewers :: Lens' UpdateWorkspaceProposalRequest [WorkspaceProposalUser]
uwprReviewers
= lens _uwprReviewers
(\ s a -> s{_uwprReviewers = a})
. _Default
. _Coerce
instance FromJSON UpdateWorkspaceProposalRequest
where
parseJSON
= withObject "UpdateWorkspaceProposalRequest"
(\ o ->
UpdateWorkspaceProposalRequest' <$>
(o .:? "status") <*> (o .:? "newComment") <*>
(o .:? "fingerprint")
<*> (o .:? "reviewers" .!= mempty))
instance ToJSON UpdateWorkspaceProposalRequest where
toJSON UpdateWorkspaceProposalRequest'{..}
= object
(catMaybes
[("status" .=) <$> _uwprStatus,
("newComment" .=) <$> _uwprNewComment,
("fingerprint" .=) <$> _uwprFingerprint,
("reviewers" .=) <$> _uwprReviewers])
data GetWorkspaceStatusResponse = GetWorkspaceStatusResponse'
{ _gwsrMergeConflict :: !(Maybe [MergeConflict])
, _gwsrWorkspaceChange :: !(Maybe [Entity])
} deriving (Eq,Show,Data,Typeable,Generic)
getWorkspaceStatusResponse
:: GetWorkspaceStatusResponse
getWorkspaceStatusResponse =
GetWorkspaceStatusResponse'
{ _gwsrMergeConflict = Nothing
, _gwsrWorkspaceChange = Nothing
}
gwsrMergeConflict :: Lens' GetWorkspaceStatusResponse [MergeConflict]
gwsrMergeConflict
= lens _gwsrMergeConflict
(\ s a -> s{_gwsrMergeConflict = a})
. _Default
. _Coerce
gwsrWorkspaceChange :: Lens' GetWorkspaceStatusResponse [Entity]
gwsrWorkspaceChange
= lens _gwsrWorkspaceChange
(\ s a -> s{_gwsrWorkspaceChange = a})
. _Default
. _Coerce
instance FromJSON GetWorkspaceStatusResponse where
parseJSON
= withObject "GetWorkspaceStatusResponse"
(\ o ->
GetWorkspaceStatusResponse' <$>
(o .:? "mergeConflict" .!= mempty) <*>
(o .:? "workspaceChange" .!= mempty))
instance ToJSON GetWorkspaceStatusResponse where
toJSON GetWorkspaceStatusResponse'{..}
= object
(catMaybes
[("mergeConflict" .=) <$> _gwsrMergeConflict,
("workspaceChange" .=) <$> _gwsrWorkspaceChange])
data QuickPreviewResponse = QuickPreviewResponse'
{ _qprCompilerError :: !(Maybe Bool)
, _qprContainerVersion :: !(Maybe ContainerVersion)
, _qprSyncStatus :: !(Maybe SyncStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
quickPreviewResponse
:: QuickPreviewResponse
quickPreviewResponse =
QuickPreviewResponse'
{ _qprCompilerError = Nothing
, _qprContainerVersion = Nothing
, _qprSyncStatus = Nothing
}
qprCompilerError :: Lens' QuickPreviewResponse (Maybe Bool)
qprCompilerError
= lens _qprCompilerError
(\ s a -> s{_qprCompilerError = a})
qprContainerVersion :: Lens' QuickPreviewResponse (Maybe ContainerVersion)
qprContainerVersion
= lens _qprContainerVersion
(\ s a -> s{_qprContainerVersion = a})
qprSyncStatus :: Lens' QuickPreviewResponse (Maybe SyncStatus)
qprSyncStatus
= lens _qprSyncStatus
(\ s a -> s{_qprSyncStatus = a})
instance FromJSON QuickPreviewResponse where
parseJSON
= withObject "QuickPreviewResponse"
(\ o ->
QuickPreviewResponse' <$>
(o .:? "compilerError") <*>
(o .:? "containerVersion")
<*> (o .:? "syncStatus"))
instance ToJSON QuickPreviewResponse where
toJSON QuickPreviewResponse'{..}
= object
(catMaybes
[("compilerError" .=) <$> _qprCompilerError,
("containerVersion" .=) <$> _qprContainerVersion,
("syncStatus" .=) <$> _qprSyncStatus])
data ListContainerVersionsResponse = ListContainerVersionsResponse'
{ _lcvrNextPageToken :: !(Maybe Text)
, _lcvrContainerVersionHeader :: !(Maybe [ContainerVersionHeader])
} deriving (Eq,Show,Data,Typeable,Generic)
listContainerVersionsResponse
:: ListContainerVersionsResponse
listContainerVersionsResponse =
ListContainerVersionsResponse'
{ _lcvrNextPageToken = Nothing
, _lcvrContainerVersionHeader = Nothing
}
lcvrNextPageToken :: Lens' ListContainerVersionsResponse (Maybe Text)
lcvrNextPageToken
= lens _lcvrNextPageToken
(\ s a -> s{_lcvrNextPageToken = a})
lcvrContainerVersionHeader :: Lens' ListContainerVersionsResponse [ContainerVersionHeader]
lcvrContainerVersionHeader
= lens _lcvrContainerVersionHeader
(\ s a -> s{_lcvrContainerVersionHeader = a})
. _Default
. _Coerce
instance FromJSON ListContainerVersionsResponse where
parseJSON
= withObject "ListContainerVersionsResponse"
(\ o ->
ListContainerVersionsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "containerVersionHeader" .!= mempty))
instance ToJSON ListContainerVersionsResponse where
toJSON ListContainerVersionsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lcvrNextPageToken,
("containerVersionHeader" .=) <$>
_lcvrContainerVersionHeader])
data Container = Container'
{ _cPublicId :: !(Maybe Text)
, _cUsageContext :: !(Maybe [ContainerUsageContextItem])
, _cContainerId :: !(Maybe Text)
, _cPath :: !(Maybe Text)
, _cFingerprint :: !(Maybe Text)
, _cAccountId :: !(Maybe Text)
, _cDomainName :: !(Maybe [Text])
, _cName :: !(Maybe Text)
, _cTagManagerURL :: !(Maybe Text)
, _cNotes :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
container
:: Container
container =
Container'
{ _cPublicId = Nothing
, _cUsageContext = Nothing
, _cContainerId = Nothing
, _cPath = Nothing
, _cFingerprint = Nothing
, _cAccountId = Nothing
, _cDomainName = Nothing
, _cName = Nothing
, _cTagManagerURL = Nothing
, _cNotes = 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
cContainerId :: Lens' Container (Maybe Text)
cContainerId
= lens _cContainerId (\ s a -> s{_cContainerId = a})
cPath :: Lens' Container (Maybe Text)
cPath = lens _cPath (\ s a -> s{_cPath = a})
cFingerprint :: Lens' Container (Maybe Text)
cFingerprint
= lens _cFingerprint (\ s a -> s{_cFingerprint = 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})
cTagManagerURL :: Lens' Container (Maybe Text)
cTagManagerURL
= lens _cTagManagerURL
(\ s a -> s{_cTagManagerURL = a})
cNotes :: Lens' Container (Maybe Text)
cNotes = lens _cNotes (\ s a -> s{_cNotes = a})
instance FromJSON Container where
parseJSON
= withObject "Container"
(\ o ->
Container' <$>
(o .:? "publicId") <*>
(o .:? "usageContext" .!= mempty)
<*> (o .:? "containerId")
<*> (o .:? "path")
<*> (o .:? "fingerprint")
<*> (o .:? "accountId")
<*> (o .:? "domainName" .!= mempty)
<*> (o .:? "name")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "notes"))
instance ToJSON Container where
toJSON Container'{..}
= object
(catMaybes
[("publicId" .=) <$> _cPublicId,
("usageContext" .=) <$> _cUsageContext,
("containerId" .=) <$> _cContainerId,
("path" .=) <$> _cPath,
("fingerprint" .=) <$> _cFingerprint,
("accountId" .=) <$> _cAccountId,
("domainName" .=) <$> _cDomainName,
("name" .=) <$> _cName,
("tagManagerUrl" .=) <$> _cTagManagerURL,
("notes" .=) <$> _cNotes])
data BuiltInVariable = BuiltInVariable'
{ _bivContainerId :: !(Maybe Text)
, _bivPath :: !(Maybe Text)
, _bivAccountId :: !(Maybe Text)
, _bivName :: !(Maybe Text)
, _bivWorkspaceId :: !(Maybe Text)
, _bivType :: !(Maybe BuiltInVariableType)
} deriving (Eq,Show,Data,Typeable,Generic)
builtInVariable
:: BuiltInVariable
builtInVariable =
BuiltInVariable'
{ _bivContainerId = Nothing
, _bivPath = Nothing
, _bivAccountId = Nothing
, _bivName = Nothing
, _bivWorkspaceId = Nothing
, _bivType = Nothing
}
bivContainerId :: Lens' BuiltInVariable (Maybe Text)
bivContainerId
= lens _bivContainerId
(\ s a -> s{_bivContainerId = a})
bivPath :: Lens' BuiltInVariable (Maybe Text)
bivPath = lens _bivPath (\ s a -> s{_bivPath = a})
bivAccountId :: Lens' BuiltInVariable (Maybe Text)
bivAccountId
= lens _bivAccountId (\ s a -> s{_bivAccountId = a})
bivName :: Lens' BuiltInVariable (Maybe Text)
bivName = lens _bivName (\ s a -> s{_bivName = a})
bivWorkspaceId :: Lens' BuiltInVariable (Maybe Text)
bivWorkspaceId
= lens _bivWorkspaceId
(\ s a -> s{_bivWorkspaceId = a})
bivType :: Lens' BuiltInVariable (Maybe BuiltInVariableType)
bivType = lens _bivType (\ s a -> s{_bivType = a})
instance FromJSON BuiltInVariable where
parseJSON
= withObject "BuiltInVariable"
(\ o ->
BuiltInVariable' <$>
(o .:? "containerId") <*> (o .:? "path") <*>
(o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "workspaceId")
<*> (o .:? "type"))
instance ToJSON BuiltInVariable where
toJSON BuiltInVariable'{..}
= object
(catMaybes
[("containerId" .=) <$> _bivContainerId,
("path" .=) <$> _bivPath,
("accountId" .=) <$> _bivAccountId,
("name" .=) <$> _bivName,
("workspaceId" .=) <$> _bivWorkspaceId,
("type" .=) <$> _bivType])
data UserPermission = UserPermission'
{ _upPath :: !(Maybe Text)
, _upAccountAccess :: !(Maybe AccountAccess)
, _upAccountId :: !(Maybe Text)
, _upEmailAddress :: !(Maybe Text)
, _upContainerAccess :: !(Maybe [ContainerAccess])
} deriving (Eq,Show,Data,Typeable,Generic)
userPermission
:: UserPermission
userPermission =
UserPermission'
{ _upPath = Nothing
, _upAccountAccess = Nothing
, _upAccountId = Nothing
, _upEmailAddress = Nothing
, _upContainerAccess = Nothing
}
upPath :: Lens' UserPermission (Maybe Text)
upPath = lens _upPath (\ s a -> s{_upPath = a})
upAccountAccess :: Lens' UserPermission (Maybe AccountAccess)
upAccountAccess
= lens _upAccountAccess
(\ s a -> s{_upAccountAccess = a})
upAccountId :: Lens' UserPermission (Maybe Text)
upAccountId
= lens _upAccountId (\ s a -> s{_upAccountId = a})
upEmailAddress :: Lens' UserPermission (Maybe Text)
upEmailAddress
= lens _upEmailAddress
(\ s a -> s{_upEmailAddress = a})
upContainerAccess :: Lens' UserPermission [ContainerAccess]
upContainerAccess
= lens _upContainerAccess
(\ s a -> s{_upContainerAccess = a})
. _Default
. _Coerce
instance FromJSON UserPermission where
parseJSON
= withObject "UserPermission"
(\ o ->
UserPermission' <$>
(o .:? "path") <*> (o .:? "accountAccess") <*>
(o .:? "accountId")
<*> (o .:? "emailAddress")
<*> (o .:? "containerAccess" .!= mempty))
instance ToJSON UserPermission where
toJSON UserPermission'{..}
= object
(catMaybes
[("path" .=) <$> _upPath,
("accountAccess" .=) <$> _upAccountAccess,
("accountId" .=) <$> _upAccountId,
("emailAddress" .=) <$> _upEmailAddress,
("containerAccess" .=) <$> _upContainerAccess])
data ContainerVersion = ContainerVersion'
{ _cvTag :: !(Maybe [Tag])
, _cvContainerId :: !(Maybe Text)
, _cvPath :: !(Maybe Text)
, _cvFingerprint :: !(Maybe Text)
, _cvContainerVersionId :: !(Maybe Text)
, _cvFolder :: !(Maybe [Folder])
, _cvVariable :: !(Maybe [Variable])
, _cvZone :: !(Maybe [Zone])
, _cvAccountId :: !(Maybe Text)
, _cvName :: !(Maybe Text)
, _cvContainer :: !(Maybe Container)
, _cvBuiltInVariable :: !(Maybe [BuiltInVariable])
, _cvTagManagerURL :: !(Maybe Text)
, _cvDeleted :: !(Maybe Bool)
, _cvTrigger :: !(Maybe [Trigger])
, _cvDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
containerVersion
:: ContainerVersion
containerVersion =
ContainerVersion'
{ _cvTag = Nothing
, _cvContainerId = Nothing
, _cvPath = Nothing
, _cvFingerprint = Nothing
, _cvContainerVersionId = Nothing
, _cvFolder = Nothing
, _cvVariable = Nothing
, _cvZone = Nothing
, _cvAccountId = Nothing
, _cvName = Nothing
, _cvContainer = Nothing
, _cvBuiltInVariable = Nothing
, _cvTagManagerURL = Nothing
, _cvDeleted = Nothing
, _cvTrigger = Nothing
, _cvDescription = Nothing
}
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})
cvPath :: Lens' ContainerVersion (Maybe Text)
cvPath = lens _cvPath (\ s a -> s{_cvPath = 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})
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
cvZone :: Lens' ContainerVersion [Zone]
cvZone
= lens _cvZone (\ s a -> s{_cvZone = 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})
cvBuiltInVariable :: Lens' ContainerVersion [BuiltInVariable]
cvBuiltInVariable
= lens _cvBuiltInVariable
(\ s a -> s{_cvBuiltInVariable = a})
. _Default
. _Coerce
cvTagManagerURL :: Lens' ContainerVersion (Maybe Text)
cvTagManagerURL
= lens _cvTagManagerURL
(\ s a -> s{_cvTagManagerURL = 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
cvDescription :: Lens' ContainerVersion (Maybe Text)
cvDescription
= lens _cvDescription
(\ s a -> s{_cvDescription = a})
instance FromJSON ContainerVersion where
parseJSON
= withObject "ContainerVersion"
(\ o ->
ContainerVersion' <$>
(o .:? "tag" .!= mempty) <*> (o .:? "containerId")
<*> (o .:? "path")
<*> (o .:? "fingerprint")
<*> (o .:? "containerVersionId")
<*> (o .:? "folder" .!= mempty)
<*> (o .:? "variable" .!= mempty)
<*> (o .:? "zone" .!= mempty)
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "container")
<*> (o .:? "builtInVariable" .!= mempty)
<*> (o .:? "tagManagerUrl")
<*> (o .:? "deleted")
<*> (o .:? "trigger" .!= mempty)
<*> (o .:? "description"))
instance ToJSON ContainerVersion where
toJSON ContainerVersion'{..}
= object
(catMaybes
[("tag" .=) <$> _cvTag,
("containerId" .=) <$> _cvContainerId,
("path" .=) <$> _cvPath,
("fingerprint" .=) <$> _cvFingerprint,
("containerVersionId" .=) <$> _cvContainerVersionId,
("folder" .=) <$> _cvFolder,
("variable" .=) <$> _cvVariable,
("zone" .=) <$> _cvZone,
("accountId" .=) <$> _cvAccountId,
("name" .=) <$> _cvName,
("container" .=) <$> _cvContainer,
("builtInVariable" .=) <$> _cvBuiltInVariable,
("tagManagerUrl" .=) <$> _cvTagManagerURL,
("deleted" .=) <$> _cvDeleted,
("trigger" .=) <$> _cvTrigger,
("description" .=) <$> _cvDescription])
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])
data ListContainersResponse = ListContainersResponse'
{ _lcrNextPageToken :: !(Maybe Text)
, _lcrContainer :: !(Maybe [Container])
} deriving (Eq,Show,Data,Typeable,Generic)
listContainersResponse
:: ListContainersResponse
listContainersResponse =
ListContainersResponse'
{ _lcrNextPageToken = Nothing
, _lcrContainer = Nothing
}
lcrNextPageToken :: Lens' ListContainersResponse (Maybe Text)
lcrNextPageToken
= lens _lcrNextPageToken
(\ s a -> s{_lcrNextPageToken = a})
lcrContainer :: Lens' ListContainersResponse [Container]
lcrContainer
= lens _lcrContainer (\ s a -> s{_lcrContainer = a})
. _Default
. _Coerce
instance FromJSON ListContainersResponse where
parseJSON
= withObject "ListContainersResponse"
(\ o ->
ListContainersResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "container" .!= mempty))
instance ToJSON ListContainersResponse where
toJSON ListContainersResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lcrNextPageToken,
("container" .=) <$> _lcrContainer])
data Trigger = Trigger'
{ _triContinuousTimeMinMilliseconds :: !(Maybe Parameter)
, _triMaxTimerLengthSeconds :: !(Maybe Parameter)
, _triCustomEventFilter :: !(Maybe [Condition])
, _triParentFolderId :: !(Maybe Text)
, _triVisiblePercentageMax :: !(Maybe Parameter)
, _triContainerId :: !(Maybe Text)
, _triPath :: !(Maybe Text)
, _triSelector :: !(Maybe Parameter)
, _triTriggerId :: !(Maybe Text)
, _triCheckValidation :: !(Maybe Parameter)
, _triFingerprint :: !(Maybe Text)
, _triTotalTimeMinMilliseconds :: !(Maybe Parameter)
, _triAutoEventFilter :: !(Maybe [Condition])
, _triUniqueTriggerId :: !(Maybe Parameter)
, _triHorizontalScrollPercentageList :: !(Maybe Parameter)
, _triIntervalSeconds :: !(Maybe Parameter)
, _triVisiblePercentageMin :: !(Maybe Parameter)
, _triAccountId :: !(Maybe Text)
, _triName :: !(Maybe Text)
, _triInterval :: !(Maybe Parameter)
, _triTagManagerURL :: !(Maybe Text)
, _triWaitForTagsTimeout :: !(Maybe Parameter)
, _triLimit :: !(Maybe Parameter)
, _triVerticalScrollPercentageList :: !(Maybe Parameter)
, _triFilter :: !(Maybe [Condition])
, _triWorkspaceId :: !(Maybe Text)
, _triType :: !(Maybe TriggerType)
, _triNotes :: !(Maybe Text)
, _triVisibilitySelector :: !(Maybe Parameter)
, _triEventName :: !(Maybe Parameter)
, _triWaitForTags :: !(Maybe Parameter)
, _triParameter :: !(Maybe [Parameter])
} deriving (Eq,Show,Data,Typeable,Generic)
trigger
:: Trigger
trigger =
Trigger'
{ _triContinuousTimeMinMilliseconds = Nothing
, _triMaxTimerLengthSeconds = Nothing
, _triCustomEventFilter = Nothing
, _triParentFolderId = Nothing
, _triVisiblePercentageMax = Nothing
, _triContainerId = Nothing
, _triPath = Nothing
, _triSelector = Nothing
, _triTriggerId = Nothing
, _triCheckValidation = Nothing
, _triFingerprint = Nothing
, _triTotalTimeMinMilliseconds = Nothing
, _triAutoEventFilter = Nothing
, _triUniqueTriggerId = Nothing
, _triHorizontalScrollPercentageList = Nothing
, _triIntervalSeconds = Nothing
, _triVisiblePercentageMin = Nothing
, _triAccountId = Nothing
, _triName = Nothing
, _triInterval = Nothing
, _triTagManagerURL = Nothing
, _triWaitForTagsTimeout = Nothing
, _triLimit = Nothing
, _triVerticalScrollPercentageList = Nothing
, _triFilter = Nothing
, _triWorkspaceId = Nothing
, _triType = Nothing
, _triNotes = Nothing
, _triVisibilitySelector = Nothing
, _triEventName = Nothing
, _triWaitForTags = Nothing
, _triParameter = Nothing
}
triContinuousTimeMinMilliseconds :: Lens' Trigger (Maybe Parameter)
triContinuousTimeMinMilliseconds
= lens _triContinuousTimeMinMilliseconds
(\ s a -> s{_triContinuousTimeMinMilliseconds = a})
triMaxTimerLengthSeconds :: Lens' Trigger (Maybe Parameter)
triMaxTimerLengthSeconds
= lens _triMaxTimerLengthSeconds
(\ s a -> s{_triMaxTimerLengthSeconds = a})
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})
triVisiblePercentageMax :: Lens' Trigger (Maybe Parameter)
triVisiblePercentageMax
= lens _triVisiblePercentageMax
(\ s a -> s{_triVisiblePercentageMax = a})
triContainerId :: Lens' Trigger (Maybe Text)
triContainerId
= lens _triContainerId
(\ s a -> s{_triContainerId = a})
triPath :: Lens' Trigger (Maybe Text)
triPath = lens _triPath (\ s a -> s{_triPath = a})
triSelector :: Lens' Trigger (Maybe Parameter)
triSelector
= lens _triSelector (\ s a -> s{_triSelector = 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})
triTotalTimeMinMilliseconds :: Lens' Trigger (Maybe Parameter)
triTotalTimeMinMilliseconds
= lens _triTotalTimeMinMilliseconds
(\ s a -> s{_triTotalTimeMinMilliseconds = 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})
triHorizontalScrollPercentageList :: Lens' Trigger (Maybe Parameter)
triHorizontalScrollPercentageList
= lens _triHorizontalScrollPercentageList
(\ s a -> s{_triHorizontalScrollPercentageList = a})
triIntervalSeconds :: Lens' Trigger (Maybe Parameter)
triIntervalSeconds
= lens _triIntervalSeconds
(\ s a -> s{_triIntervalSeconds = a})
triVisiblePercentageMin :: Lens' Trigger (Maybe Parameter)
triVisiblePercentageMin
= lens _triVisiblePercentageMin
(\ s a -> s{_triVisiblePercentageMin = 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})
triTagManagerURL :: Lens' Trigger (Maybe Text)
triTagManagerURL
= lens _triTagManagerURL
(\ s a -> s{_triTagManagerURL = 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})
triVerticalScrollPercentageList :: Lens' Trigger (Maybe Parameter)
triVerticalScrollPercentageList
= lens _triVerticalScrollPercentageList
(\ s a -> s{_triVerticalScrollPercentageList = a})
triFilter :: Lens' Trigger [Condition]
triFilter
= lens _triFilter (\ s a -> s{_triFilter = a}) .
_Default
. _Coerce
triWorkspaceId :: Lens' Trigger (Maybe Text)
triWorkspaceId
= lens _triWorkspaceId
(\ s a -> s{_triWorkspaceId = a})
triType :: Lens' Trigger (Maybe TriggerType)
triType = lens _triType (\ s a -> s{_triType = a})
triNotes :: Lens' Trigger (Maybe Text)
triNotes = lens _triNotes (\ s a -> s{_triNotes = a})
triVisibilitySelector :: Lens' Trigger (Maybe Parameter)
triVisibilitySelector
= lens _triVisibilitySelector
(\ s a -> s{_triVisibilitySelector = 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})
triParameter :: Lens' Trigger [Parameter]
triParameter
= lens _triParameter (\ s a -> s{_triParameter = a})
. _Default
. _Coerce
instance FromJSON Trigger where
parseJSON
= withObject "Trigger"
(\ o ->
Trigger' <$>
(o .:? "continuousTimeMinMilliseconds") <*>
(o .:? "maxTimerLengthSeconds")
<*> (o .:? "customEventFilter" .!= mempty)
<*> (o .:? "parentFolderId")
<*> (o .:? "visiblePercentageMax")
<*> (o .:? "containerId")
<*> (o .:? "path")
<*> (o .:? "selector")
<*> (o .:? "triggerId")
<*> (o .:? "checkValidation")
<*> (o .:? "fingerprint")
<*> (o .:? "totalTimeMinMilliseconds")
<*> (o .:? "autoEventFilter" .!= mempty)
<*> (o .:? "uniqueTriggerId")
<*> (o .:? "horizontalScrollPercentageList")
<*> (o .:? "intervalSeconds")
<*> (o .:? "visiblePercentageMin")
<*> (o .:? "accountId")
<*> (o .:? "name")
<*> (o .:? "interval")
<*> (o .:? "tagManagerUrl")
<*> (o .:? "waitForTagsTimeout")
<*> (o .:? "limit")
<*> (o .:? "verticalScrollPercentageList")
<*> (o .:? "filter" .!= mempty)
<*> (o .:? "workspaceId")
<*> (o .:? "type")
<*> (o .:? "notes")
<*> (o .:? "visibilitySelector")
<*> (o .:? "eventName")
<*> (o .:? "waitForTags")
<*> (o .:? "parameter" .!= mempty))
instance ToJSON Trigger where
toJSON Trigger'{..}
= object
(catMaybes
[("continuousTimeMinMilliseconds" .=) <$>
_triContinuousTimeMinMilliseconds,
("maxTimerLengthSeconds" .=) <$>
_triMaxTimerLengthSeconds,
("customEventFilter" .=) <$> _triCustomEventFilter,
("parentFolderId" .=) <$> _triParentFolderId,
("visiblePercentageMax" .=) <$>
_triVisiblePercentageMax,
("containerId" .=) <$> _triContainerId,
("path" .=) <$> _triPath,
("selector" .=) <$> _triSelector,
("triggerId" .=) <$> _triTriggerId,
("checkValidation" .=) <$> _triCheckValidation,
("fingerprint" .=) <$> _triFingerprint,
("totalTimeMinMilliseconds" .=) <$>
_triTotalTimeMinMilliseconds,
("autoEventFilter" .=) <$> _triAutoEventFilter,
("uniqueTriggerId" .=) <$> _triUniqueTriggerId,
("horizontalScrollPercentageList" .=) <$>
_triHorizontalScrollPercentageList,
("intervalSeconds" .=) <$> _triIntervalSeconds,
("visiblePercentageMin" .=) <$>
_triVisiblePercentageMin,
("accountId" .=) <$> _triAccountId,
("name" .=) <$> _triName,
("interval" .=) <$> _triInterval,
("tagManagerUrl" .=) <$> _triTagManagerURL,
("waitForTagsTimeout" .=) <$> _triWaitForTagsTimeout,
("limit" .=) <$> _triLimit,
("verticalScrollPercentageList" .=) <$>
_triVerticalScrollPercentageList,
("filter" .=) <$> _triFilter,
("workspaceId" .=) <$> _triWorkspaceId,
("type" .=) <$> _triType, ("notes" .=) <$> _triNotes,
("visibilitySelector" .=) <$> _triVisibilitySelector,
("eventName" .=) <$> _triEventName,
("waitForTags" .=) <$> _triWaitForTags,
("parameter" .=) <$> _triParameter])
data ListTagsResponse = ListTagsResponse'
{ _lNextPageToken :: !(Maybe Text)
, _lTag :: !(Maybe [Tag])
} deriving (Eq,Show,Data,Typeable,Generic)
listTagsResponse
:: ListTagsResponse
listTagsResponse =
ListTagsResponse'
{ _lNextPageToken = Nothing
, _lTag = Nothing
}
lNextPageToken :: Lens' ListTagsResponse (Maybe Text)
lNextPageToken
= lens _lNextPageToken
(\ s a -> s{_lNextPageToken = a})
lTag :: Lens' ListTagsResponse [Tag]
lTag
= lens _lTag (\ s a -> s{_lTag = a}) . _Default .
_Coerce
instance FromJSON ListTagsResponse where
parseJSON
= withObject "ListTagsResponse"
(\ o ->
ListTagsResponse' <$>
(o .:? "nextPageToken") <*> (o .:? "tag" .!= mempty))
instance ToJSON ListTagsResponse where
toJSON ListTagsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lNextPageToken,
("tag" .=) <$> _lTag])
data ListEnabledBuiltInVariablesResponse = ListEnabledBuiltInVariablesResponse'
{ _lebivrNextPageToken :: !(Maybe Text)
, _lebivrBuiltInVariable :: !(Maybe [BuiltInVariable])
} deriving (Eq,Show,Data,Typeable,Generic)
listEnabledBuiltInVariablesResponse
:: ListEnabledBuiltInVariablesResponse
listEnabledBuiltInVariablesResponse =
ListEnabledBuiltInVariablesResponse'
{ _lebivrNextPageToken = Nothing
, _lebivrBuiltInVariable = Nothing
}
lebivrNextPageToken :: Lens' ListEnabledBuiltInVariablesResponse (Maybe Text)
lebivrNextPageToken
= lens _lebivrNextPageToken
(\ s a -> s{_lebivrNextPageToken = a})
lebivrBuiltInVariable :: Lens' ListEnabledBuiltInVariablesResponse [BuiltInVariable]
lebivrBuiltInVariable
= lens _lebivrBuiltInVariable
(\ s a -> s{_lebivrBuiltInVariable = a})
. _Default
. _Coerce
instance FromJSON ListEnabledBuiltInVariablesResponse
where
parseJSON
= withObject "ListEnabledBuiltInVariablesResponse"
(\ o ->
ListEnabledBuiltInVariablesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "builtInVariable" .!= mempty))
instance ToJSON ListEnabledBuiltInVariablesResponse
where
toJSON ListEnabledBuiltInVariablesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lebivrNextPageToken,
("builtInVariable" .=) <$> _lebivrBuiltInVariable])
data WorkspaceProposalUser = WorkspaceProposalUser'
{ _wpuGaiaId :: !(Maybe (Textual Int64))
, _wpuType :: !(Maybe WorkspaceProposalUserType)
} deriving (Eq,Show,Data,Typeable,Generic)
workspaceProposalUser
:: WorkspaceProposalUser
workspaceProposalUser =
WorkspaceProposalUser'
{ _wpuGaiaId = Nothing
, _wpuType = Nothing
}
wpuGaiaId :: Lens' WorkspaceProposalUser (Maybe Int64)
wpuGaiaId
= lens _wpuGaiaId (\ s a -> s{_wpuGaiaId = a}) .
mapping _Coerce
wpuType :: Lens' WorkspaceProposalUser (Maybe WorkspaceProposalUserType)
wpuType = lens _wpuType (\ s a -> s{_wpuType = a})
instance FromJSON WorkspaceProposalUser where
parseJSON
= withObject "WorkspaceProposalUser"
(\ o ->
WorkspaceProposalUser' <$>
(o .:? "gaiaId") <*> (o .:? "type"))
instance ToJSON WorkspaceProposalUser where
toJSON WorkspaceProposalUser'{..}
= object
(catMaybes
[("gaiaId" .=) <$> _wpuGaiaId,
("type" .=) <$> _wpuType])
data FolderEntities = FolderEntities'
{ _feNextPageToken :: !(Maybe Text)
, _feTag :: !(Maybe [Tag])
, _feVariable :: !(Maybe [Variable])
, _feTrigger :: !(Maybe [Trigger])
} deriving (Eq,Show,Data,Typeable,Generic)
folderEntities
:: FolderEntities
folderEntities =
FolderEntities'
{ _feNextPageToken = Nothing
, _feTag = Nothing
, _feVariable = Nothing
, _feTrigger = Nothing
}
feNextPageToken :: Lens' FolderEntities (Maybe Text)
feNextPageToken
= lens _feNextPageToken
(\ s a -> s{_feNextPageToken = a})
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 .:? "nextPageToken") <*> (o .:? "tag" .!= mempty)
<*> (o .:? "variable" .!= mempty)
<*> (o .:? "trigger" .!= mempty))
instance ToJSON FolderEntities where
toJSON FolderEntities'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _feNextPageToken,
("tag" .=) <$> _feTag,
("variable" .=) <$> _feVariable,
("trigger" .=) <$> _feTrigger])
data SyncStatus = SyncStatus'
{ _ssSyncError :: !(Maybe Bool)
, _ssMergeConflict :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
syncStatus
:: SyncStatus
syncStatus =
SyncStatus'
{ _ssSyncError = Nothing
, _ssMergeConflict = Nothing
}
ssSyncError :: Lens' SyncStatus (Maybe Bool)
ssSyncError
= lens _ssSyncError (\ s a -> s{_ssSyncError = a})
ssMergeConflict :: Lens' SyncStatus (Maybe Bool)
ssMergeConflict
= lens _ssMergeConflict
(\ s a -> s{_ssMergeConflict = a})
instance FromJSON SyncStatus where
parseJSON
= withObject "SyncStatus"
(\ o ->
SyncStatus' <$>
(o .:? "syncError") <*> (o .:? "mergeConflict"))
instance ToJSON SyncStatus where
toJSON SyncStatus'{..}
= object
(catMaybes
[("syncError" .=) <$> _ssSyncError,
("mergeConflict" .=) <$> _ssMergeConflict])
newtype RevertTagResponse = RevertTagResponse'
{ _rtrTag :: Maybe Tag
} deriving (Eq,Show,Data,Typeable,Generic)
revertTagResponse
:: RevertTagResponse
revertTagResponse =
RevertTagResponse'
{ _rtrTag = Nothing
}
rtrTag :: Lens' RevertTagResponse (Maybe Tag)
rtrTag = lens _rtrTag (\ s a -> s{_rtrTag = a})
instance FromJSON RevertTagResponse where
parseJSON
= withObject "RevertTagResponse"
(\ o -> RevertTagResponse' <$> (o .:? "tag"))
instance ToJSON RevertTagResponse where
toJSON RevertTagResponse'{..}
= object (catMaybes [("tag" .=) <$> _rtrTag])
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 Entity = Entity'
{ _eTag :: !(Maybe Tag)
, _eFolder :: !(Maybe Folder)
, _eVariable :: !(Maybe Variable)
, _eChangeStatus :: !(Maybe EntityChangeStatus)
, _eTrigger :: !(Maybe Trigger)
} deriving (Eq,Show,Data,Typeable,Generic)
entity
:: Entity
entity =
Entity'
{ _eTag = Nothing
, _eFolder = Nothing
, _eVariable = Nothing
, _eChangeStatus = Nothing
, _eTrigger = Nothing
}
eTag :: Lens' Entity (Maybe Tag)
eTag = lens _eTag (\ s a -> s{_eTag = a})
eFolder :: Lens' Entity (Maybe Folder)
eFolder = lens _eFolder (\ s a -> s{_eFolder = a})
eVariable :: Lens' Entity (Maybe Variable)
eVariable
= lens _eVariable (\ s a -> s{_eVariable = a})
eChangeStatus :: Lens' Entity (Maybe EntityChangeStatus)
eChangeStatus
= lens _eChangeStatus
(\ s a -> s{_eChangeStatus = a})
eTrigger :: Lens' Entity (Maybe Trigger)
eTrigger = lens _eTrigger (\ s a -> s{_eTrigger = a})
instance FromJSON Entity where
parseJSON
= withObject "Entity"
(\ o ->
Entity' <$>
(o .:? "tag") <*> (o .:? "folder") <*>
(o .:? "variable")
<*> (o .:? "changeStatus")
<*> (o .:? "trigger"))
instance ToJSON Entity where
toJSON Entity'{..}
= object
(catMaybes
[("tag" .=) <$> _eTag, ("folder" .=) <$> _eFolder,
("variable" .=) <$> _eVariable,
("changeStatus" .=) <$> _eChangeStatus,
("trigger" .=) <$> _eTrigger])
data ContainerAccess = ContainerAccess'
{ _caContainerId :: !(Maybe Text)
, _caPermission :: !(Maybe ContainerAccessPermission)
} 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 (Maybe ContainerAccessPermission)
caPermission
= lens _caPermission (\ s a -> s{_caPermission = a})
instance FromJSON ContainerAccess where
parseJSON
= withObject "ContainerAccess"
(\ o ->
ContainerAccess' <$>
(o .:? "containerId") <*> (o .:? "permission"))
instance ToJSON ContainerAccess where
toJSON ContainerAccess'{..}
= object
(catMaybes
[("containerId" .=) <$> _caContainerId,
("permission" .=) <$> _caPermission])
data Timestamp = Timestamp'
{ _tNanos :: !(Maybe (Textual Int32))
, _tSeconds :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
timestamp
:: Timestamp
timestamp =
Timestamp'
{ _tNanos = Nothing
, _tSeconds = Nothing
}
tNanos :: Lens' Timestamp (Maybe Int32)
tNanos
= lens _tNanos (\ s a -> s{_tNanos = a}) .
mapping _Coerce
tSeconds :: Lens' Timestamp (Maybe Int64)
tSeconds
= lens _tSeconds (\ s a -> s{_tSeconds = a}) .
mapping _Coerce
instance FromJSON Timestamp where
parseJSON
= withObject "Timestamp"
(\ o ->
Timestamp' <$> (o .:? "nanos") <*> (o .:? "seconds"))
instance ToJSON Timestamp where
toJSON Timestamp'{..}
= object
(catMaybes
[("nanos" .=) <$> _tNanos,
("seconds" .=) <$> _tSeconds])
newtype RevertBuiltInVariableResponse = RevertBuiltInVariableResponse'
{ _rbivrEnabled :: Maybe Bool
} deriving (Eq,Show,Data,Typeable,Generic)
revertBuiltInVariableResponse
:: RevertBuiltInVariableResponse
revertBuiltInVariableResponse =
RevertBuiltInVariableResponse'
{ _rbivrEnabled = Nothing
}
rbivrEnabled :: Lens' RevertBuiltInVariableResponse (Maybe Bool)
rbivrEnabled
= lens _rbivrEnabled (\ s a -> s{_rbivrEnabled = a})
instance FromJSON RevertBuiltInVariableResponse where
parseJSON
= withObject "RevertBuiltInVariableResponse"
(\ o ->
RevertBuiltInVariableResponse' <$> (o .:? "enabled"))
instance ToJSON RevertBuiltInVariableResponse where
toJSON RevertBuiltInVariableResponse'{..}
= object
(catMaybes [("enabled" .=) <$> _rbivrEnabled])
data WorkspaceProposalHistoryStatusChange = WorkspaceProposalHistoryStatusChange'
{ _wphscOldStatus :: !(Maybe WorkspaceProposalHistoryStatusChangeOldStatus)
, _wphscNewStatus :: !(Maybe WorkspaceProposalHistoryStatusChangeNewStatus)
} deriving (Eq,Show,Data,Typeable,Generic)
workspaceProposalHistoryStatusChange
:: WorkspaceProposalHistoryStatusChange
workspaceProposalHistoryStatusChange =
WorkspaceProposalHistoryStatusChange'
{ _wphscOldStatus = Nothing
, _wphscNewStatus = Nothing
}
wphscOldStatus :: Lens' WorkspaceProposalHistoryStatusChange (Maybe WorkspaceProposalHistoryStatusChangeOldStatus)
wphscOldStatus
= lens _wphscOldStatus
(\ s a -> s{_wphscOldStatus = a})
wphscNewStatus :: Lens' WorkspaceProposalHistoryStatusChange (Maybe WorkspaceProposalHistoryStatusChangeNewStatus)
wphscNewStatus
= lens _wphscNewStatus
(\ s a -> s{_wphscNewStatus = a})
instance FromJSON
WorkspaceProposalHistoryStatusChange where
parseJSON
= withObject "WorkspaceProposalHistoryStatusChange"
(\ o ->
WorkspaceProposalHistoryStatusChange' <$>
(o .:? "oldStatus") <*> (o .:? "newStatus"))
instance ToJSON WorkspaceProposalHistoryStatusChange
where
toJSON WorkspaceProposalHistoryStatusChange'{..}
= object
(catMaybes
[("oldStatus" .=) <$> _wphscOldStatus,
("newStatus" .=) <$> _wphscNewStatus])
data WorkspaceProposal = WorkspaceProposal'
{ _wpStatus :: !(Maybe WorkspaceProposalStatus)
, _wpHistory :: !(Maybe [WorkspaceProposalHistory])
, _wpPath :: !(Maybe Text)
, _wpFingerprint :: !(Maybe Text)
, _wpAuthors :: !(Maybe [WorkspaceProposalUser])
, _wpReviewers :: !(Maybe [WorkspaceProposalUser])
} deriving (Eq,Show,Data,Typeable,Generic)
workspaceProposal
:: WorkspaceProposal
workspaceProposal =
WorkspaceProposal'
{ _wpStatus = Nothing
, _wpHistory = Nothing
, _wpPath = Nothing
, _wpFingerprint = Nothing
, _wpAuthors = Nothing
, _wpReviewers = Nothing
}
wpStatus :: Lens' WorkspaceProposal (Maybe WorkspaceProposalStatus)
wpStatus = lens _wpStatus (\ s a -> s{_wpStatus = a})
wpHistory :: Lens' WorkspaceProposal [WorkspaceProposalHistory]
wpHistory
= lens _wpHistory (\ s a -> s{_wpHistory = a}) .
_Default
. _Coerce
wpPath :: Lens' WorkspaceProposal (Maybe Text)
wpPath = lens _wpPath (\ s a -> s{_wpPath = a})
wpFingerprint :: Lens' WorkspaceProposal (Maybe Text)
wpFingerprint
= lens _wpFingerprint
(\ s a -> s{_wpFingerprint = a})
wpAuthors :: Lens' WorkspaceProposal [WorkspaceProposalUser]
wpAuthors
= lens _wpAuthors (\ s a -> s{_wpAuthors = a}) .
_Default
. _Coerce
wpReviewers :: Lens' WorkspaceProposal [WorkspaceProposalUser]
wpReviewers
= lens _wpReviewers (\ s a -> s{_wpReviewers = a}) .
_Default
. _Coerce
instance FromJSON WorkspaceProposal where
parseJSON
= withObject "WorkspaceProposal"
(\ o ->
WorkspaceProposal' <$>
(o .:? "status") <*> (o .:? "history" .!= mempty) <*>
(o .:? "path")
<*> (o .:? "fingerprint")
<*> (o .:? "authors" .!= mempty)
<*> (o .:? "reviewers" .!= mempty))
instance ToJSON WorkspaceProposal where
toJSON WorkspaceProposal'{..}
= object
(catMaybes
[("status" .=) <$> _wpStatus,
("history" .=) <$> _wpHistory,
("path" .=) <$> _wpPath,
("fingerprint" .=) <$> _wpFingerprint,
("authors" .=) <$> _wpAuthors,
("reviewers" .=) <$> _wpReviewers])
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])