{-# 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.Vault.Types.Product where
import Network.Google.Prelude
import Network.Google.Vault.Types.Sum
data HeldAccount =
HeldAccount'
{ _haEmail :: !(Maybe Text)
, _haLastName :: !(Maybe Text)
, _haAccountId :: !(Maybe Text)
, _haHoldTime :: !(Maybe DateTime')
, _haFirstName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
heldAccount
:: HeldAccount
heldAccount =
HeldAccount'
{ _haEmail = Nothing
, _haLastName = Nothing
, _haAccountId = Nothing
, _haHoldTime = Nothing
, _haFirstName = Nothing
}
haEmail :: Lens' HeldAccount (Maybe Text)
haEmail = lens _haEmail (\ s a -> s{_haEmail = a})
haLastName :: Lens' HeldAccount (Maybe Text)
haLastName
= lens _haLastName (\ s a -> s{_haLastName = a})
haAccountId :: Lens' HeldAccount (Maybe Text)
haAccountId
= lens _haAccountId (\ s a -> s{_haAccountId = a})
haHoldTime :: Lens' HeldAccount (Maybe UTCTime)
haHoldTime
= lens _haHoldTime (\ s a -> s{_haHoldTime = a}) .
mapping _DateTime
haFirstName :: Lens' HeldAccount (Maybe Text)
haFirstName
= lens _haFirstName (\ s a -> s{_haFirstName = a})
instance FromJSON HeldAccount where
parseJSON
= withObject "HeldAccount"
(\ o ->
HeldAccount' <$>
(o .:? "email") <*> (o .:? "lastName") <*>
(o .:? "accountId")
<*> (o .:? "holdTime")
<*> (o .:? "firstName"))
instance ToJSON HeldAccount where
toJSON HeldAccount'{..}
= object
(catMaybes
[("email" .=) <$> _haEmail,
("lastName" .=) <$> _haLastName,
("accountId" .=) <$> _haAccountId,
("holdTime" .=) <$> _haHoldTime,
("firstName" .=) <$> _haFirstName])
newtype HeldHangoutsChatQuery =
HeldHangoutsChatQuery'
{ _hhcqIncludeRooms :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
heldHangoutsChatQuery
:: HeldHangoutsChatQuery
heldHangoutsChatQuery = HeldHangoutsChatQuery' {_hhcqIncludeRooms = Nothing}
hhcqIncludeRooms :: Lens' HeldHangoutsChatQuery (Maybe Bool)
hhcqIncludeRooms
= lens _hhcqIncludeRooms
(\ s a -> s{_hhcqIncludeRooms = a})
instance FromJSON HeldHangoutsChatQuery where
parseJSON
= withObject "HeldHangoutsChatQuery"
(\ o ->
HeldHangoutsChatQuery' <$> (o .:? "includeRooms"))
instance ToJSON HeldHangoutsChatQuery where
toJSON HeldHangoutsChatQuery'{..}
= object
(catMaybes
[("includeRooms" .=) <$> _hhcqIncludeRooms])
data Export =
Export'
{ _eStatus :: !(Maybe ExportStatus)
, _eCloudStorageSink :: !(Maybe CloudStorageSink)
, _eMatterId :: !(Maybe Text)
, _eStats :: !(Maybe ExportStats)
, _eExportOptions :: !(Maybe ExportOptions)
, _eName :: !(Maybe Text)
, _eQuery :: !(Maybe Query)
, _eId :: !(Maybe Text)
, _eRequester :: !(Maybe UserInfo)
, _eCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
export'
:: Export
export' =
Export'
{ _eStatus = Nothing
, _eCloudStorageSink = Nothing
, _eMatterId = Nothing
, _eStats = Nothing
, _eExportOptions = Nothing
, _eName = Nothing
, _eQuery = Nothing
, _eId = Nothing
, _eRequester = Nothing
, _eCreateTime = Nothing
}
eStatus :: Lens' Export (Maybe ExportStatus)
eStatus = lens _eStatus (\ s a -> s{_eStatus = a})
eCloudStorageSink :: Lens' Export (Maybe CloudStorageSink)
eCloudStorageSink
= lens _eCloudStorageSink
(\ s a -> s{_eCloudStorageSink = a})
eMatterId :: Lens' Export (Maybe Text)
eMatterId
= lens _eMatterId (\ s a -> s{_eMatterId = a})
eStats :: Lens' Export (Maybe ExportStats)
eStats = lens _eStats (\ s a -> s{_eStats = a})
eExportOptions :: Lens' Export (Maybe ExportOptions)
eExportOptions
= lens _eExportOptions
(\ s a -> s{_eExportOptions = a})
eName :: Lens' Export (Maybe Text)
eName = lens _eName (\ s a -> s{_eName = a})
eQuery :: Lens' Export (Maybe Query)
eQuery = lens _eQuery (\ s a -> s{_eQuery = a})
eId :: Lens' Export (Maybe Text)
eId = lens _eId (\ s a -> s{_eId = a})
eRequester :: Lens' Export (Maybe UserInfo)
eRequester
= lens _eRequester (\ s a -> s{_eRequester = a})
eCreateTime :: Lens' Export (Maybe UTCTime)
eCreateTime
= lens _eCreateTime (\ s a -> s{_eCreateTime = a}) .
mapping _DateTime
instance FromJSON Export where
parseJSON
= withObject "Export"
(\ o ->
Export' <$>
(o .:? "status") <*> (o .:? "cloudStorageSink") <*>
(o .:? "matterId")
<*> (o .:? "stats")
<*> (o .:? "exportOptions")
<*> (o .:? "name")
<*> (o .:? "query")
<*> (o .:? "id")
<*> (o .:? "requester")
<*> (o .:? "createTime"))
instance ToJSON Export where
toJSON Export'{..}
= object
(catMaybes
[("status" .=) <$> _eStatus,
("cloudStorageSink" .=) <$> _eCloudStorageSink,
("matterId" .=) <$> _eMatterId,
("stats" .=) <$> _eStats,
("exportOptions" .=) <$> _eExportOptions,
("name" .=) <$> _eName, ("query" .=) <$> _eQuery,
("id" .=) <$> _eId, ("requester" .=) <$> _eRequester,
("createTime" .=) <$> _eCreateTime])
data Status =
Status'
{ _sDetails :: !(Maybe [StatusDetailsItem])
, _sCode :: !(Maybe (Textual Int32))
, _sMessage :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
status
:: Status
status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing}
sDetails :: Lens' Status [StatusDetailsItem]
sDetails
= lens _sDetails (\ s a -> s{_sDetails = a}) .
_Default
. _Coerce
sCode :: Lens' Status (Maybe Int32)
sCode
= lens _sCode (\ s a -> s{_sCode = a}) .
mapping _Coerce
sMessage :: Lens' Status (Maybe Text)
sMessage = lens _sMessage (\ s a -> s{_sMessage = a})
instance FromJSON Status where
parseJSON
= withObject "Status"
(\ o ->
Status' <$>
(o .:? "details" .!= mempty) <*> (o .:? "code") <*>
(o .:? "message"))
instance ToJSON Status where
toJSON Status'{..}
= object
(catMaybes
[("details" .=) <$> _sDetails,
("code" .=) <$> _sCode,
("message" .=) <$> _sMessage])
newtype AccountInfo =
AccountInfo'
{ _aiEmails :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
accountInfo
:: AccountInfo
accountInfo = AccountInfo' {_aiEmails = Nothing}
aiEmails :: Lens' AccountInfo [Text]
aiEmails
= lens _aiEmails (\ s a -> s{_aiEmails = a}) .
_Default
. _Coerce
instance FromJSON AccountInfo where
parseJSON
= withObject "AccountInfo"
(\ o -> AccountInfo' <$> (o .:? "emails" .!= mempty))
instance ToJSON AccountInfo where
toJSON AccountInfo'{..}
= object (catMaybes [("emails" .=) <$> _aiEmails])
newtype CloudStorageSink =
CloudStorageSink'
{ _cssFiles :: Maybe [CloudStorageFile]
}
deriving (Eq, Show, Data, Typeable, Generic)
cloudStorageSink
:: CloudStorageSink
cloudStorageSink = CloudStorageSink' {_cssFiles = Nothing}
cssFiles :: Lens' CloudStorageSink [CloudStorageFile]
cssFiles
= lens _cssFiles (\ s a -> s{_cssFiles = a}) .
_Default
. _Coerce
instance FromJSON CloudStorageSink where
parseJSON
= withObject "CloudStorageSink"
(\ o ->
CloudStorageSink' <$> (o .:? "files" .!= mempty))
instance ToJSON CloudStorageSink where
toJSON CloudStorageSink'{..}
= object (catMaybes [("files" .=) <$> _cssFiles])
newtype HangoutsChatExportOptions =
HangoutsChatExportOptions'
{ _hceoExportFormat :: Maybe HangoutsChatExportOptionsExportFormat
}
deriving (Eq, Show, Data, Typeable, Generic)
hangoutsChatExportOptions
:: HangoutsChatExportOptions
hangoutsChatExportOptions =
HangoutsChatExportOptions' {_hceoExportFormat = Nothing}
hceoExportFormat :: Lens' HangoutsChatExportOptions (Maybe HangoutsChatExportOptionsExportFormat)
hceoExportFormat
= lens _hceoExportFormat
(\ s a -> s{_hceoExportFormat = a})
instance FromJSON HangoutsChatExportOptions where
parseJSON
= withObject "HangoutsChatExportOptions"
(\ o ->
HangoutsChatExportOptions' <$>
(o .:? "exportFormat"))
instance ToJSON HangoutsChatExportOptions where
toJSON HangoutsChatExportOptions'{..}
= object
(catMaybes
[("exportFormat" .=) <$> _hceoExportFormat])
data UserInfo =
UserInfo'
{ _uiEmail :: !(Maybe Text)
, _uiDisplayName :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
userInfo
:: UserInfo
userInfo = UserInfo' {_uiEmail = Nothing, _uiDisplayName = Nothing}
uiEmail :: Lens' UserInfo (Maybe Text)
uiEmail = lens _uiEmail (\ s a -> s{_uiEmail = a})
uiDisplayName :: Lens' UserInfo (Maybe Text)
uiDisplayName
= lens _uiDisplayName
(\ s a -> s{_uiDisplayName = a})
instance FromJSON UserInfo where
parseJSON
= withObject "UserInfo"
(\ o ->
UserInfo' <$>
(o .:? "email") <*> (o .:? "displayName"))
instance ToJSON UserInfo where
toJSON UserInfo'{..}
= object
(catMaybes
[("email" .=) <$> _uiEmail,
("displayName" .=) <$> _uiDisplayName])
newtype TeamDriveInfo =
TeamDriveInfo'
{ _tdiTeamDriveIds :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
teamDriveInfo
:: TeamDriveInfo
teamDriveInfo = TeamDriveInfo' {_tdiTeamDriveIds = Nothing}
tdiTeamDriveIds :: Lens' TeamDriveInfo [Text]
tdiTeamDriveIds
= lens _tdiTeamDriveIds
(\ s a -> s{_tdiTeamDriveIds = a})
. _Default
. _Coerce
instance FromJSON TeamDriveInfo where
parseJSON
= withObject "TeamDriveInfo"
(\ o ->
TeamDriveInfo' <$> (o .:? "teamDriveIds" .!= mempty))
instance ToJSON TeamDriveInfo where
toJSON TeamDriveInfo'{..}
= object
(catMaybes
[("teamDriveIds" .=) <$> _tdiTeamDriveIds])
data AddHeldAccountsRequest =
AddHeldAccountsRequest'
{ _aharAccountIds :: !(Maybe [Text])
, _aharEmails :: !(Maybe [Text])
}
deriving (Eq, Show, Data, Typeable, Generic)
addHeldAccountsRequest
:: AddHeldAccountsRequest
addHeldAccountsRequest =
AddHeldAccountsRequest' {_aharAccountIds = Nothing, _aharEmails = Nothing}
aharAccountIds :: Lens' AddHeldAccountsRequest [Text]
aharAccountIds
= lens _aharAccountIds
(\ s a -> s{_aharAccountIds = a})
. _Default
. _Coerce
aharEmails :: Lens' AddHeldAccountsRequest [Text]
aharEmails
= lens _aharEmails (\ s a -> s{_aharEmails = a}) .
_Default
. _Coerce
instance FromJSON AddHeldAccountsRequest where
parseJSON
= withObject "AddHeldAccountsRequest"
(\ o ->
AddHeldAccountsRequest' <$>
(o .:? "accountIds" .!= mempty) <*>
(o .:? "emails" .!= mempty))
instance ToJSON AddHeldAccountsRequest where
toJSON AddHeldAccountsRequest'{..}
= object
(catMaybes
[("accountIds" .=) <$> _aharAccountIds,
("emails" .=) <$> _aharEmails])
data CorpusQuery =
CorpusQuery'
{ _cqGroupsQuery :: !(Maybe HeldGroupsQuery)
, _cqDriveQuery :: !(Maybe HeldDriveQuery)
, _cqHangoutsChatQuery :: !(Maybe HeldHangoutsChatQuery)
, _cqMailQuery :: !(Maybe HeldMailQuery)
}
deriving (Eq, Show, Data, Typeable, Generic)
corpusQuery
:: CorpusQuery
corpusQuery =
CorpusQuery'
{ _cqGroupsQuery = Nothing
, _cqDriveQuery = Nothing
, _cqHangoutsChatQuery = Nothing
, _cqMailQuery = Nothing
}
cqGroupsQuery :: Lens' CorpusQuery (Maybe HeldGroupsQuery)
cqGroupsQuery
= lens _cqGroupsQuery
(\ s a -> s{_cqGroupsQuery = a})
cqDriveQuery :: Lens' CorpusQuery (Maybe HeldDriveQuery)
cqDriveQuery
= lens _cqDriveQuery (\ s a -> s{_cqDriveQuery = a})
cqHangoutsChatQuery :: Lens' CorpusQuery (Maybe HeldHangoutsChatQuery)
cqHangoutsChatQuery
= lens _cqHangoutsChatQuery
(\ s a -> s{_cqHangoutsChatQuery = a})
cqMailQuery :: Lens' CorpusQuery (Maybe HeldMailQuery)
cqMailQuery
= lens _cqMailQuery (\ s a -> s{_cqMailQuery = a})
instance FromJSON CorpusQuery where
parseJSON
= withObject "CorpusQuery"
(\ o ->
CorpusQuery' <$>
(o .:? "groupsQuery") <*> (o .:? "driveQuery") <*>
(o .:? "hangoutsChatQuery")
<*> (o .:? "mailQuery"))
instance ToJSON CorpusQuery where
toJSON CorpusQuery'{..}
= object
(catMaybes
[("groupsQuery" .=) <$> _cqGroupsQuery,
("driveQuery" .=) <$> _cqDriveQuery,
("hangoutsChatQuery" .=) <$> _cqHangoutsChatQuery,
("mailQuery" .=) <$> _cqMailQuery])
newtype OrgUnitInfo =
OrgUnitInfo'
{ _ouiOrgUnitId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
orgUnitInfo
:: OrgUnitInfo
orgUnitInfo = OrgUnitInfo' {_ouiOrgUnitId = Nothing}
ouiOrgUnitId :: Lens' OrgUnitInfo (Maybe Text)
ouiOrgUnitId
= lens _ouiOrgUnitId (\ s a -> s{_ouiOrgUnitId = a})
instance FromJSON OrgUnitInfo where
parseJSON
= withObject "OrgUnitInfo"
(\ o -> OrgUnitInfo' <$> (o .:? "orgUnitId"))
instance ToJSON OrgUnitInfo where
toJSON OrgUnitInfo'{..}
= object
(catMaybes [("orgUnitId" .=) <$> _ouiOrgUnitId])
newtype RemoveHeldAccountsResponse =
RemoveHeldAccountsResponse'
{ _rharStatuses :: Maybe [Status]
}
deriving (Eq, Show, Data, Typeable, Generic)
removeHeldAccountsResponse
:: RemoveHeldAccountsResponse
removeHeldAccountsResponse =
RemoveHeldAccountsResponse' {_rharStatuses = Nothing}
rharStatuses :: Lens' RemoveHeldAccountsResponse [Status]
rharStatuses
= lens _rharStatuses (\ s a -> s{_rharStatuses = a})
. _Default
. _Coerce
instance FromJSON RemoveHeldAccountsResponse where
parseJSON
= withObject "RemoveHeldAccountsResponse"
(\ o ->
RemoveHeldAccountsResponse' <$>
(o .:? "statuses" .!= mempty))
instance ToJSON RemoveHeldAccountsResponse where
toJSON RemoveHeldAccountsResponse'{..}
= object
(catMaybes [("statuses" .=) <$> _rharStatuses])
data Empty =
Empty'
deriving (Eq, Show, Data, Typeable, Generic)
empty
:: Empty
empty = Empty'
instance FromJSON Empty where
parseJSON = withObject "Empty" (\ o -> pure Empty')
instance ToJSON Empty where
toJSON = const emptyObject
data ExportStats =
ExportStats'
{ _esTotalArtifactCount :: !(Maybe (Textual Int64))
, _esSizeInBytes :: !(Maybe (Textual Int64))
, _esExportedArtifactCount :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
exportStats
:: ExportStats
exportStats =
ExportStats'
{ _esTotalArtifactCount = Nothing
, _esSizeInBytes = Nothing
, _esExportedArtifactCount = Nothing
}
esTotalArtifactCount :: Lens' ExportStats (Maybe Int64)
esTotalArtifactCount
= lens _esTotalArtifactCount
(\ s a -> s{_esTotalArtifactCount = a})
. mapping _Coerce
esSizeInBytes :: Lens' ExportStats (Maybe Int64)
esSizeInBytes
= lens _esSizeInBytes
(\ s a -> s{_esSizeInBytes = a})
. mapping _Coerce
esExportedArtifactCount :: Lens' ExportStats (Maybe Int64)
esExportedArtifactCount
= lens _esExportedArtifactCount
(\ s a -> s{_esExportedArtifactCount = a})
. mapping _Coerce
instance FromJSON ExportStats where
parseJSON
= withObject "ExportStats"
(\ o ->
ExportStats' <$>
(o .:? "totalArtifactCount") <*>
(o .:? "sizeInBytes")
<*> (o .:? "exportedArtifactCount"))
instance ToJSON ExportStats where
toJSON ExportStats'{..}
= object
(catMaybes
[("totalArtifactCount" .=) <$> _esTotalArtifactCount,
("sizeInBytes" .=) <$> _esSizeInBytes,
("exportedArtifactCount" .=) <$>
_esExportedArtifactCount])
newtype HangoutsChatInfo =
HangoutsChatInfo'
{ _hciRoomId :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
hangoutsChatInfo
:: HangoutsChatInfo
hangoutsChatInfo = HangoutsChatInfo' {_hciRoomId = Nothing}
hciRoomId :: Lens' HangoutsChatInfo [Text]
hciRoomId
= lens _hciRoomId (\ s a -> s{_hciRoomId = a}) .
_Default
. _Coerce
instance FromJSON HangoutsChatInfo where
parseJSON
= withObject "HangoutsChatInfo"
(\ o ->
HangoutsChatInfo' <$> (o .:? "roomId" .!= mempty))
instance ToJSON HangoutsChatInfo where
toJSON HangoutsChatInfo'{..}
= object (catMaybes [("roomId" .=) <$> _hciRoomId])
newtype RemoveHeldAccountsRequest =
RemoveHeldAccountsRequest'
{ _rharAccountIds :: Maybe [Text]
}
deriving (Eq, Show, Data, Typeable, Generic)
removeHeldAccountsRequest
:: RemoveHeldAccountsRequest
removeHeldAccountsRequest =
RemoveHeldAccountsRequest' {_rharAccountIds = Nothing}
rharAccountIds :: Lens' RemoveHeldAccountsRequest [Text]
rharAccountIds
= lens _rharAccountIds
(\ s a -> s{_rharAccountIds = a})
. _Default
. _Coerce
instance FromJSON RemoveHeldAccountsRequest where
parseJSON
= withObject "RemoveHeldAccountsRequest"
(\ o ->
RemoveHeldAccountsRequest' <$>
(o .:? "accountIds" .!= mempty))
instance ToJSON RemoveHeldAccountsRequest where
toJSON RemoveHeldAccountsRequest'{..}
= object
(catMaybes [("accountIds" .=) <$> _rharAccountIds])
data ListSavedQueriesResponse =
ListSavedQueriesResponse'
{ _lsqrNextPageToken :: !(Maybe Text)
, _lsqrSavedQueries :: !(Maybe [SavedQuery])
}
deriving (Eq, Show, Data, Typeable, Generic)
listSavedQueriesResponse
:: ListSavedQueriesResponse
listSavedQueriesResponse =
ListSavedQueriesResponse'
{_lsqrNextPageToken = Nothing, _lsqrSavedQueries = Nothing}
lsqrNextPageToken :: Lens' ListSavedQueriesResponse (Maybe Text)
lsqrNextPageToken
= lens _lsqrNextPageToken
(\ s a -> s{_lsqrNextPageToken = a})
lsqrSavedQueries :: Lens' ListSavedQueriesResponse [SavedQuery]
lsqrSavedQueries
= lens _lsqrSavedQueries
(\ s a -> s{_lsqrSavedQueries = a})
. _Default
. _Coerce
instance FromJSON ListSavedQueriesResponse where
parseJSON
= withObject "ListSavedQueriesResponse"
(\ o ->
ListSavedQueriesResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "savedQueries" .!= mempty))
instance ToJSON ListSavedQueriesResponse where
toJSON ListSavedQueriesResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lsqrNextPageToken,
("savedQueries" .=) <$> _lsqrSavedQueries])
data UndeleteMatterRequest =
UndeleteMatterRequest'
deriving (Eq, Show, Data, Typeable, Generic)
undeleteMatterRequest
:: UndeleteMatterRequest
undeleteMatterRequest = UndeleteMatterRequest'
instance FromJSON UndeleteMatterRequest where
parseJSON
= withObject "UndeleteMatterRequest"
(\ o -> pure UndeleteMatterRequest')
instance ToJSON UndeleteMatterRequest where
toJSON = const emptyObject
newtype HeldDriveQuery =
HeldDriveQuery'
{ _hdqIncludeTeamDriveFiles :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
heldDriveQuery
:: HeldDriveQuery
heldDriveQuery = HeldDriveQuery' {_hdqIncludeTeamDriveFiles = Nothing}
hdqIncludeTeamDriveFiles :: Lens' HeldDriveQuery (Maybe Bool)
hdqIncludeTeamDriveFiles
= lens _hdqIncludeTeamDriveFiles
(\ s a -> s{_hdqIncludeTeamDriveFiles = a})
instance FromJSON HeldDriveQuery where
parseJSON
= withObject "HeldDriveQuery"
(\ o ->
HeldDriveQuery' <$> (o .:? "includeTeamDriveFiles"))
instance ToJSON HeldDriveQuery where
toJSON HeldDriveQuery'{..}
= object
(catMaybes
[("includeTeamDriveFiles" .=) <$>
_hdqIncludeTeamDriveFiles])
newtype HangoutsChatOptions =
HangoutsChatOptions'
{ _hcoIncludeRooms :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
hangoutsChatOptions
:: HangoutsChatOptions
hangoutsChatOptions = HangoutsChatOptions' {_hcoIncludeRooms = Nothing}
hcoIncludeRooms :: Lens' HangoutsChatOptions (Maybe Bool)
hcoIncludeRooms
= lens _hcoIncludeRooms
(\ s a -> s{_hcoIncludeRooms = a})
instance FromJSON HangoutsChatOptions where
parseJSON
= withObject "HangoutsChatOptions"
(\ o ->
HangoutsChatOptions' <$> (o .:? "includeRooms"))
instance ToJSON HangoutsChatOptions where
toJSON HangoutsChatOptions'{..}
= object
(catMaybes
[("includeRooms" .=) <$> _hcoIncludeRooms])
data AddMatterPermissionsRequest =
AddMatterPermissionsRequest'
{ _amprSendEmails :: !(Maybe Bool)
, _amprCcMe :: !(Maybe Bool)
, _amprMatterPermission :: !(Maybe MatterPermission)
}
deriving (Eq, Show, Data, Typeable, Generic)
addMatterPermissionsRequest
:: AddMatterPermissionsRequest
addMatterPermissionsRequest =
AddMatterPermissionsRequest'
{ _amprSendEmails = Nothing
, _amprCcMe = Nothing
, _amprMatterPermission = Nothing
}
amprSendEmails :: Lens' AddMatterPermissionsRequest (Maybe Bool)
amprSendEmails
= lens _amprSendEmails
(\ s a -> s{_amprSendEmails = a})
amprCcMe :: Lens' AddMatterPermissionsRequest (Maybe Bool)
amprCcMe = lens _amprCcMe (\ s a -> s{_amprCcMe = a})
amprMatterPermission :: Lens' AddMatterPermissionsRequest (Maybe MatterPermission)
amprMatterPermission
= lens _amprMatterPermission
(\ s a -> s{_amprMatterPermission = a})
instance FromJSON AddMatterPermissionsRequest where
parseJSON
= withObject "AddMatterPermissionsRequest"
(\ o ->
AddMatterPermissionsRequest' <$>
(o .:? "sendEmails") <*> (o .:? "ccMe") <*>
(o .:? "matterPermission"))
instance ToJSON AddMatterPermissionsRequest where
toJSON AddMatterPermissionsRequest'{..}
= object
(catMaybes
[("sendEmails" .=) <$> _amprSendEmails,
("ccMe" .=) <$> _amprCcMe,
("matterPermission" .=) <$> _amprMatterPermission])
newtype StatusDetailsItem =
StatusDetailsItem'
{ _sdiAddtional :: HashMap Text JSONValue
}
deriving (Eq, Show, Data, Typeable, Generic)
statusDetailsItem
:: HashMap Text JSONValue
-> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}
sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue)
sdiAddtional
= lens _sdiAddtional (\ s a -> s{_sdiAddtional = a})
. _Coerce
instance FromJSON StatusDetailsItem where
parseJSON
= withObject "StatusDetailsItem"
(\ o -> StatusDetailsItem' <$> (parseJSONObject o))
instance ToJSON StatusDetailsItem where
toJSON = toJSON . _sdiAddtional
data Matter =
Matter'
{ _mState :: !(Maybe MatterState)
, _mMatterPermissions :: !(Maybe [MatterPermission])
, _mMatterId :: !(Maybe Text)
, _mName :: !(Maybe Text)
, _mDescription :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
matter
:: Matter
matter =
Matter'
{ _mState = Nothing
, _mMatterPermissions = Nothing
, _mMatterId = Nothing
, _mName = Nothing
, _mDescription = Nothing
}
mState :: Lens' Matter (Maybe MatterState)
mState = lens _mState (\ s a -> s{_mState = a})
mMatterPermissions :: Lens' Matter [MatterPermission]
mMatterPermissions
= lens _mMatterPermissions
(\ s a -> s{_mMatterPermissions = a})
. _Default
. _Coerce
mMatterId :: Lens' Matter (Maybe Text)
mMatterId
= lens _mMatterId (\ s a -> s{_mMatterId = a})
mName :: Lens' Matter (Maybe Text)
mName = lens _mName (\ s a -> s{_mName = a})
mDescription :: Lens' Matter (Maybe Text)
mDescription
= lens _mDescription (\ s a -> s{_mDescription = a})
instance FromJSON Matter where
parseJSON
= withObject "Matter"
(\ o ->
Matter' <$>
(o .:? "state") <*>
(o .:? "matterPermissions" .!= mempty)
<*> (o .:? "matterId")
<*> (o .:? "name")
<*> (o .:? "description"))
instance ToJSON Matter where
toJSON Matter'{..}
= object
(catMaybes
[("state" .=) <$> _mState,
("matterPermissions" .=) <$> _mMatterPermissions,
("matterId" .=) <$> _mMatterId,
("name" .=) <$> _mName,
("description" .=) <$> _mDescription])
newtype CloseMatterResponse =
CloseMatterResponse'
{ _cmrMatter :: Maybe Matter
}
deriving (Eq, Show, Data, Typeable, Generic)
closeMatterResponse
:: CloseMatterResponse
closeMatterResponse = CloseMatterResponse' {_cmrMatter = Nothing}
cmrMatter :: Lens' CloseMatterResponse (Maybe Matter)
cmrMatter
= lens _cmrMatter (\ s a -> s{_cmrMatter = a})
instance FromJSON CloseMatterResponse where
parseJSON
= withObject "CloseMatterResponse"
(\ o -> CloseMatterResponse' <$> (o .:? "matter"))
instance ToJSON CloseMatterResponse where
toJSON CloseMatterResponse'{..}
= object (catMaybes [("matter" .=) <$> _cmrMatter])
data HeldMailQuery =
HeldMailQuery'
{ _hmqStartTime :: !(Maybe DateTime')
, _hmqTerms :: !(Maybe Text)
, _hmqEndTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
heldMailQuery
:: HeldMailQuery
heldMailQuery =
HeldMailQuery'
{_hmqStartTime = Nothing, _hmqTerms = Nothing, _hmqEndTime = Nothing}
hmqStartTime :: Lens' HeldMailQuery (Maybe UTCTime)
hmqStartTime
= lens _hmqStartTime (\ s a -> s{_hmqStartTime = a})
. mapping _DateTime
hmqTerms :: Lens' HeldMailQuery (Maybe Text)
hmqTerms = lens _hmqTerms (\ s a -> s{_hmqTerms = a})
hmqEndTime :: Lens' HeldMailQuery (Maybe UTCTime)
hmqEndTime
= lens _hmqEndTime (\ s a -> s{_hmqEndTime = a}) .
mapping _DateTime
instance FromJSON HeldMailQuery where
parseJSON
= withObject "HeldMailQuery"
(\ o ->
HeldMailQuery' <$>
(o .:? "startTime") <*> (o .:? "terms") <*>
(o .:? "endTime"))
instance ToJSON HeldMailQuery where
toJSON HeldMailQuery'{..}
= object
(catMaybes
[("startTime" .=) <$> _hmqStartTime,
("terms" .=) <$> _hmqTerms,
("endTime" .=) <$> _hmqEndTime])
newtype ListHeldAccountsResponse =
ListHeldAccountsResponse'
{ _lharAccounts :: Maybe [HeldAccount]
}
deriving (Eq, Show, Data, Typeable, Generic)
listHeldAccountsResponse
:: ListHeldAccountsResponse
listHeldAccountsResponse = ListHeldAccountsResponse' {_lharAccounts = Nothing}
lharAccounts :: Lens' ListHeldAccountsResponse [HeldAccount]
lharAccounts
= lens _lharAccounts (\ s a -> s{_lharAccounts = a})
. _Default
. _Coerce
instance FromJSON ListHeldAccountsResponse where
parseJSON
= withObject "ListHeldAccountsResponse"
(\ o ->
ListHeldAccountsResponse' <$>
(o .:? "accounts" .!= mempty))
instance ToJSON ListHeldAccountsResponse where
toJSON ListHeldAccountsResponse'{..}
= object
(catMaybes [("accounts" .=) <$> _lharAccounts])
data ListExportsResponse =
ListExportsResponse'
{ _lerNextPageToken :: !(Maybe Text)
, _lerExports :: !(Maybe [Export])
}
deriving (Eq, Show, Data, Typeable, Generic)
listExportsResponse
:: ListExportsResponse
listExportsResponse =
ListExportsResponse' {_lerNextPageToken = Nothing, _lerExports = Nothing}
lerNextPageToken :: Lens' ListExportsResponse (Maybe Text)
lerNextPageToken
= lens _lerNextPageToken
(\ s a -> s{_lerNextPageToken = a})
lerExports :: Lens' ListExportsResponse [Export]
lerExports
= lens _lerExports (\ s a -> s{_lerExports = a}) .
_Default
. _Coerce
instance FromJSON ListExportsResponse where
parseJSON
= withObject "ListExportsResponse"
(\ o ->
ListExportsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "exports" .!= mempty))
instance ToJSON ListExportsResponse where
toJSON ListExportsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lerNextPageToken,
("exports" .=) <$> _lerExports])
data HeldOrgUnit =
HeldOrgUnit'
{ _houHoldTime :: !(Maybe DateTime')
, _houOrgUnitId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
heldOrgUnit
:: HeldOrgUnit
heldOrgUnit = HeldOrgUnit' {_houHoldTime = Nothing, _houOrgUnitId = Nothing}
houHoldTime :: Lens' HeldOrgUnit (Maybe UTCTime)
houHoldTime
= lens _houHoldTime (\ s a -> s{_houHoldTime = a}) .
mapping _DateTime
houOrgUnitId :: Lens' HeldOrgUnit (Maybe Text)
houOrgUnitId
= lens _houOrgUnitId (\ s a -> s{_houOrgUnitId = a})
instance FromJSON HeldOrgUnit where
parseJSON
= withObject "HeldOrgUnit"
(\ o ->
HeldOrgUnit' <$>
(o .:? "holdTime") <*> (o .:? "orgUnitId"))
instance ToJSON HeldOrgUnit where
toJSON HeldOrgUnit'{..}
= object
(catMaybes
[("holdTime" .=) <$> _houHoldTime,
("orgUnitId" .=) <$> _houOrgUnitId])
data ListMattersResponse =
ListMattersResponse'
{ _lmrNextPageToken :: !(Maybe Text)
, _lmrMatters :: !(Maybe [Matter])
}
deriving (Eq, Show, Data, Typeable, Generic)
listMattersResponse
:: ListMattersResponse
listMattersResponse =
ListMattersResponse' {_lmrNextPageToken = Nothing, _lmrMatters = Nothing}
lmrNextPageToken :: Lens' ListMattersResponse (Maybe Text)
lmrNextPageToken
= lens _lmrNextPageToken
(\ s a -> s{_lmrNextPageToken = a})
lmrMatters :: Lens' ListMattersResponse [Matter]
lmrMatters
= lens _lmrMatters (\ s a -> s{_lmrMatters = a}) .
_Default
. _Coerce
instance FromJSON ListMattersResponse where
parseJSON
= withObject "ListMattersResponse"
(\ o ->
ListMattersResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "matters" .!= mempty))
instance ToJSON ListMattersResponse where
toJSON ListMattersResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lmrNextPageToken,
("matters" .=) <$> _lmrMatters])
data ReopenMatterRequest =
ReopenMatterRequest'
deriving (Eq, Show, Data, Typeable, Generic)
reopenMatterRequest
:: ReopenMatterRequest
reopenMatterRequest = ReopenMatterRequest'
instance FromJSON ReopenMatterRequest where
parseJSON
= withObject "ReopenMatterRequest"
(\ o -> pure ReopenMatterRequest')
instance ToJSON ReopenMatterRequest where
toJSON = const emptyObject
newtype RemoveMatterPermissionsRequest =
RemoveMatterPermissionsRequest'
{ _rmprAccountId :: Maybe Text
}
deriving (Eq, Show, Data, Typeable, Generic)
removeMatterPermissionsRequest
:: RemoveMatterPermissionsRequest
removeMatterPermissionsRequest =
RemoveMatterPermissionsRequest' {_rmprAccountId = Nothing}
rmprAccountId :: Lens' RemoveMatterPermissionsRequest (Maybe Text)
rmprAccountId
= lens _rmprAccountId
(\ s a -> s{_rmprAccountId = a})
instance FromJSON RemoveMatterPermissionsRequest
where
parseJSON
= withObject "RemoveMatterPermissionsRequest"
(\ o ->
RemoveMatterPermissionsRequest' <$>
(o .:? "accountId"))
instance ToJSON RemoveMatterPermissionsRequest where
toJSON RemoveMatterPermissionsRequest'{..}
= object
(catMaybes [("accountId" .=) <$> _rmprAccountId])
data ExportOptions =
ExportOptions'
{ _eoHangoutsChatOptions :: !(Maybe HangoutsChatExportOptions)
, _eoDriveOptions :: !(Maybe DriveExportOptions)
, _eoGroupsOptions :: !(Maybe GroupsExportOptions)
, _eoRegion :: !(Maybe ExportOptionsRegion)
, _eoMailOptions :: !(Maybe MailExportOptions)
}
deriving (Eq, Show, Data, Typeable, Generic)
exportOptions
:: ExportOptions
exportOptions =
ExportOptions'
{ _eoHangoutsChatOptions = Nothing
, _eoDriveOptions = Nothing
, _eoGroupsOptions = Nothing
, _eoRegion = Nothing
, _eoMailOptions = Nothing
}
eoHangoutsChatOptions :: Lens' ExportOptions (Maybe HangoutsChatExportOptions)
eoHangoutsChatOptions
= lens _eoHangoutsChatOptions
(\ s a -> s{_eoHangoutsChatOptions = a})
eoDriveOptions :: Lens' ExportOptions (Maybe DriveExportOptions)
eoDriveOptions
= lens _eoDriveOptions
(\ s a -> s{_eoDriveOptions = a})
eoGroupsOptions :: Lens' ExportOptions (Maybe GroupsExportOptions)
eoGroupsOptions
= lens _eoGroupsOptions
(\ s a -> s{_eoGroupsOptions = a})
eoRegion :: Lens' ExportOptions (Maybe ExportOptionsRegion)
eoRegion = lens _eoRegion (\ s a -> s{_eoRegion = a})
eoMailOptions :: Lens' ExportOptions (Maybe MailExportOptions)
eoMailOptions
= lens _eoMailOptions
(\ s a -> s{_eoMailOptions = a})
instance FromJSON ExportOptions where
parseJSON
= withObject "ExportOptions"
(\ o ->
ExportOptions' <$>
(o .:? "hangoutsChatOptions") <*>
(o .:? "driveOptions")
<*> (o .:? "groupsOptions")
<*> (o .:? "region")
<*> (o .:? "mailOptions"))
instance ToJSON ExportOptions where
toJSON ExportOptions'{..}
= object
(catMaybes
[("hangoutsChatOptions" .=) <$>
_eoHangoutsChatOptions,
("driveOptions" .=) <$> _eoDriveOptions,
("groupsOptions" .=) <$> _eoGroupsOptions,
("region" .=) <$> _eoRegion,
("mailOptions" .=) <$> _eoMailOptions])
data CloseMatterRequest =
CloseMatterRequest'
deriving (Eq, Show, Data, Typeable, Generic)
closeMatterRequest
:: CloseMatterRequest
closeMatterRequest = CloseMatterRequest'
instance FromJSON CloseMatterRequest where
parseJSON
= withObject "CloseMatterRequest"
(\ o -> pure CloseMatterRequest')
instance ToJSON CloseMatterRequest where
toJSON = const emptyObject
data DriveOptions =
DriveOptions'
{ _doIncludeTeamDrives :: !(Maybe Bool)
, _doVersionDate :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
driveOptions
:: DriveOptions
driveOptions =
DriveOptions' {_doIncludeTeamDrives = Nothing, _doVersionDate = Nothing}
doIncludeTeamDrives :: Lens' DriveOptions (Maybe Bool)
doIncludeTeamDrives
= lens _doIncludeTeamDrives
(\ s a -> s{_doIncludeTeamDrives = a})
doVersionDate :: Lens' DriveOptions (Maybe UTCTime)
doVersionDate
= lens _doVersionDate
(\ s a -> s{_doVersionDate = a})
. mapping _DateTime
instance FromJSON DriveOptions where
parseJSON
= withObject "DriveOptions"
(\ o ->
DriveOptions' <$>
(o .:? "includeTeamDrives") <*>
(o .:? "versionDate"))
instance ToJSON DriveOptions where
toJSON DriveOptions'{..}
= object
(catMaybes
[("includeTeamDrives" .=) <$> _doIncludeTeamDrives,
("versionDate" .=) <$> _doVersionDate])
data AddHeldAccountResult =
AddHeldAccountResult'
{ _aharStatus :: !(Maybe Status)
, _aharAccount :: !(Maybe HeldAccount)
}
deriving (Eq, Show, Data, Typeable, Generic)
addHeldAccountResult
:: AddHeldAccountResult
addHeldAccountResult =
AddHeldAccountResult' {_aharStatus = Nothing, _aharAccount = Nothing}
aharStatus :: Lens' AddHeldAccountResult (Maybe Status)
aharStatus
= lens _aharStatus (\ s a -> s{_aharStatus = a})
aharAccount :: Lens' AddHeldAccountResult (Maybe HeldAccount)
aharAccount
= lens _aharAccount (\ s a -> s{_aharAccount = a})
instance FromJSON AddHeldAccountResult where
parseJSON
= withObject "AddHeldAccountResult"
(\ o ->
AddHeldAccountResult' <$>
(o .:? "status") <*> (o .:? "account"))
instance ToJSON AddHeldAccountResult where
toJSON AddHeldAccountResult'{..}
= object
(catMaybes
[("status" .=) <$> _aharStatus,
("account" .=) <$> _aharAccount])
data SavedQuery =
SavedQuery'
{ _sqSavedQueryId :: !(Maybe Text)
, _sqMatterId :: !(Maybe Text)
, _sqQuery :: !(Maybe Query)
, _sqDisplayName :: !(Maybe Text)
, _sqCreateTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
savedQuery
:: SavedQuery
savedQuery =
SavedQuery'
{ _sqSavedQueryId = Nothing
, _sqMatterId = Nothing
, _sqQuery = Nothing
, _sqDisplayName = Nothing
, _sqCreateTime = Nothing
}
sqSavedQueryId :: Lens' SavedQuery (Maybe Text)
sqSavedQueryId
= lens _sqSavedQueryId
(\ s a -> s{_sqSavedQueryId = a})
sqMatterId :: Lens' SavedQuery (Maybe Text)
sqMatterId
= lens _sqMatterId (\ s a -> s{_sqMatterId = a})
sqQuery :: Lens' SavedQuery (Maybe Query)
sqQuery = lens _sqQuery (\ s a -> s{_sqQuery = a})
sqDisplayName :: Lens' SavedQuery (Maybe Text)
sqDisplayName
= lens _sqDisplayName
(\ s a -> s{_sqDisplayName = a})
sqCreateTime :: Lens' SavedQuery (Maybe UTCTime)
sqCreateTime
= lens _sqCreateTime (\ s a -> s{_sqCreateTime = a})
. mapping _DateTime
instance FromJSON SavedQuery where
parseJSON
= withObject "SavedQuery"
(\ o ->
SavedQuery' <$>
(o .:? "savedQueryId") <*> (o .:? "matterId") <*>
(o .:? "query")
<*> (o .:? "displayName")
<*> (o .:? "createTime"))
instance ToJSON SavedQuery where
toJSON SavedQuery'{..}
= object
(catMaybes
[("savedQueryId" .=) <$> _sqSavedQueryId,
("matterId" .=) <$> _sqMatterId,
("query" .=) <$> _sqQuery,
("displayName" .=) <$> _sqDisplayName,
("createTime" .=) <$> _sqCreateTime])
data Hold =
Hold'
{ _hOrgUnit :: !(Maybe HeldOrgUnit)
, _hHoldId :: !(Maybe Text)
, _hAccounts :: !(Maybe [HeldAccount])
, _hUpdateTime :: !(Maybe DateTime')
, _hName :: !(Maybe Text)
, _hQuery :: !(Maybe CorpusQuery)
, _hCorpus :: !(Maybe HoldCorpus)
}
deriving (Eq, Show, Data, Typeable, Generic)
hold
:: Hold
hold =
Hold'
{ _hOrgUnit = Nothing
, _hHoldId = Nothing
, _hAccounts = Nothing
, _hUpdateTime = Nothing
, _hName = Nothing
, _hQuery = Nothing
, _hCorpus = Nothing
}
hOrgUnit :: Lens' Hold (Maybe HeldOrgUnit)
hOrgUnit = lens _hOrgUnit (\ s a -> s{_hOrgUnit = a})
hHoldId :: Lens' Hold (Maybe Text)
hHoldId = lens _hHoldId (\ s a -> s{_hHoldId = a})
hAccounts :: Lens' Hold [HeldAccount]
hAccounts
= lens _hAccounts (\ s a -> s{_hAccounts = a}) .
_Default
. _Coerce
hUpdateTime :: Lens' Hold (Maybe UTCTime)
hUpdateTime
= lens _hUpdateTime (\ s a -> s{_hUpdateTime = a}) .
mapping _DateTime
hName :: Lens' Hold (Maybe Text)
hName = lens _hName (\ s a -> s{_hName = a})
hQuery :: Lens' Hold (Maybe CorpusQuery)
hQuery = lens _hQuery (\ s a -> s{_hQuery = a})
hCorpus :: Lens' Hold (Maybe HoldCorpus)
hCorpus = lens _hCorpus (\ s a -> s{_hCorpus = a})
instance FromJSON Hold where
parseJSON
= withObject "Hold"
(\ o ->
Hold' <$>
(o .:? "orgUnit") <*> (o .:? "holdId") <*>
(o .:? "accounts" .!= mempty)
<*> (o .:? "updateTime")
<*> (o .:? "name")
<*> (o .:? "query")
<*> (o .:? "corpus"))
instance ToJSON Hold where
toJSON Hold'{..}
= object
(catMaybes
[("orgUnit" .=) <$> _hOrgUnit,
("holdId" .=) <$> _hHoldId,
("accounts" .=) <$> _hAccounts,
("updateTime" .=) <$> _hUpdateTime,
("name" .=) <$> _hName, ("query" .=) <$> _hQuery,
("corpus" .=) <$> _hCorpus])
data Query =
Query'
{ _qAccountInfo :: !(Maybe AccountInfo)
, _qTeamDriveInfo :: !(Maybe TeamDriveInfo)
, _qOrgUnitInfo :: !(Maybe OrgUnitInfo)
, _qStartTime :: !(Maybe DateTime')
, _qTerms :: !(Maybe Text)
, _qHangoutsChatInfo :: !(Maybe HangoutsChatInfo)
, _qHangoutsChatOptions :: !(Maybe HangoutsChatOptions)
, _qDriveOptions :: !(Maybe DriveOptions)
, _qEndTime :: !(Maybe DateTime')
, _qDataScope :: !(Maybe QueryDataScope)
, _qCorpus :: !(Maybe QueryCorpus)
, _qTimeZone :: !(Maybe Text)
, _qMailOptions :: !(Maybe MailOptions)
, _qSearchMethod :: !(Maybe QuerySearchMethod)
}
deriving (Eq, Show, Data, Typeable, Generic)
query
:: Query
query =
Query'
{ _qAccountInfo = Nothing
, _qTeamDriveInfo = Nothing
, _qOrgUnitInfo = Nothing
, _qStartTime = Nothing
, _qTerms = Nothing
, _qHangoutsChatInfo = Nothing
, _qHangoutsChatOptions = Nothing
, _qDriveOptions = Nothing
, _qEndTime = Nothing
, _qDataScope = Nothing
, _qCorpus = Nothing
, _qTimeZone = Nothing
, _qMailOptions = Nothing
, _qSearchMethod = Nothing
}
qAccountInfo :: Lens' Query (Maybe AccountInfo)
qAccountInfo
= lens _qAccountInfo (\ s a -> s{_qAccountInfo = a})
qTeamDriveInfo :: Lens' Query (Maybe TeamDriveInfo)
qTeamDriveInfo
= lens _qTeamDriveInfo
(\ s a -> s{_qTeamDriveInfo = a})
qOrgUnitInfo :: Lens' Query (Maybe OrgUnitInfo)
qOrgUnitInfo
= lens _qOrgUnitInfo (\ s a -> s{_qOrgUnitInfo = a})
qStartTime :: Lens' Query (Maybe UTCTime)
qStartTime
= lens _qStartTime (\ s a -> s{_qStartTime = a}) .
mapping _DateTime
qTerms :: Lens' Query (Maybe Text)
qTerms = lens _qTerms (\ s a -> s{_qTerms = a})
qHangoutsChatInfo :: Lens' Query (Maybe HangoutsChatInfo)
qHangoutsChatInfo
= lens _qHangoutsChatInfo
(\ s a -> s{_qHangoutsChatInfo = a})
qHangoutsChatOptions :: Lens' Query (Maybe HangoutsChatOptions)
qHangoutsChatOptions
= lens _qHangoutsChatOptions
(\ s a -> s{_qHangoutsChatOptions = a})
qDriveOptions :: Lens' Query (Maybe DriveOptions)
qDriveOptions
= lens _qDriveOptions
(\ s a -> s{_qDriveOptions = a})
qEndTime :: Lens' Query (Maybe UTCTime)
qEndTime
= lens _qEndTime (\ s a -> s{_qEndTime = a}) .
mapping _DateTime
qDataScope :: Lens' Query (Maybe QueryDataScope)
qDataScope
= lens _qDataScope (\ s a -> s{_qDataScope = a})
qCorpus :: Lens' Query (Maybe QueryCorpus)
qCorpus = lens _qCorpus (\ s a -> s{_qCorpus = a})
qTimeZone :: Lens' Query (Maybe Text)
qTimeZone
= lens _qTimeZone (\ s a -> s{_qTimeZone = a})
qMailOptions :: Lens' Query (Maybe MailOptions)
qMailOptions
= lens _qMailOptions (\ s a -> s{_qMailOptions = a})
qSearchMethod :: Lens' Query (Maybe QuerySearchMethod)
qSearchMethod
= lens _qSearchMethod
(\ s a -> s{_qSearchMethod = a})
instance FromJSON Query where
parseJSON
= withObject "Query"
(\ o ->
Query' <$>
(o .:? "accountInfo") <*> (o .:? "teamDriveInfo") <*>
(o .:? "orgUnitInfo")
<*> (o .:? "startTime")
<*> (o .:? "terms")
<*> (o .:? "hangoutsChatInfo")
<*> (o .:? "hangoutsChatOptions")
<*> (o .:? "driveOptions")
<*> (o .:? "endTime")
<*> (o .:? "dataScope")
<*> (o .:? "corpus")
<*> (o .:? "timeZone")
<*> (o .:? "mailOptions")
<*> (o .:? "searchMethod"))
instance ToJSON Query where
toJSON Query'{..}
= object
(catMaybes
[("accountInfo" .=) <$> _qAccountInfo,
("teamDriveInfo" .=) <$> _qTeamDriveInfo,
("orgUnitInfo" .=) <$> _qOrgUnitInfo,
("startTime" .=) <$> _qStartTime,
("terms" .=) <$> _qTerms,
("hangoutsChatInfo" .=) <$> _qHangoutsChatInfo,
("hangoutsChatOptions" .=) <$> _qHangoutsChatOptions,
("driveOptions" .=) <$> _qDriveOptions,
("endTime" .=) <$> _qEndTime,
("dataScope" .=) <$> _qDataScope,
("corpus" .=) <$> _qCorpus,
("timeZone" .=) <$> _qTimeZone,
("mailOptions" .=) <$> _qMailOptions,
("searchMethod" .=) <$> _qSearchMethod])
newtype AddHeldAccountsResponse =
AddHeldAccountsResponse'
{ _aharResponses :: Maybe [AddHeldAccountResult]
}
deriving (Eq, Show, Data, Typeable, Generic)
addHeldAccountsResponse
:: AddHeldAccountsResponse
addHeldAccountsResponse = AddHeldAccountsResponse' {_aharResponses = Nothing}
aharResponses :: Lens' AddHeldAccountsResponse [AddHeldAccountResult]
aharResponses
= lens _aharResponses
(\ s a -> s{_aharResponses = a})
. _Default
. _Coerce
instance FromJSON AddHeldAccountsResponse where
parseJSON
= withObject "AddHeldAccountsResponse"
(\ o ->
AddHeldAccountsResponse' <$>
(o .:? "responses" .!= mempty))
instance ToJSON AddHeldAccountsResponse where
toJSON AddHeldAccountsResponse'{..}
= object
(catMaybes [("responses" .=) <$> _aharResponses])
data MailExportOptions =
MailExportOptions'
{ _meoExportFormat :: !(Maybe MailExportOptionsExportFormat)
, _meoShowConfidentialModeContent :: !(Maybe Bool)
}
deriving (Eq, Show, Data, Typeable, Generic)
mailExportOptions
:: MailExportOptions
mailExportOptions =
MailExportOptions'
{_meoExportFormat = Nothing, _meoShowConfidentialModeContent = Nothing}
meoExportFormat :: Lens' MailExportOptions (Maybe MailExportOptionsExportFormat)
meoExportFormat
= lens _meoExportFormat
(\ s a -> s{_meoExportFormat = a})
meoShowConfidentialModeContent :: Lens' MailExportOptions (Maybe Bool)
meoShowConfidentialModeContent
= lens _meoShowConfidentialModeContent
(\ s a -> s{_meoShowConfidentialModeContent = a})
instance FromJSON MailExportOptions where
parseJSON
= withObject "MailExportOptions"
(\ o ->
MailExportOptions' <$>
(o .:? "exportFormat") <*>
(o .:? "showConfidentialModeContent"))
instance ToJSON MailExportOptions where
toJSON MailExportOptions'{..}
= object
(catMaybes
[("exportFormat" .=) <$> _meoExportFormat,
("showConfidentialModeContent" .=) <$>
_meoShowConfidentialModeContent])
data ListHoldsResponse =
ListHoldsResponse'
{ _lhrNextPageToken :: !(Maybe Text)
, _lhrHolds :: !(Maybe [Hold])
}
deriving (Eq, Show, Data, Typeable, Generic)
listHoldsResponse
:: ListHoldsResponse
listHoldsResponse =
ListHoldsResponse' {_lhrNextPageToken = Nothing, _lhrHolds = Nothing}
lhrNextPageToken :: Lens' ListHoldsResponse (Maybe Text)
lhrNextPageToken
= lens _lhrNextPageToken
(\ s a -> s{_lhrNextPageToken = a})
lhrHolds :: Lens' ListHoldsResponse [Hold]
lhrHolds
= lens _lhrHolds (\ s a -> s{_lhrHolds = a}) .
_Default
. _Coerce
instance FromJSON ListHoldsResponse where
parseJSON
= withObject "ListHoldsResponse"
(\ o ->
ListHoldsResponse' <$>
(o .:? "nextPageToken") <*>
(o .:? "holds" .!= mempty))
instance ToJSON ListHoldsResponse where
toJSON ListHoldsResponse'{..}
= object
(catMaybes
[("nextPageToken" .=) <$> _lhrNextPageToken,
("holds" .=) <$> _lhrHolds])
newtype GroupsExportOptions =
GroupsExportOptions'
{ _geoExportFormat :: Maybe GroupsExportOptionsExportFormat
}
deriving (Eq, Show, Data, Typeable, Generic)
groupsExportOptions
:: GroupsExportOptions
groupsExportOptions = GroupsExportOptions' {_geoExportFormat = Nothing}
geoExportFormat :: Lens' GroupsExportOptions (Maybe GroupsExportOptionsExportFormat)
geoExportFormat
= lens _geoExportFormat
(\ s a -> s{_geoExportFormat = a})
instance FromJSON GroupsExportOptions where
parseJSON
= withObject "GroupsExportOptions"
(\ o ->
GroupsExportOptions' <$> (o .:? "exportFormat"))
instance ToJSON GroupsExportOptions where
toJSON GroupsExportOptions'{..}
= object
(catMaybes
[("exportFormat" .=) <$> _geoExportFormat])
data MatterPermission =
MatterPermission'
{ _mpRole :: !(Maybe MatterPermissionRole)
, _mpAccountId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
matterPermission
:: MatterPermission
matterPermission = MatterPermission' {_mpRole = Nothing, _mpAccountId = Nothing}
mpRole :: Lens' MatterPermission (Maybe MatterPermissionRole)
mpRole = lens _mpRole (\ s a -> s{_mpRole = a})
mpAccountId :: Lens' MatterPermission (Maybe Text)
mpAccountId
= lens _mpAccountId (\ s a -> s{_mpAccountId = a})
instance FromJSON MatterPermission where
parseJSON
= withObject "MatterPermission"
(\ o ->
MatterPermission' <$>
(o .:? "role") <*> (o .:? "accountId"))
instance ToJSON MatterPermission where
toJSON MatterPermission'{..}
= object
(catMaybes
[("role" .=) <$> _mpRole,
("accountId" .=) <$> _mpAccountId])
newtype DriveExportOptions =
DriveExportOptions'
{ _deoIncludeAccessInfo :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
driveExportOptions
:: DriveExportOptions
driveExportOptions = DriveExportOptions' {_deoIncludeAccessInfo = Nothing}
deoIncludeAccessInfo :: Lens' DriveExportOptions (Maybe Bool)
deoIncludeAccessInfo
= lens _deoIncludeAccessInfo
(\ s a -> s{_deoIncludeAccessInfo = a})
instance FromJSON DriveExportOptions where
parseJSON
= withObject "DriveExportOptions"
(\ o ->
DriveExportOptions' <$> (o .:? "includeAccessInfo"))
instance ToJSON DriveExportOptions where
toJSON DriveExportOptions'{..}
= object
(catMaybes
[("includeAccessInfo" .=) <$> _deoIncludeAccessInfo])
data HeldGroupsQuery =
HeldGroupsQuery'
{ _hgqStartTime :: !(Maybe DateTime')
, _hgqTerms :: !(Maybe Text)
, _hgqEndTime :: !(Maybe DateTime')
}
deriving (Eq, Show, Data, Typeable, Generic)
heldGroupsQuery
:: HeldGroupsQuery
heldGroupsQuery =
HeldGroupsQuery'
{_hgqStartTime = Nothing, _hgqTerms = Nothing, _hgqEndTime = Nothing}
hgqStartTime :: Lens' HeldGroupsQuery (Maybe UTCTime)
hgqStartTime
= lens _hgqStartTime (\ s a -> s{_hgqStartTime = a})
. mapping _DateTime
hgqTerms :: Lens' HeldGroupsQuery (Maybe Text)
hgqTerms = lens _hgqTerms (\ s a -> s{_hgqTerms = a})
hgqEndTime :: Lens' HeldGroupsQuery (Maybe UTCTime)
hgqEndTime
= lens _hgqEndTime (\ s a -> s{_hgqEndTime = a}) .
mapping _DateTime
instance FromJSON HeldGroupsQuery where
parseJSON
= withObject "HeldGroupsQuery"
(\ o ->
HeldGroupsQuery' <$>
(o .:? "startTime") <*> (o .:? "terms") <*>
(o .:? "endTime"))
instance ToJSON HeldGroupsQuery where
toJSON HeldGroupsQuery'{..}
= object
(catMaybes
[("startTime" .=) <$> _hgqStartTime,
("terms" .=) <$> _hgqTerms,
("endTime" .=) <$> _hgqEndTime])
newtype ReopenMatterResponse =
ReopenMatterResponse'
{ _rmrMatter :: Maybe Matter
}
deriving (Eq, Show, Data, Typeable, Generic)
reopenMatterResponse
:: ReopenMatterResponse
reopenMatterResponse = ReopenMatterResponse' {_rmrMatter = Nothing}
rmrMatter :: Lens' ReopenMatterResponse (Maybe Matter)
rmrMatter
= lens _rmrMatter (\ s a -> s{_rmrMatter = a})
instance FromJSON ReopenMatterResponse where
parseJSON
= withObject "ReopenMatterResponse"
(\ o -> ReopenMatterResponse' <$> (o .:? "matter"))
instance ToJSON ReopenMatterResponse where
toJSON ReopenMatterResponse'{..}
= object (catMaybes [("matter" .=) <$> _rmrMatter])
data CloudStorageFile =
CloudStorageFile'
{ _csfObjectName :: !(Maybe Text)
, _csfSize :: !(Maybe (Textual Int64))
, _csfBucketName :: !(Maybe Text)
, _csfMD5Hash :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
cloudStorageFile
:: CloudStorageFile
cloudStorageFile =
CloudStorageFile'
{ _csfObjectName = Nothing
, _csfSize = Nothing
, _csfBucketName = Nothing
, _csfMD5Hash = Nothing
}
csfObjectName :: Lens' CloudStorageFile (Maybe Text)
csfObjectName
= lens _csfObjectName
(\ s a -> s{_csfObjectName = a})
csfSize :: Lens' CloudStorageFile (Maybe Int64)
csfSize
= lens _csfSize (\ s a -> s{_csfSize = a}) .
mapping _Coerce
csfBucketName :: Lens' CloudStorageFile (Maybe Text)
csfBucketName
= lens _csfBucketName
(\ s a -> s{_csfBucketName = a})
csfMD5Hash :: Lens' CloudStorageFile (Maybe Text)
csfMD5Hash
= lens _csfMD5Hash (\ s a -> s{_csfMD5Hash = a})
instance FromJSON CloudStorageFile where
parseJSON
= withObject "CloudStorageFile"
(\ o ->
CloudStorageFile' <$>
(o .:? "objectName") <*> (o .:? "size") <*>
(o .:? "bucketName")
<*> (o .:? "md5Hash"))
instance ToJSON CloudStorageFile where
toJSON CloudStorageFile'{..}
= object
(catMaybes
[("objectName" .=) <$> _csfObjectName,
("size" .=) <$> _csfSize,
("bucketName" .=) <$> _csfBucketName,
("md5Hash" .=) <$> _csfMD5Hash])
newtype MailOptions =
MailOptions'
{ _moExcludeDrafts :: Maybe Bool
}
deriving (Eq, Show, Data, Typeable, Generic)
mailOptions
:: MailOptions
mailOptions = MailOptions' {_moExcludeDrafts = Nothing}
moExcludeDrafts :: Lens' MailOptions (Maybe Bool)
moExcludeDrafts
= lens _moExcludeDrafts
(\ s a -> s{_moExcludeDrafts = a})
instance FromJSON MailOptions where
parseJSON
= withObject "MailOptions"
(\ o -> MailOptions' <$> (o .:? "excludeDrafts"))
instance ToJSON MailOptions where
toJSON MailOptions'{..}
= object
(catMaybes
[("excludeDrafts" .=) <$> _moExcludeDrafts])