{-# 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
-- Copyright   : (c) 2015-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.Vault.Types.Product where

import           Network.Google.Prelude
import           Network.Google.Vault.Types.Sum

-- | An account being held in a particular hold. This structure is immutable.
-- This can be either a single user or a google group, depending on the
-- corpus.
--
-- /See:/ 'heldAccount' smart constructor.
data HeldAccount =
  HeldAccount'
    { _haEmail     :: !(Maybe Text)
    , _haLastName  :: !(Maybe Text)
    , _haAccountId :: !(Maybe Text)
    , _haHoldTime  :: !(Maybe DateTime')
    , _haFirstName :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HeldAccount' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'haEmail'
--
-- * 'haLastName'
--
-- * 'haAccountId'
--
-- * 'haHoldTime'
--
-- * 'haFirstName'
heldAccount
    :: HeldAccount
heldAccount =
  HeldAccount'
    { _haEmail = Nothing
    , _haLastName = Nothing
    , _haAccountId = Nothing
    , _haHoldTime = Nothing
    , _haFirstName = Nothing
    }


-- | The primary email address of the account. If used as an input, this
-- takes precedence over account ID.
haEmail :: Lens' HeldAccount (Maybe Text)
haEmail = lens _haEmail (\ s a -> s{_haEmail = a})

-- | Output only. The last name of the account holder.
haLastName :: Lens' HeldAccount (Maybe Text)
haLastName
  = lens _haLastName (\ s a -> s{_haLastName = a})

-- | The account\'s ID as provided by the
-- <https://developers.google.com/admin-sdk/ Admin SDK>.
haAccountId :: Lens' HeldAccount (Maybe Text)
haAccountId
  = lens _haAccountId (\ s a -> s{_haAccountId = a})

-- | Output only. When the account was put on hold.
haHoldTime :: Lens' HeldAccount (Maybe UTCTime)
haHoldTime
  = lens _haHoldTime (\ s a -> s{_haHoldTime = a}) .
      mapping _DateTime

-- | Output only. The first name of the account holder.
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])

-- | Query options for hangouts chat holds.
--
-- /See:/ 'heldHangoutsChatQuery' smart constructor.
newtype HeldHangoutsChatQuery =
  HeldHangoutsChatQuery'
    { _hhcqIncludeRooms :: Maybe Bool
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HeldHangoutsChatQuery' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hhcqIncludeRooms'
heldHangoutsChatQuery
    :: HeldHangoutsChatQuery
heldHangoutsChatQuery = HeldHangoutsChatQuery' {_hhcqIncludeRooms = Nothing}


-- | If true, include rooms the user has participated in.
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])

-- | An export
--
-- /See:/ 'export'' smart constructor.
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)


-- | Creates a value of 'Export' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'eStatus'
--
-- * 'eCloudStorageSink'
--
-- * 'eMatterId'
--
-- * 'eStats'
--
-- * 'eExportOptions'
--
-- * 'eName'
--
-- * 'eQuery'
--
-- * 'eId'
--
-- * 'eRequester'
--
-- * 'eCreateTime'
export'
    :: Export
export' =
  Export'
    { _eStatus = Nothing
    , _eCloudStorageSink = Nothing
    , _eMatterId = Nothing
    , _eStats = Nothing
    , _eExportOptions = Nothing
    , _eName = Nothing
    , _eQuery = Nothing
    , _eId = Nothing
    , _eRequester = Nothing
    , _eCreateTime = Nothing
    }


-- | Output only. The export status.
eStatus :: Lens' Export (Maybe ExportStatus)
eStatus = lens _eStatus (\ s a -> s{_eStatus = a})

-- | Output only. Export sink for cloud storage files.
eCloudStorageSink :: Lens' Export (Maybe CloudStorageSink)
eCloudStorageSink
  = lens _eCloudStorageSink
      (\ s a -> s{_eCloudStorageSink = a})

-- | Output only. The matter ID.
eMatterId :: Lens' Export (Maybe Text)
eMatterId
  = lens _eMatterId (\ s a -> s{_eMatterId = a})

-- | Output only. Export statistics.
eStats :: Lens' Export (Maybe ExportStats)
eStats = lens _eStats (\ s a -> s{_eStats = a})

-- | Advanced options of the export.
eExportOptions :: Lens' Export (Maybe ExportOptions)
eExportOptions
  = lens _eExportOptions
      (\ s a -> s{_eExportOptions = a})

-- | The export name.
eName :: Lens' Export (Maybe Text)
eName = lens _eName (\ s a -> s{_eName = a})

-- | The search query being exported.
eQuery :: Lens' Export (Maybe Query)
eQuery = lens _eQuery (\ s a -> s{_eQuery = a})

-- | Output only. The generated export ID.
eId :: Lens' Export (Maybe Text)
eId = lens _eId (\ s a -> s{_eId = a})

-- | Output only. The requester of the export.
eRequester :: Lens' Export (Maybe UserInfo)
eRequester
  = lens _eRequester (\ s a -> s{_eRequester = a})

-- | Output only. The time when the export was created.
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])

-- | The \`Status\` type defines a logical error model that is suitable for
-- different programming environments, including REST APIs and RPC APIs. It
-- is used by [gRPC](https:\/\/github.com\/grpc). The error model is
-- designed to be: - Simple to use and understand for most users - Flexible
-- enough to meet unexpected needs # Overview The \`Status\` message
-- contains three pieces of data: error code, error message, and error
-- details. The error code should be an enum value of google.rpc.Code, but
-- it may accept additional error codes if needed. The error message should
-- be a developer-facing English message that helps developers *understand*
-- and *resolve* the error. If a localized user-facing error message is
-- needed, put the localized message in the error details or localize it in
-- the client. The optional error details may contain arbitrary information
-- about the error. There is a predefined set of error detail types in the
-- package \`google.rpc\` that can be used for common error conditions. #
-- Language mapping The \`Status\` message is the logical representation of
-- the error model, but it is not necessarily the actual wire format. When
-- the \`Status\` message is exposed in different client libraries and
-- different wire protocols, it can be mapped differently. For example, it
-- will likely be mapped to some exceptions in Java, but more likely mapped
-- to some error codes in C. # Other uses The error model and the
-- \`Status\` message can be used in a variety of environments, either with
-- or without APIs, to provide a consistent developer experience across
-- different environments. Example uses of this error model include: -
-- Partial errors. If a service needs to return partial errors to the
-- client, it may embed the \`Status\` in the normal response to indicate
-- the partial errors. - Workflow errors. A typical workflow has multiple
-- steps. Each step may have a \`Status\` message for error reporting. -
-- Batch operations. If a client uses batch request and batch response, the
-- \`Status\` message should be used directly inside batch response, one
-- for each error sub-response. - Asynchronous operations. If an API call
-- embeds asynchronous operation results in its response, the status of
-- those operations should be represented directly using the \`Status\`
-- message. - Logging. If some API errors are stored in logs, the message
-- \`Status\` could be used directly after any stripping needed for
-- security\/privacy reasons.
--
-- /See:/ 'status' smart constructor.
data Status =
  Status'
    { _sDetails :: !(Maybe [StatusDetailsItem])
    , _sCode    :: !(Maybe (Textual Int32))
    , _sMessage :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'Status' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'sDetails'
--
-- * 'sCode'
--
-- * 'sMessage'
status
    :: Status
status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing}


-- | A list of messages that carry the error details. There is a common set
-- of message types for APIs to use.
sDetails :: Lens' Status [StatusDetailsItem]
sDetails
  = lens _sDetails (\ s a -> s{_sDetails = a}) .
      _Default
      . _Coerce

-- | The status code, which should be an enum value of google.rpc.Code.
sCode :: Lens' Status (Maybe Int32)
sCode
  = lens _sCode (\ s a -> s{_sCode = a}) .
      mapping _Coerce

-- | A developer-facing error message, which should be in English. Any
-- user-facing error message should be localized and sent in the
-- google.rpc.Status.details field, or localized by the client.
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])

-- | Accounts to search
--
-- /See:/ 'accountInfo' smart constructor.
newtype AccountInfo =
  AccountInfo'
    { _aiEmails :: Maybe [Text]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'AccountInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'aiEmails'
accountInfo
    :: AccountInfo
accountInfo = AccountInfo' {_aiEmails = Nothing}


-- | A set of accounts to search.
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])

-- | Export sink for cloud storage files.
--
-- /See:/ 'cloudStorageSink' smart constructor.
newtype CloudStorageSink =
  CloudStorageSink'
    { _cssFiles :: Maybe [CloudStorageFile]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'CloudStorageSink' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cssFiles'
cloudStorageSink
    :: CloudStorageSink
cloudStorageSink = CloudStorageSink' {_cssFiles = Nothing}


-- | Output only. The exported files on cloud storage.
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])

-- | The options for hangouts chat export.
--
-- /See:/ 'hangoutsChatExportOptions' smart constructor.
newtype HangoutsChatExportOptions =
  HangoutsChatExportOptions'
    { _hceoExportFormat :: Maybe HangoutsChatExportOptionsExportFormat
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HangoutsChatExportOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hceoExportFormat'
hangoutsChatExportOptions
    :: HangoutsChatExportOptions
hangoutsChatExportOptions =
  HangoutsChatExportOptions' {_hceoExportFormat = Nothing}


-- | The export format for hangouts chat export.
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])

-- | User\'s information.
--
-- /See:/ 'userInfo' smart constructor.
data UserInfo =
  UserInfo'
    { _uiEmail       :: !(Maybe Text)
    , _uiDisplayName :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'UserInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'uiEmail'
--
-- * 'uiDisplayName'
userInfo
    :: UserInfo
userInfo = UserInfo' {_uiEmail = Nothing, _uiDisplayName = Nothing}


-- | The email address of the user.
uiEmail :: Lens' UserInfo (Maybe Text)
uiEmail = lens _uiEmail (\ s a -> s{_uiEmail = a})

-- | The displayed name of the user.
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])

-- | Team Drives to search
--
-- /See:/ 'teamDriveInfo' smart constructor.
newtype TeamDriveInfo =
  TeamDriveInfo'
    { _tdiTeamDriveIds :: Maybe [Text]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'TeamDriveInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'tdiTeamDriveIds'
teamDriveInfo
    :: TeamDriveInfo
teamDriveInfo = TeamDriveInfo' {_tdiTeamDriveIds = Nothing}


-- | List of Team Drive ids, as provided by
-- <https://developers.google.com/drive Drive API>.
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])

-- | Add a list of accounts to a hold.
--
-- /See:/ 'addHeldAccountsRequest' smart constructor.
data AddHeldAccountsRequest =
  AddHeldAccountsRequest'
    { _aharAccountIds :: !(Maybe [Text])
    , _aharEmails     :: !(Maybe [Text])
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'AddHeldAccountsRequest' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'aharAccountIds'
--
-- * 'aharEmails'
addHeldAccountsRequest
    :: AddHeldAccountsRequest
addHeldAccountsRequest =
  AddHeldAccountsRequest' {_aharAccountIds = Nothing, _aharEmails = Nothing}


-- | Account ids to identify which accounts to add. Only account_ids or only
-- emails should be specified, but not both.
aharAccountIds :: Lens' AddHeldAccountsRequest [Text]
aharAccountIds
  = lens _aharAccountIds
      (\ s a -> s{_aharAccountIds = a})
      . _Default
      . _Coerce

-- | Emails to identify which accounts to add. Only emails or only
-- account_ids should be specified, but not both.
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])

-- | Corpus specific queries.
--
-- /See:/ 'corpusQuery' smart constructor.
data CorpusQuery =
  CorpusQuery'
    { _cqGroupsQuery       :: !(Maybe HeldGroupsQuery)
    , _cqDriveQuery        :: !(Maybe HeldDriveQuery)
    , _cqHangoutsChatQuery :: !(Maybe HeldHangoutsChatQuery)
    , _cqMailQuery         :: !(Maybe HeldMailQuery)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'CorpusQuery' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cqGroupsQuery'
--
-- * 'cqDriveQuery'
--
-- * 'cqHangoutsChatQuery'
--
-- * 'cqMailQuery'
corpusQuery
    :: CorpusQuery
corpusQuery =
  CorpusQuery'
    { _cqGroupsQuery = Nothing
    , _cqDriveQuery = Nothing
    , _cqHangoutsChatQuery = Nothing
    , _cqMailQuery = Nothing
    }


-- | Details pertaining to Groups holds. If set, corpus must be Groups.
cqGroupsQuery :: Lens' CorpusQuery (Maybe HeldGroupsQuery)
cqGroupsQuery
  = lens _cqGroupsQuery
      (\ s a -> s{_cqGroupsQuery = a})

-- | Details pertaining to Drive holds. If set, corpus must be Drive.
cqDriveQuery :: Lens' CorpusQuery (Maybe HeldDriveQuery)
cqDriveQuery
  = lens _cqDriveQuery (\ s a -> s{_cqDriveQuery = a})

-- | Details pertaining to Hangouts Chat holds. If set, corpus must be
-- Hangouts Chat.
cqHangoutsChatQuery :: Lens' CorpusQuery (Maybe HeldHangoutsChatQuery)
cqHangoutsChatQuery
  = lens _cqHangoutsChatQuery
      (\ s a -> s{_cqHangoutsChatQuery = a})

-- | Details pertaining to mail holds. If set, corpus must be mail.
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])

-- | Org Unit to search
--
-- /See:/ 'orgUnitInfo' smart constructor.
newtype OrgUnitInfo =
  OrgUnitInfo'
    { _ouiOrgUnitId :: Maybe Text
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'OrgUnitInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'ouiOrgUnitId'
orgUnitInfo
    :: OrgUnitInfo
orgUnitInfo = OrgUnitInfo' {_ouiOrgUnitId = Nothing}


-- | Org unit to search, as provided by the
-- <https://developers.google.com/admin-sdk/directory/ Admin SDK Directory API>.
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])

-- | Response for batch delete held accounts.
--
-- /See:/ 'removeHeldAccountsResponse' smart constructor.
newtype RemoveHeldAccountsResponse =
  RemoveHeldAccountsResponse'
    { _rharStatuses :: Maybe [Status]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'RemoveHeldAccountsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rharStatuses'
removeHeldAccountsResponse
    :: RemoveHeldAccountsResponse
removeHeldAccountsResponse =
  RemoveHeldAccountsResponse' {_rharStatuses = Nothing}


-- | A list of statuses for deleted accounts. Results have the same order as
-- the request.
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])

-- | A generic empty message that you can re-use to avoid defining duplicated
-- empty messages in your APIs. A typical example is to use it as the
-- request or the response type of an API method. For instance: service Foo
-- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The
-- JSON representation for \`Empty\` is empty JSON object \`{}\`.
--
-- /See:/ 'empty' smart constructor.
data Empty =
  Empty'
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'Empty' with the minimum fields required to make a request.
--
empty
    :: Empty
empty = Empty'


instance FromJSON Empty where
        parseJSON = withObject "Empty" (\ o -> pure Empty')

instance ToJSON Empty where
        toJSON = const emptyObject

-- | Stats of an export.
--
-- /See:/ 'exportStats' smart constructor.
data ExportStats =
  ExportStats'
    { _esTotalArtifactCount    :: !(Maybe (Textual Int64))
    , _esSizeInBytes           :: !(Maybe (Textual Int64))
    , _esExportedArtifactCount :: !(Maybe (Textual Int64))
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ExportStats' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'esTotalArtifactCount'
--
-- * 'esSizeInBytes'
--
-- * 'esExportedArtifactCount'
exportStats
    :: ExportStats
exportStats =
  ExportStats'
    { _esTotalArtifactCount = Nothing
    , _esSizeInBytes = Nothing
    , _esExportedArtifactCount = Nothing
    }


-- | The number of documents to be exported.
esTotalArtifactCount :: Lens' ExportStats (Maybe Int64)
esTotalArtifactCount
  = lens _esTotalArtifactCount
      (\ s a -> s{_esTotalArtifactCount = a})
      . mapping _Coerce

-- | The size of export in bytes.
esSizeInBytes :: Lens' ExportStats (Maybe Int64)
esSizeInBytes
  = lens _esSizeInBytes
      (\ s a -> s{_esSizeInBytes = a})
      . mapping _Coerce

-- | The number of documents already processed by the export.
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])

-- | Accounts to search
--
-- /See:/ 'hangoutsChatInfo' smart constructor.
newtype HangoutsChatInfo =
  HangoutsChatInfo'
    { _hciRoomId :: Maybe [Text]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HangoutsChatInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hciRoomId'
hangoutsChatInfo
    :: HangoutsChatInfo
hangoutsChatInfo = HangoutsChatInfo' {_hciRoomId = Nothing}


-- | A set of rooms to search.
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])

-- | Remove a list of accounts from a hold.
--
-- /See:/ 'removeHeldAccountsRequest' smart constructor.
newtype RemoveHeldAccountsRequest =
  RemoveHeldAccountsRequest'
    { _rharAccountIds :: Maybe [Text]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'RemoveHeldAccountsRequest' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rharAccountIds'
removeHeldAccountsRequest
    :: RemoveHeldAccountsRequest
removeHeldAccountsRequest =
  RemoveHeldAccountsRequest' {_rharAccountIds = Nothing}


-- | Account ids to identify HeldAccounts to remove.
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])

-- | Definition of the response for method ListSaveQuery.
--
-- /See:/ 'listSavedQueriesResponse' smart constructor.
data ListSavedQueriesResponse =
  ListSavedQueriesResponse'
    { _lsqrNextPageToken :: !(Maybe Text)
    , _lsqrSavedQueries  :: !(Maybe [SavedQuery])
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ListSavedQueriesResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'lsqrNextPageToken'
--
-- * 'lsqrSavedQueries'
listSavedQueriesResponse
    :: ListSavedQueriesResponse
listSavedQueriesResponse =
  ListSavedQueriesResponse'
    {_lsqrNextPageToken = Nothing, _lsqrSavedQueries = Nothing}


-- | Page token to retrieve the next page of results in the list. If this is
-- empty, then there are no more saved queries to list.
lsqrNextPageToken :: Lens' ListSavedQueriesResponse (Maybe Text)
lsqrNextPageToken
  = lens _lsqrNextPageToken
      (\ s a -> s{_lsqrNextPageToken = a})

-- | List of output saved queries.
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])

-- | Undelete a matter by ID.
--
-- /See:/ 'undeleteMatterRequest' smart constructor.
data UndeleteMatterRequest =
  UndeleteMatterRequest'
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'UndeleteMatterRequest' with the minimum fields required to make a request.
--
undeleteMatterRequest
    :: UndeleteMatterRequest
undeleteMatterRequest = UndeleteMatterRequest'


instance FromJSON UndeleteMatterRequest where
        parseJSON
          = withObject "UndeleteMatterRequest"
              (\ o -> pure UndeleteMatterRequest')

instance ToJSON UndeleteMatterRequest where
        toJSON = const emptyObject

-- | Query options for Drive holds.
--
-- /See:/ 'heldDriveQuery' smart constructor.
newtype HeldDriveQuery =
  HeldDriveQuery'
    { _hdqIncludeTeamDriveFiles :: Maybe Bool
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HeldDriveQuery' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hdqIncludeTeamDriveFiles'
heldDriveQuery
    :: HeldDriveQuery
heldDriveQuery = HeldDriveQuery' {_hdqIncludeTeamDriveFiles = Nothing}


-- | If true, include files in Team Drives in the hold.
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])

-- | Hangouts chat search advanced options
--
-- /See:/ 'hangoutsChatOptions' smart constructor.
newtype HangoutsChatOptions =
  HangoutsChatOptions'
    { _hcoIncludeRooms :: Maybe Bool
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HangoutsChatOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hcoIncludeRooms'
hangoutsChatOptions
    :: HangoutsChatOptions
hangoutsChatOptions = HangoutsChatOptions' {_hcoIncludeRooms = Nothing}


-- | Set to true to include rooms.
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])

-- | Add an account with the permission specified. The role cannot be owner.
-- If an account already has a role in the matter, it will be overwritten.
--
-- /See:/ 'addMatterPermissionsRequest' smart constructor.
data AddMatterPermissionsRequest =
  AddMatterPermissionsRequest'
    { _amprSendEmails       :: !(Maybe Bool)
    , _amprCcMe             :: !(Maybe Bool)
    , _amprMatterPermission :: !(Maybe MatterPermission)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'AddMatterPermissionsRequest' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'amprSendEmails'
--
-- * 'amprCcMe'
--
-- * 'amprMatterPermission'
addMatterPermissionsRequest
    :: AddMatterPermissionsRequest
addMatterPermissionsRequest =
  AddMatterPermissionsRequest'
    { _amprSendEmails = Nothing
    , _amprCcMe = Nothing
    , _amprMatterPermission = Nothing
    }


-- | True to send notification email to the added account. False to not send
-- notification email.
amprSendEmails :: Lens' AddMatterPermissionsRequest (Maybe Bool)
amprSendEmails
  = lens _amprSendEmails
      (\ s a -> s{_amprSendEmails = a})

-- | Only relevant if send_emails is true. True to CC requestor in the email
-- message. False to not CC requestor.
amprCcMe :: Lens' AddMatterPermissionsRequest (Maybe Bool)
amprCcMe = lens _amprCcMe (\ s a -> s{_amprCcMe = a})

-- | The MatterPermission to add.
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])

--
-- /See:/ 'statusDetailsItem' smart constructor.
newtype StatusDetailsItem =
  StatusDetailsItem'
    { _sdiAddtional :: HashMap Text JSONValue
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'sdiAddtional'
statusDetailsItem
    :: HashMap Text JSONValue -- ^ 'sdiAddtional'
    -> StatusDetailsItem
statusDetailsItem pSdiAddtional_ =
  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_}


-- | Properties of the object. Contains field \'type with type URL.
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

-- | Represents a matter.
--
-- /See:/ 'matter' smart constructor.
data Matter =
  Matter'
    { _mState             :: !(Maybe MatterState)
    , _mMatterPermissions :: !(Maybe [MatterPermission])
    , _mMatterId          :: !(Maybe Text)
    , _mName              :: !(Maybe Text)
    , _mDescription       :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'Matter' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'mState'
--
-- * 'mMatterPermissions'
--
-- * 'mMatterId'
--
-- * 'mName'
--
-- * 'mDescription'
matter
    :: Matter
matter =
  Matter'
    { _mState = Nothing
    , _mMatterPermissions = Nothing
    , _mMatterId = Nothing
    , _mName = Nothing
    , _mDescription = Nothing
    }


-- | The state of the matter.
mState :: Lens' Matter (Maybe MatterState)
mState = lens _mState (\ s a -> s{_mState = a})

-- | List of users and access to the matter. Currently there is no programmer
-- defined limit on the number of permissions a matter can have.
mMatterPermissions :: Lens' Matter [MatterPermission]
mMatterPermissions
  = lens _mMatterPermissions
      (\ s a -> s{_mMatterPermissions = a})
      . _Default
      . _Coerce

-- | The matter ID which is generated by the server. Should be blank when
-- creating a new matter.
mMatterId :: Lens' Matter (Maybe Text)
mMatterId
  = lens _mMatterId (\ s a -> s{_mMatterId = a})

-- | The name of the matter.
mName :: Lens' Matter (Maybe Text)
mName = lens _mName (\ s a -> s{_mName = a})

-- | The description of the matter.
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])

-- | Response to a CloseMatterRequest.
--
-- /See:/ 'closeMatterResponse' smart constructor.
newtype CloseMatterResponse =
  CloseMatterResponse'
    { _cmrMatter :: Maybe Matter
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'CloseMatterResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cmrMatter'
closeMatterResponse
    :: CloseMatterResponse
closeMatterResponse = CloseMatterResponse' {_cmrMatter = Nothing}


-- | The updated matter, with state CLOSED.
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])

-- | Query options for mail holds.
--
-- /See:/ 'heldMailQuery' smart constructor.
data HeldMailQuery =
  HeldMailQuery'
    { _hmqStartTime :: !(Maybe DateTime')
    , _hmqTerms     :: !(Maybe Text)
    , _hmqEndTime   :: !(Maybe DateTime')
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HeldMailQuery' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hmqStartTime'
--
-- * 'hmqTerms'
--
-- * 'hmqEndTime'
heldMailQuery
    :: HeldMailQuery
heldMailQuery =
  HeldMailQuery'
    {_hmqStartTime = Nothing, _hmqTerms = Nothing, _hmqEndTime = Nothing}


-- | The start time range for the search query. These timestamps are in GMT
-- and rounded down to the start of the given date.
hmqStartTime :: Lens' HeldMailQuery (Maybe UTCTime)
hmqStartTime
  = lens _hmqStartTime (\ s a -> s{_hmqStartTime = a})
      . mapping _DateTime

-- | The search terms for the hold.
hmqTerms :: Lens' HeldMailQuery (Maybe Text)
hmqTerms = lens _hmqTerms (\ s a -> s{_hmqTerms = a})

-- | The end time range for the search query. These timestamps are in GMT and
-- rounded down to the start of the given date.
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])

-- | Returns a list of held accounts for a hold.
--
-- /See:/ 'listHeldAccountsResponse' smart constructor.
newtype ListHeldAccountsResponse =
  ListHeldAccountsResponse'
    { _lharAccounts :: Maybe [HeldAccount]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ListHeldAccountsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'lharAccounts'
listHeldAccountsResponse
    :: ListHeldAccountsResponse
listHeldAccountsResponse = ListHeldAccountsResponse' {_lharAccounts = Nothing}


-- | The held accounts on a hold.
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])

-- | The holds for a matter.
--
-- /See:/ 'listExportsResponse' smart constructor.
data ListExportsResponse =
  ListExportsResponse'
    { _lerNextPageToken :: !(Maybe Text)
    , _lerExports       :: !(Maybe [Export])
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ListExportsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'lerNextPageToken'
--
-- * 'lerExports'
listExportsResponse
    :: ListExportsResponse
listExportsResponse =
  ListExportsResponse' {_lerNextPageToken = Nothing, _lerExports = Nothing}


-- | Page token to retrieve the next page of results in the list.
lerNextPageToken :: Lens' ListExportsResponse (Maybe Text)
lerNextPageToken
  = lens _lerNextPageToken
      (\ s a -> s{_lerNextPageToken = a})

-- | The list of exports.
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])

-- | A organizational unit being held in a particular hold. This structure is
-- immutable.
--
-- /See:/ 'heldOrgUnit' smart constructor.
data HeldOrgUnit =
  HeldOrgUnit'
    { _houHoldTime  :: !(Maybe DateTime')
    , _houOrgUnitId :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HeldOrgUnit' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'houHoldTime'
--
-- * 'houOrgUnitId'
heldOrgUnit
    :: HeldOrgUnit
heldOrgUnit = HeldOrgUnit' {_houHoldTime = Nothing, _houOrgUnitId = Nothing}


-- | When the org unit was put on hold. This property is immutable.
houHoldTime :: Lens' HeldOrgUnit (Maybe UTCTime)
houHoldTime
  = lens _houHoldTime (\ s a -> s{_houHoldTime = a}) .
      mapping _DateTime

-- | The org unit\'s immutable ID as provided by the Admin SDK.
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])

-- | Provides the list of matters.
--
-- /See:/ 'listMattersResponse' smart constructor.
data ListMattersResponse =
  ListMattersResponse'
    { _lmrNextPageToken :: !(Maybe Text)
    , _lmrMatters       :: !(Maybe [Matter])
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ListMattersResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'lmrNextPageToken'
--
-- * 'lmrMatters'
listMattersResponse
    :: ListMattersResponse
listMattersResponse =
  ListMattersResponse' {_lmrNextPageToken = Nothing, _lmrMatters = Nothing}


-- | Page token to retrieve the next page of results in the list.
lmrNextPageToken :: Lens' ListMattersResponse (Maybe Text)
lmrNextPageToken
  = lens _lmrNextPageToken
      (\ s a -> s{_lmrNextPageToken = a})

-- | List of matters.
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])

-- | Reopen a matter by ID.
--
-- /See:/ 'reopenMatterRequest' smart constructor.
data ReopenMatterRequest =
  ReopenMatterRequest'
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ReopenMatterRequest' with the minimum fields required to make a request.
--
reopenMatterRequest
    :: ReopenMatterRequest
reopenMatterRequest = ReopenMatterRequest'


instance FromJSON ReopenMatterRequest where
        parseJSON
          = withObject "ReopenMatterRequest"
              (\ o -> pure ReopenMatterRequest')

instance ToJSON ReopenMatterRequest where
        toJSON = const emptyObject

-- | Remove an account as a matter collaborator.
--
-- /See:/ 'removeMatterPermissionsRequest' smart constructor.
newtype RemoveMatterPermissionsRequest =
  RemoveMatterPermissionsRequest'
    { _rmprAccountId :: Maybe Text
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'RemoveMatterPermissionsRequest' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rmprAccountId'
removeMatterPermissionsRequest
    :: RemoveMatterPermissionsRequest
removeMatterPermissionsRequest =
  RemoveMatterPermissionsRequest' {_rmprAccountId = Nothing}


-- | The account ID.
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])

-- | Export advanced options
--
-- /See:/ 'exportOptions' smart constructor.
data ExportOptions =
  ExportOptions'
    { _eoHangoutsChatOptions :: !(Maybe HangoutsChatExportOptions)
    , _eoDriveOptions        :: !(Maybe DriveExportOptions)
    , _eoGroupsOptions       :: !(Maybe GroupsExportOptions)
    , _eoRegion              :: !(Maybe ExportOptionsRegion)
    , _eoMailOptions         :: !(Maybe MailExportOptions)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ExportOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'eoHangoutsChatOptions'
--
-- * 'eoDriveOptions'
--
-- * 'eoGroupsOptions'
--
-- * 'eoRegion'
--
-- * 'eoMailOptions'
exportOptions
    :: ExportOptions
exportOptions =
  ExportOptions'
    { _eoHangoutsChatOptions = Nothing
    , _eoDriveOptions = Nothing
    , _eoGroupsOptions = Nothing
    , _eoRegion = Nothing
    , _eoMailOptions = Nothing
    }


-- | Option available for hangouts chat export.
eoHangoutsChatOptions :: Lens' ExportOptions (Maybe HangoutsChatExportOptions)
eoHangoutsChatOptions
  = lens _eoHangoutsChatOptions
      (\ s a -> s{_eoHangoutsChatOptions = a})

-- | Option available for Drive export.
eoDriveOptions :: Lens' ExportOptions (Maybe DriveExportOptions)
eoDriveOptions
  = lens _eoDriveOptions
      (\ s a -> s{_eoDriveOptions = a})

-- | Option available for groups export.
eoGroupsOptions :: Lens' ExportOptions (Maybe GroupsExportOptions)
eoGroupsOptions
  = lens _eoGroupsOptions
      (\ s a -> s{_eoGroupsOptions = a})

-- | The requested export location.
eoRegion :: Lens' ExportOptions (Maybe ExportOptionsRegion)
eoRegion = lens _eoRegion (\ s a -> s{_eoRegion = a})

-- | Option available for mail export.
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])

-- | Close a matter by ID.
--
-- /See:/ 'closeMatterRequest' smart constructor.
data CloseMatterRequest =
  CloseMatterRequest'
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'CloseMatterRequest' with the minimum fields required to make a request.
--
closeMatterRequest
    :: CloseMatterRequest
closeMatterRequest = CloseMatterRequest'


instance FromJSON CloseMatterRequest where
        parseJSON
          = withObject "CloseMatterRequest"
              (\ o -> pure CloseMatterRequest')

instance ToJSON CloseMatterRequest where
        toJSON = const emptyObject

-- | Drive search advanced options
--
-- /See:/ 'driveOptions' smart constructor.
data DriveOptions =
  DriveOptions'
    { _doIncludeTeamDrives :: !(Maybe Bool)
    , _doVersionDate       :: !(Maybe DateTime')
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'DriveOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'doIncludeTeamDrives'
--
-- * 'doVersionDate'
driveOptions
    :: DriveOptions
driveOptions =
  DriveOptions' {_doIncludeTeamDrives = Nothing, _doVersionDate = Nothing}


-- | Set to true to include Team Drive.
doIncludeTeamDrives :: Lens' DriveOptions (Maybe Bool)
doIncludeTeamDrives
  = lens _doIncludeTeamDrives
      (\ s a -> s{_doIncludeTeamDrives = a})

-- | Search the versions of the Drive file as of the reference date. These
-- timestamps are in GMT and rounded down to the given date.
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])

-- | A status detailing the status of each account creation, and the
-- HeldAccount, if successful.
--
-- /See:/ 'addHeldAccountResult' smart constructor.
data AddHeldAccountResult =
  AddHeldAccountResult'
    { _aharStatus  :: !(Maybe Status)
    , _aharAccount :: !(Maybe HeldAccount)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'AddHeldAccountResult' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'aharStatus'
--
-- * 'aharAccount'
addHeldAccountResult
    :: AddHeldAccountResult
addHeldAccountResult =
  AddHeldAccountResult' {_aharStatus = Nothing, _aharAccount = Nothing}


-- | This represents the success status. If failed, check message.
aharStatus :: Lens' AddHeldAccountResult (Maybe Status)
aharStatus
  = lens _aharStatus (\ s a -> s{_aharStatus = a})

-- | If present, this account was successfully created.
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])

-- | Definition of the saved query.
--
-- /See:/ 'savedQuery' smart constructor.
data SavedQuery =
  SavedQuery'
    { _sqSavedQueryId :: !(Maybe Text)
    , _sqMatterId     :: !(Maybe Text)
    , _sqQuery        :: !(Maybe Query)
    , _sqDisplayName  :: !(Maybe Text)
    , _sqCreateTime   :: !(Maybe DateTime')
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'SavedQuery' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'sqSavedQueryId'
--
-- * 'sqMatterId'
--
-- * 'sqQuery'
--
-- * 'sqDisplayName'
--
-- * 'sqCreateTime'
savedQuery
    :: SavedQuery
savedQuery =
  SavedQuery'
    { _sqSavedQueryId = Nothing
    , _sqMatterId = Nothing
    , _sqQuery = Nothing
    , _sqDisplayName = Nothing
    , _sqCreateTime = Nothing
    }


-- | A unique identifier for the saved query.
sqSavedQueryId :: Lens' SavedQuery (Maybe Text)
sqSavedQueryId
  = lens _sqSavedQueryId
      (\ s a -> s{_sqSavedQueryId = a})

-- | Output only. The matter id of the associated matter. The server does not
-- look at this field during create and always uses matter id in the URL.
sqMatterId :: Lens' SavedQuery (Maybe Text)
sqMatterId
  = lens _sqMatterId (\ s a -> s{_sqMatterId = a})

-- | The underlying Query object which contains all the information of the
-- saved query.
sqQuery :: Lens' SavedQuery (Maybe Query)
sqQuery = lens _sqQuery (\ s a -> s{_sqQuery = a})

-- | Name of the saved query.
sqDisplayName :: Lens' SavedQuery (Maybe Text)
sqDisplayName
  = lens _sqDisplayName
      (\ s a -> s{_sqDisplayName = a})

-- | Output only. The server generated timestamp at which saved query was
-- created.
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])

-- | Represents a hold within Vault. A hold restricts purging of artifacts
-- based on the combination of the query and accounts restrictions. A hold
-- can be configured to either apply to an explicitly configured set of
-- accounts, or can be applied to all members of an organizational unit.
--
-- /See:/ 'hold' smart constructor.
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)


-- | Creates a value of 'Hold' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hOrgUnit'
--
-- * 'hHoldId'
--
-- * 'hAccounts'
--
-- * 'hUpdateTime'
--
-- * 'hName'
--
-- * 'hQuery'
--
-- * 'hCorpus'
hold
    :: Hold
hold =
  Hold'
    { _hOrgUnit = Nothing
    , _hHoldId = Nothing
    , _hAccounts = Nothing
    , _hUpdateTime = Nothing
    , _hName = Nothing
    , _hQuery = Nothing
    , _hCorpus = Nothing
    }


-- | If set, the hold applies to all members of the organizational unit and
-- accounts must be empty. This property is mutable. For groups holds, set
-- the accounts field.
hOrgUnit :: Lens' Hold (Maybe HeldOrgUnit)
hOrgUnit = lens _hOrgUnit (\ s a -> s{_hOrgUnit = a})

-- | The unique immutable ID of the hold. Assigned during creation.
hHoldId :: Lens' Hold (Maybe Text)
hHoldId = lens _hHoldId (\ s a -> s{_hHoldId = a})

-- | If set, the hold applies to the enumerated accounts and org_unit must be
-- empty.
hAccounts :: Lens' Hold [HeldAccount]
hAccounts
  = lens _hAccounts (\ s a -> s{_hAccounts = a}) .
      _Default
      . _Coerce

-- | The last time this hold was modified.
hUpdateTime :: Lens' Hold (Maybe UTCTime)
hUpdateTime
  = lens _hUpdateTime (\ s a -> s{_hUpdateTime = a}) .
      mapping _DateTime

-- | The name of the hold.
hName :: Lens' Hold (Maybe Text)
hName = lens _hName (\ s a -> s{_hName = a})

-- | The corpus-specific query. If set, the corpusQuery must match corpus
-- type.
hQuery :: Lens' Hold (Maybe CorpusQuery)
hQuery = lens _hQuery (\ s a -> s{_hQuery = a})

-- | The corpus to be searched.
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])

-- | A query definition relevant for search & export.
--
-- /See:/ 'query' smart constructor.
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)


-- | Creates a value of 'Query' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'qAccountInfo'
--
-- * 'qTeamDriveInfo'
--
-- * 'qOrgUnitInfo'
--
-- * 'qStartTime'
--
-- * 'qTerms'
--
-- * 'qHangoutsChatInfo'
--
-- * 'qHangoutsChatOptions'
--
-- * 'qDriveOptions'
--
-- * 'qEndTime'
--
-- * 'qDataScope'
--
-- * 'qCorpus'
--
-- * 'qTimeZone'
--
-- * 'qMailOptions'
--
-- * 'qSearchMethod'
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
    }


-- | When \'ACCOUNT\' is chosen as search method, account_info needs to be
-- specified.
qAccountInfo :: Lens' Query (Maybe AccountInfo)
qAccountInfo
  = lens _qAccountInfo (\ s a -> s{_qAccountInfo = a})

-- | When \'TEAM_DRIVE\' is chosen as search method, team_drive_info needs to
-- be specified.
qTeamDriveInfo :: Lens' Query (Maybe TeamDriveInfo)
qTeamDriveInfo
  = lens _qTeamDriveInfo
      (\ s a -> s{_qTeamDriveInfo = a})

-- | When \'ORG_UNIT\' is chosen as as search method, org_unit_info needs to
-- be specified.
qOrgUnitInfo :: Lens' Query (Maybe OrgUnitInfo)
qOrgUnitInfo
  = lens _qOrgUnitInfo (\ s a -> s{_qOrgUnitInfo = a})

-- | The start time range for the search query. These timestamps are in GMT
-- and rounded down to the start of the given date.
qStartTime :: Lens' Query (Maybe UTCTime)
qStartTime
  = lens _qStartTime (\ s a -> s{_qStartTime = a}) .
      mapping _DateTime

-- | The corpus-specific
-- <https://support.google.com/vault/answer/2474474 search operators> used
-- to generate search results.
qTerms :: Lens' Query (Maybe Text)
qTerms = lens _qTerms (\ s a -> s{_qTerms = a})

-- | When \'ROOM\' is chosen as search method, hangout_chats_info needs to be
-- specified. (read-only)
qHangoutsChatInfo :: Lens' Query (Maybe HangoutsChatInfo)
qHangoutsChatInfo
  = lens _qHangoutsChatInfo
      (\ s a -> s{_qHangoutsChatInfo = a})

-- | For hangouts chat search, specify more options in this field.
-- (read-only)
qHangoutsChatOptions :: Lens' Query (Maybe HangoutsChatOptions)
qHangoutsChatOptions
  = lens _qHangoutsChatOptions
      (\ s a -> s{_qHangoutsChatOptions = a})

-- | For Drive search, specify more options in this field.
qDriveOptions :: Lens' Query (Maybe DriveOptions)
qDriveOptions
  = lens _qDriveOptions
      (\ s a -> s{_qDriveOptions = a})

-- | The end time range for the search query. These timestamps are in GMT and
-- rounded down to the start of the given date.
qEndTime :: Lens' Query (Maybe UTCTime)
qEndTime
  = lens _qEndTime (\ s a -> s{_qEndTime = a}) .
      mapping _DateTime

-- | The data source to search from.
qDataScope :: Lens' Query (Maybe QueryDataScope)
qDataScope
  = lens _qDataScope (\ s a -> s{_qDataScope = a})

-- | The corpus to search.
qCorpus :: Lens' Query (Maybe QueryCorpus)
qCorpus = lens _qCorpus (\ s a -> s{_qCorpus = a})

-- | The time zone name. It should be an IANA TZ name, such as
-- \"America\/Los_Angeles\". For more information, see
-- <https://en.wikipedia.org/wiki/List_of_tz_database_time_zones Time Zone>.
qTimeZone :: Lens' Query (Maybe Text)
qTimeZone
  = lens _qTimeZone (\ s a -> s{_qTimeZone = a})

-- | For mail search, specify more options in this field.
qMailOptions :: Lens' Query (Maybe MailOptions)
qMailOptions
  = lens _qMailOptions (\ s a -> s{_qMailOptions = a})

-- | The search method to use.
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])

-- | Response for batch create held accounts.
--
-- /See:/ 'addHeldAccountsResponse' smart constructor.
newtype AddHeldAccountsResponse =
  AddHeldAccountsResponse'
    { _aharResponses :: Maybe [AddHeldAccountResult]
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'AddHeldAccountsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'aharResponses'
addHeldAccountsResponse
    :: AddHeldAccountsResponse
addHeldAccountsResponse = AddHeldAccountsResponse' {_aharResponses = Nothing}


-- | The list of responses, in the same order as the batch request.
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])

-- | The options for mail export.
--
-- /See:/ 'mailExportOptions' smart constructor.
data MailExportOptions =
  MailExportOptions'
    { _meoExportFormat                :: !(Maybe MailExportOptionsExportFormat)
    , _meoShowConfidentialModeContent :: !(Maybe Bool)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'MailExportOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'meoExportFormat'
--
-- * 'meoShowConfidentialModeContent'
mailExportOptions
    :: MailExportOptions
mailExportOptions =
  MailExportOptions'
    {_meoExportFormat = Nothing, _meoShowConfidentialModeContent = Nothing}


-- | The export file format.
meoExportFormat :: Lens' MailExportOptions (Maybe MailExportOptionsExportFormat)
meoExportFormat
  = lens _meoExportFormat
      (\ s a -> s{_meoExportFormat = a})

-- | Set to true to export confidential mode content.
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])

-- | The holds for a matter.
--
-- /See:/ 'listHoldsResponse' smart constructor.
data ListHoldsResponse =
  ListHoldsResponse'
    { _lhrNextPageToken :: !(Maybe Text)
    , _lhrHolds         :: !(Maybe [Hold])
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ListHoldsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'lhrNextPageToken'
--
-- * 'lhrHolds'
listHoldsResponse
    :: ListHoldsResponse
listHoldsResponse =
  ListHoldsResponse' {_lhrNextPageToken = Nothing, _lhrHolds = Nothing}


-- | Page token to retrieve the next page of results in the list. If this is
-- empty, then there are no more holds to list.
lhrNextPageToken :: Lens' ListHoldsResponse (Maybe Text)
lhrNextPageToken
  = lens _lhrNextPageToken
      (\ s a -> s{_lhrNextPageToken = a})

-- | The list of holds.
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])

-- | The options for groups export.
--
-- /See:/ 'groupsExportOptions' smart constructor.
newtype GroupsExportOptions =
  GroupsExportOptions'
    { _geoExportFormat :: Maybe GroupsExportOptionsExportFormat
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'GroupsExportOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'geoExportFormat'
groupsExportOptions
    :: GroupsExportOptions
groupsExportOptions = GroupsExportOptions' {_geoExportFormat = Nothing}


-- | The export format for groups export.
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])

-- | Currently each matter only has one owner, and all others are
-- collaborators. When an account is purged, its corresponding
-- MatterPermission resources cease to exist.
--
-- /See:/ 'matterPermission' smart constructor.
data MatterPermission =
  MatterPermission'
    { _mpRole      :: !(Maybe MatterPermissionRole)
    , _mpAccountId :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'MatterPermission' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'mpRole'
--
-- * 'mpAccountId'
matterPermission
    :: MatterPermission
matterPermission = MatterPermission' {_mpRole = Nothing, _mpAccountId = Nothing}


-- | The user\'s role in this matter.
mpRole :: Lens' MatterPermission (Maybe MatterPermissionRole)
mpRole = lens _mpRole (\ s a -> s{_mpRole = a})

-- | The account id, as provided by
-- <https://developers.google.com/admin-sdk/ Admin SDK>.
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])

-- | The options for Drive export.
--
-- /See:/ 'driveExportOptions' smart constructor.
newtype DriveExportOptions =
  DriveExportOptions'
    { _deoIncludeAccessInfo :: Maybe Bool
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'DriveExportOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'deoIncludeAccessInfo'
driveExportOptions
    :: DriveExportOptions
driveExportOptions = DriveExportOptions' {_deoIncludeAccessInfo = Nothing}


-- | Set to true to include access level information for users with
-- <https://support.google.com/vault/answer/6099459#metadata indirect access>
-- to files.
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])

-- | Query options for group holds.
--
-- /See:/ 'heldGroupsQuery' smart constructor.
data HeldGroupsQuery =
  HeldGroupsQuery'
    { _hgqStartTime :: !(Maybe DateTime')
    , _hgqTerms     :: !(Maybe Text)
    , _hgqEndTime   :: !(Maybe DateTime')
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'HeldGroupsQuery' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'hgqStartTime'
--
-- * 'hgqTerms'
--
-- * 'hgqEndTime'
heldGroupsQuery
    :: HeldGroupsQuery
heldGroupsQuery =
  HeldGroupsQuery'
    {_hgqStartTime = Nothing, _hgqTerms = Nothing, _hgqEndTime = Nothing}


-- | The start time range for the search query. These timestamps are in GMT
-- and rounded down to the start of the given date.
hgqStartTime :: Lens' HeldGroupsQuery (Maybe UTCTime)
hgqStartTime
  = lens _hgqStartTime (\ s a -> s{_hgqStartTime = a})
      . mapping _DateTime

-- | The search terms for the hold.
hgqTerms :: Lens' HeldGroupsQuery (Maybe Text)
hgqTerms = lens _hgqTerms (\ s a -> s{_hgqTerms = a})

-- | The end time range for the search query. These timestamps are in GMT and
-- rounded down to the start of the given date.
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])

-- | Response to a ReopenMatterRequest.
--
-- /See:/ 'reopenMatterResponse' smart constructor.
newtype ReopenMatterResponse =
  ReopenMatterResponse'
    { _rmrMatter :: Maybe Matter
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'ReopenMatterResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'rmrMatter'
reopenMatterResponse
    :: ReopenMatterResponse
reopenMatterResponse = ReopenMatterResponse' {_rmrMatter = Nothing}


-- | The updated matter, with state OPEN.
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])

-- | An export file on cloud storage
--
-- /See:/ 'cloudStorageFile' smart constructor.
data CloudStorageFile =
  CloudStorageFile'
    { _csfObjectName :: !(Maybe Text)
    , _csfSize       :: !(Maybe (Textual Int64))
    , _csfBucketName :: !(Maybe Text)
    , _csfMD5Hash    :: !(Maybe Text)
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'CloudStorageFile' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'csfObjectName'
--
-- * 'csfSize'
--
-- * 'csfBucketName'
--
-- * 'csfMD5Hash'
cloudStorageFile
    :: CloudStorageFile
cloudStorageFile =
  CloudStorageFile'
    { _csfObjectName = Nothing
    , _csfSize = Nothing
    , _csfBucketName = Nothing
    , _csfMD5Hash = Nothing
    }


-- | The cloud storage object name of this export file. Can be used in cloud
-- storage JSON\/XML API.
csfObjectName :: Lens' CloudStorageFile (Maybe Text)
csfObjectName
  = lens _csfObjectName
      (\ s a -> s{_csfObjectName = a})

-- | The size of the export file.
csfSize :: Lens' CloudStorageFile (Maybe Int64)
csfSize
  = lens _csfSize (\ s a -> s{_csfSize = a}) .
      mapping _Coerce

-- | The cloud storage bucket name of this export file. Can be used in cloud
-- storage JSON\/XML API.
csfBucketName :: Lens' CloudStorageFile (Maybe Text)
csfBucketName
  = lens _csfBucketName
      (\ s a -> s{_csfBucketName = a})

-- | The md5 hash of the file.
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])

-- | Mail search advanced options
--
-- /See:/ 'mailOptions' smart constructor.
newtype MailOptions =
  MailOptions'
    { _moExcludeDrafts :: Maybe Bool
    }
  deriving (Eq, Show, Data, Typeable, Generic)


-- | Creates a value of 'MailOptions' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'moExcludeDrafts'
mailOptions
    :: MailOptions
mailOptions = MailOptions' {_moExcludeDrafts = Nothing}


-- | Set to true to exclude drafts.
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])