{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.CloudSearch.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data DriveMimeTypeRestrictType
= Unspecified
| Pdf
| Document
| Presentation
| Spreadsheet
| Form
| Drawing
| Script
| Map
| Image
| Audio
| Video
| Folder
| Archive
| Site
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DriveMimeTypeRestrictType
instance FromHttpApiData DriveMimeTypeRestrictType where
parseQueryParam = \case
"UNSPECIFIED" -> Right Unspecified
"PDF" -> Right Pdf
"DOCUMENT" -> Right Document
"PRESENTATION" -> Right Presentation
"SPREADSHEET" -> Right Spreadsheet
"FORM" -> Right Form
"DRAWING" -> Right Drawing
"SCRIPT" -> Right Script
"MAP" -> Right Map
"IMAGE" -> Right Image
"AUDIO" -> Right Audio
"VIDEO" -> Right Video
"FOLDER" -> Right Folder
"ARCHIVE" -> Right Archive
"SITE" -> Right Site
x -> Left ("Unable to parse DriveMimeTypeRestrictType from: " <> x)
instance ToHttpApiData DriveMimeTypeRestrictType where
toQueryParam = \case
Unspecified -> "UNSPECIFIED"
Pdf -> "PDF"
Document -> "DOCUMENT"
Presentation -> "PRESENTATION"
Spreadsheet -> "SPREADSHEET"
Form -> "FORM"
Drawing -> "DRAWING"
Script -> "SCRIPT"
Map -> "MAP"
Image -> "IMAGE"
Audio -> "AUDIO"
Video -> "VIDEO"
Folder -> "FOLDER"
Archive -> "ARCHIVE"
Site -> "SITE"
instance FromJSON DriveMimeTypeRestrictType where
parseJSON = parseJSONText "DriveMimeTypeRestrictType"
instance ToJSON DriveMimeTypeRestrictType where
toJSON = toJSONText
data DriveFollowUpRestrictType
= DFURTUnspecified
| DFURTFollowupSuggestions
| DFURTFollowupActionItems
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DriveFollowUpRestrictType
instance FromHttpApiData DriveFollowUpRestrictType where
parseQueryParam = \case
"UNSPECIFIED" -> Right DFURTUnspecified
"FOLLOWUP_SUGGESTIONS" -> Right DFURTFollowupSuggestions
"FOLLOWUP_ACTION_ITEMS" -> Right DFURTFollowupActionItems
x -> Left ("Unable to parse DriveFollowUpRestrictType from: " <> x)
instance ToHttpApiData DriveFollowUpRestrictType where
toQueryParam = \case
DFURTUnspecified -> "UNSPECIFIED"
DFURTFollowupSuggestions -> "FOLLOWUP_SUGGESTIONS"
DFURTFollowupActionItems -> "FOLLOWUP_ACTION_ITEMS"
instance FromJSON DriveFollowUpRestrictType where
parseJSON = parseJSONText "DriveFollowUpRestrictType"
instance ToJSON DriveFollowUpRestrictType where
toJSON = toJSONText
data ItemStatusCode
= CodeUnspecified
| Error'
| Modified
| NewItem
| Accepted
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ItemStatusCode
instance FromHttpApiData ItemStatusCode where
parseQueryParam = \case
"CODE_UNSPECIFIED" -> Right CodeUnspecified
"ERROR" -> Right Error'
"MODIFIED" -> Right Modified
"NEW_ITEM" -> Right NewItem
"ACCEPTED" -> Right Accepted
x -> Left ("Unable to parse ItemStatusCode from: " <> x)
instance ToHttpApiData ItemStatusCode where
toQueryParam = \case
CodeUnspecified -> "CODE_UNSPECIFIED"
Error' -> "ERROR"
Modified -> "MODIFIED"
NewItem -> "NEW_ITEM"
Accepted -> "ACCEPTED"
instance FromJSON ItemStatusCode where
parseJSON = parseJSONText "ItemStatusCode"
instance ToJSON ItemStatusCode where
toJSON = toJSONText
data QueryInterpretationInterpretationType
= None
| Blend
| Replace
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable QueryInterpretationInterpretationType
instance FromHttpApiData QueryInterpretationInterpretationType where
parseQueryParam = \case
"NONE" -> Right None
"BLEND" -> Right Blend
"REPLACE" -> Right Replace
x -> Left ("Unable to parse QueryInterpretationInterpretationType from: " <> x)
instance ToHttpApiData QueryInterpretationInterpretationType where
toQueryParam = \case
None -> "NONE"
Blend -> "BLEND"
Replace -> "REPLACE"
instance FromJSON QueryInterpretationInterpretationType where
parseJSON = parseJSONText "QueryInterpretationInterpretationType"
instance ToJSON QueryInterpretationInterpretationType where
toJSON = toJSONText
data InteractionType
= ITUnspecified
| ITView
| ITEdit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable InteractionType
instance FromHttpApiData InteractionType where
parseQueryParam = \case
"UNSPECIFIED" -> Right ITUnspecified
"VIEW" -> Right ITView
"EDIT" -> Right ITEdit
x -> Left ("Unable to parse InteractionType from: " <> x)
instance ToHttpApiData InteractionType where
toQueryParam = \case
ITUnspecified -> "UNSPECIFIED"
ITView -> "VIEW"
ITEdit -> "EDIT"
instance FromJSON InteractionType where
parseJSON = parseJSONText "InteractionType"
instance ToJSON InteractionType where
toJSON = toJSONText
data QueryOperatorType
= QOTUnknown
| QOTInteger
| QOTDouble
| QOTTimestamp
| QOTBoolean
| QOTEnum'
| QOTDate
| QOTText
| QOTHTML
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable QueryOperatorType
instance FromHttpApiData QueryOperatorType where
parseQueryParam = \case
"UNKNOWN" -> Right QOTUnknown
"INTEGER" -> Right QOTInteger
"DOUBLE" -> Right QOTDouble
"TIMESTAMP" -> Right QOTTimestamp
"BOOLEAN" -> Right QOTBoolean
"ENUM" -> Right QOTEnum'
"DATE" -> Right QOTDate
"TEXT" -> Right QOTText
"HTML" -> Right QOTHTML
x -> Left ("Unable to parse QueryOperatorType from: " <> x)
instance ToHttpApiData QueryOperatorType where
toQueryParam = \case
QOTUnknown -> "UNKNOWN"
QOTInteger -> "INTEGER"
QOTDouble -> "DOUBLE"
QOTTimestamp -> "TIMESTAMP"
QOTBoolean -> "BOOLEAN"
QOTEnum' -> "ENUM"
QOTDate -> "DATE"
QOTText -> "TEXT"
QOTHTML -> "HTML"
instance FromJSON QueryOperatorType where
parseJSON = parseJSONText "QueryOperatorType"
instance ToJSON QueryOperatorType where
toJSON = toJSONText
data EnumPropertyOptionsOrderedRanking
= NoOrder
| Ascending
| Descending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable EnumPropertyOptionsOrderedRanking
instance FromHttpApiData EnumPropertyOptionsOrderedRanking where
parseQueryParam = \case
"NO_ORDER" -> Right NoOrder
"ASCENDING" -> Right Ascending
"DESCENDING" -> Right Descending
x -> Left ("Unable to parse EnumPropertyOptionsOrderedRanking from: " <> x)
instance ToHttpApiData EnumPropertyOptionsOrderedRanking where
toQueryParam = \case
NoOrder -> "NO_ORDER"
Ascending -> "ASCENDING"
Descending -> "DESCENDING"
instance FromJSON EnumPropertyOptionsOrderedRanking where
parseJSON = parseJSONText "EnumPropertyOptionsOrderedRanking"
instance ToJSON EnumPropertyOptionsOrderedRanking where
toJSON = toJSONText
data IntegerPropertyOptionsOrderedRanking
= IPOORNoOrder
| IPOORAscending
| IPOORDescending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable IntegerPropertyOptionsOrderedRanking
instance FromHttpApiData IntegerPropertyOptionsOrderedRanking where
parseQueryParam = \case
"NO_ORDER" -> Right IPOORNoOrder
"ASCENDING" -> Right IPOORAscending
"DESCENDING" -> Right IPOORDescending
x -> Left ("Unable to parse IntegerPropertyOptionsOrderedRanking from: " <> x)
instance ToHttpApiData IntegerPropertyOptionsOrderedRanking where
toQueryParam = \case
IPOORNoOrder -> "NO_ORDER"
IPOORAscending -> "ASCENDING"
IPOORDescending -> "DESCENDING"
instance FromJSON IntegerPropertyOptionsOrderedRanking where
parseJSON = parseJSONText "IntegerPropertyOptionsOrderedRanking"
instance ToJSON IntegerPropertyOptionsOrderedRanking where
toJSON = toJSONText
data PushItemType
= PITUnspecified
| PITModified
| PITNotModified
| PITRepositoryError
| PITReQueue
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PushItemType
instance FromHttpApiData PushItemType where
parseQueryParam = \case
"UNSPECIFIED" -> Right PITUnspecified
"MODIFIED" -> Right PITModified
"NOT_MODIFIED" -> Right PITNotModified
"REPOSITORY_ERROR" -> Right PITRepositoryError
"REQUEUE" -> Right PITReQueue
x -> Left ("Unable to parse PushItemType from: " <> x)
instance ToHttpApiData PushItemType where
toQueryParam = \case
PITUnspecified -> "UNSPECIFIED"
PITModified -> "MODIFIED"
PITNotModified -> "NOT_MODIFIED"
PITRepositoryError -> "REPOSITORY_ERROR"
PITReQueue -> "REQUEUE"
instance FromJSON PushItemType where
parseJSON = parseJSONText "PushItemType"
instance ToJSON PushItemType where
toJSON = toJSONText
data CompositeFilterLogicOperator
= And
| OR
| Not
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CompositeFilterLogicOperator
instance FromHttpApiData CompositeFilterLogicOperator where
parseQueryParam = \case
"AND" -> Right And
"OR" -> Right OR
"NOT" -> Right Not
x -> Left ("Unable to parse CompositeFilterLogicOperator from: " <> x)
instance ToHttpApiData CompositeFilterLogicOperator where
toQueryParam = \case
And -> "AND"
OR -> "OR"
Not -> "NOT"
instance FromJSON CompositeFilterLogicOperator where
parseJSON = parseJSONText "CompositeFilterLogicOperator"
instance ToJSON CompositeFilterLogicOperator where
toJSON = toJSONText
data SourceScoringConfigSourceImportance
= Default
| Low
| High
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SourceScoringConfigSourceImportance
instance FromHttpApiData SourceScoringConfigSourceImportance where
parseQueryParam = \case
"DEFAULT" -> Right Default
"LOW" -> Right Low
"HIGH" -> Right High
x -> Left ("Unable to parse SourceScoringConfigSourceImportance from: " <> x)
instance ToHttpApiData SourceScoringConfigSourceImportance where
toQueryParam = \case
Default -> "DEFAULT"
Low -> "LOW"
High -> "HIGH"
instance FromJSON SourceScoringConfigSourceImportance where
parseJSON = parseJSONText "SourceScoringConfigSourceImportance"
instance ToJSON SourceScoringConfigSourceImportance where
toJSON = toJSONText
data RetrievalImportanceImportance
= RIIDefault
| RIIHighest
| RIIHigh
| RIILow
| RIINone
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RetrievalImportanceImportance
instance FromHttpApiData RetrievalImportanceImportance where
parseQueryParam = \case
"DEFAULT" -> Right RIIDefault
"HIGHEST" -> Right RIIHighest
"HIGH" -> Right RIIHigh
"LOW" -> Right RIILow
"NONE" -> Right RIINone
x -> Left ("Unable to parse RetrievalImportanceImportance from: " <> x)
instance ToHttpApiData RetrievalImportanceImportance where
toQueryParam = \case
RIIDefault -> "DEFAULT"
RIIHighest -> "HIGHEST"
RIIHigh -> "HIGH"
RIILow -> "LOW"
RIINone -> "NONE"
instance FromJSON RetrievalImportanceImportance where
parseJSON = parseJSONText "RetrievalImportanceImportance"
instance ToJSON RetrievalImportanceImportance where
toJSON = toJSONText
data ProcessingErrorCode
= ProcessingErrorCodeUnspecified
| MalformedRequest
| UnsupportedContentFormat
| IndirectBrokenACL
| ACLCycle
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ProcessingErrorCode
instance FromHttpApiData ProcessingErrorCode where
parseQueryParam = \case
"PROCESSING_ERROR_CODE_UNSPECIFIED" -> Right ProcessingErrorCodeUnspecified
"MALFORMED_REQUEST" -> Right MalformedRequest
"UNSUPPORTED_CONTENT_FORMAT" -> Right UnsupportedContentFormat
"INDIRECT_BROKEN_ACL" -> Right IndirectBrokenACL
"ACL_CYCLE" -> Right ACLCycle
x -> Left ("Unable to parse ProcessingErrorCode from: " <> x)
instance ToHttpApiData ProcessingErrorCode where
toQueryParam = \case
ProcessingErrorCodeUnspecified -> "PROCESSING_ERROR_CODE_UNSPECIFIED"
MalformedRequest -> "MALFORMED_REQUEST"
UnsupportedContentFormat -> "UNSUPPORTED_CONTENT_FORMAT"
IndirectBrokenACL -> "INDIRECT_BROKEN_ACL"
ACLCycle -> "ACL_CYCLE"
instance FromJSON ProcessingErrorCode where
parseJSON = parseJSONText "ProcessingErrorCode"
instance ToJSON ProcessingErrorCode where
toJSON = toJSONText
data SortOptionsSortOrder
= SOSOAscending
| SOSODescending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SortOptionsSortOrder
instance FromHttpApiData SortOptionsSortOrder where
parseQueryParam = \case
"ASCENDING" -> Right SOSOAscending
"DESCENDING" -> Right SOSODescending
x -> Left ("Unable to parse SortOptionsSortOrder from: " <> x)
instance ToHttpApiData SortOptionsSortOrder where
toQueryParam = \case
SOSOAscending -> "ASCENDING"
SOSODescending -> "DESCENDING"
instance FromJSON SortOptionsSortOrder where
parseJSON = parseJSONText "SortOptionsSortOrder"
instance ToJSON SortOptionsSortOrder where
toJSON = toJSONText
data UnmAppedIdentityResolutionStatusCode
= UAIRSCCodeUnspecified
| UAIRSCNotFound
| UAIRSCIdentitySourceNotFound
| UAIRSCIdentitySourceMisConfigured
| UAIRSCTooManyMAppingsFound
| UAIRSCInternalError
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable UnmAppedIdentityResolutionStatusCode
instance FromHttpApiData UnmAppedIdentityResolutionStatusCode where
parseQueryParam = \case
"CODE_UNSPECIFIED" -> Right UAIRSCCodeUnspecified
"NOT_FOUND" -> Right UAIRSCNotFound
"IDENTITY_SOURCE_NOT_FOUND" -> Right UAIRSCIdentitySourceNotFound
"IDENTITY_SOURCE_MISCONFIGURED" -> Right UAIRSCIdentitySourceMisConfigured
"TOO_MANY_MAPPINGS_FOUND" -> Right UAIRSCTooManyMAppingsFound
"INTERNAL_ERROR" -> Right UAIRSCInternalError
x -> Left ("Unable to parse UnmAppedIdentityResolutionStatusCode from: " <> x)
instance ToHttpApiData UnmAppedIdentityResolutionStatusCode where
toQueryParam = \case
UAIRSCCodeUnspecified -> "CODE_UNSPECIFIED"
UAIRSCNotFound -> "NOT_FOUND"
UAIRSCIdentitySourceNotFound -> "IDENTITY_SOURCE_NOT_FOUND"
UAIRSCIdentitySourceMisConfigured -> "IDENTITY_SOURCE_MISCONFIGURED"
UAIRSCTooManyMAppingsFound -> "TOO_MANY_MAPPINGS_FOUND"
UAIRSCInternalError -> "INTERNAL_ERROR"
instance FromJSON UnmAppedIdentityResolutionStatusCode where
parseJSON = parseJSONText "UnmAppedIdentityResolutionStatusCode"
instance ToJSON UnmAppedIdentityResolutionStatusCode where
toJSON = toJSONText
data Xgafv
= X1
| X2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable Xgafv
instance FromHttpApiData Xgafv where
parseQueryParam = \case
"1" -> Right X1
"2" -> Right X2
x -> Left ("Unable to parse Xgafv from: " <> x)
instance ToHttpApiData Xgafv where
toQueryParam = \case
X1 -> "1"
X2 -> "2"
instance FromJSON Xgafv where
parseJSON = parseJSONText "Xgafv"
instance ToJSON Xgafv where
toJSON = toJSONText
data RepositoryErrorType
= Unknown
| NetworkError
| DNSError
| ConnectionError
| AuthenticationError
| AuthorizationError
| ServerError
| QuotaExceeded
| ServiceUnavailable
| ClientError
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable RepositoryErrorType
instance FromHttpApiData RepositoryErrorType where
parseQueryParam = \case
"UNKNOWN" -> Right Unknown
"NETWORK_ERROR" -> Right NetworkError
"DNS_ERROR" -> Right DNSError
"CONNECTION_ERROR" -> Right ConnectionError
"AUTHENTICATION_ERROR" -> Right AuthenticationError
"AUTHORIZATION_ERROR" -> Right AuthorizationError
"SERVER_ERROR" -> Right ServerError
"QUOTA_EXCEEDED" -> Right QuotaExceeded
"SERVICE_UNAVAILABLE" -> Right ServiceUnavailable
"CLIENT_ERROR" -> Right ClientError
x -> Left ("Unable to parse RepositoryErrorType from: " <> x)
instance ToHttpApiData RepositoryErrorType where
toQueryParam = \case
Unknown -> "UNKNOWN"
NetworkError -> "NETWORK_ERROR"
DNSError -> "DNS_ERROR"
ConnectionError -> "CONNECTION_ERROR"
AuthenticationError -> "AUTHENTICATION_ERROR"
AuthorizationError -> "AUTHORIZATION_ERROR"
ServerError -> "SERVER_ERROR"
QuotaExceeded -> "QUOTA_EXCEEDED"
ServiceUnavailable -> "SERVICE_UNAVAILABLE"
ClientError -> "CLIENT_ERROR"
instance FromJSON RepositoryErrorType where
parseJSON = parseJSONText "RepositoryErrorType"
instance ToJSON RepositoryErrorType where
toJSON = toJSONText
data DriveLocationRestrictType
= DLRTUnspecified
| DLRTTrashed
| DLRTStarred
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DriveLocationRestrictType
instance FromHttpApiData DriveLocationRestrictType where
parseQueryParam = \case
"UNSPECIFIED" -> Right DLRTUnspecified
"TRASHED" -> Right DLRTTrashed
"STARRED" -> Right DLRTStarred
x -> Left ("Unable to parse DriveLocationRestrictType from: " <> x)
instance ToHttpApiData DriveLocationRestrictType where
toQueryParam = \case
DLRTUnspecified -> "UNSPECIFIED"
DLRTTrashed -> "TRASHED"
DLRTStarred -> "STARRED"
instance FromJSON DriveLocationRestrictType where
parseJSON = parseJSONText "DriveLocationRestrictType"
instance ToJSON DriveLocationRestrictType where
toJSON = toJSONText
data ItemItemType
= IITUnspecified
| IITContentItem
| IITContainerItem
| IITVirtualContainerItem
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ItemItemType
instance FromHttpApiData ItemItemType where
parseQueryParam = \case
"UNSPECIFIED" -> Right IITUnspecified
"CONTENT_ITEM" -> Right IITContentItem
"CONTAINER_ITEM" -> Right IITContainerItem
"VIRTUAL_CONTAINER_ITEM" -> Right IITVirtualContainerItem
x -> Left ("Unable to parse ItemItemType from: " <> x)
instance ToHttpApiData ItemItemType where
toQueryParam = \case
IITUnspecified -> "UNSPECIFIED"
IITContentItem -> "CONTENT_ITEM"
IITContainerItem -> "CONTAINER_ITEM"
IITVirtualContainerItem -> "VIRTUAL_CONTAINER_ITEM"
instance FromJSON ItemItemType where
parseJSON = parseJSONText "ItemItemType"
instance ToJSON ItemItemType where
toJSON = toJSONText
data ItemCountByStatusStatusCode
= ICBSSCCodeUnspecified
| ICBSSCError'
| ICBSSCModified
| ICBSSCNewItem
| ICBSSCAccepted
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ItemCountByStatusStatusCode
instance FromHttpApiData ItemCountByStatusStatusCode where
parseQueryParam = \case
"CODE_UNSPECIFIED" -> Right ICBSSCCodeUnspecified
"ERROR" -> Right ICBSSCError'
"MODIFIED" -> Right ICBSSCModified
"NEW_ITEM" -> Right ICBSSCNewItem
"ACCEPTED" -> Right ICBSSCAccepted
x -> Left ("Unable to parse ItemCountByStatusStatusCode from: " <> x)
instance ToHttpApiData ItemCountByStatusStatusCode where
toQueryParam = \case
ICBSSCCodeUnspecified -> "CODE_UNSPECIFIED"
ICBSSCError' -> "ERROR"
ICBSSCModified -> "MODIFIED"
ICBSSCNewItem -> "NEW_ITEM"
ICBSSCAccepted -> "ACCEPTED"
instance FromJSON ItemCountByStatusStatusCode where
parseJSON = parseJSONText "ItemCountByStatusStatusCode"
instance ToJSON ItemCountByStatusStatusCode where
toJSON = toJSONText
data ItemContentContentFormat
= ICCFUnspecified
| ICCFHTML
| ICCFText
| ICCFRaw
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ItemContentContentFormat
instance FromHttpApiData ItemContentContentFormat where
parseQueryParam = \case
"UNSPECIFIED" -> Right ICCFUnspecified
"HTML" -> Right ICCFHTML
"TEXT" -> Right ICCFText
"RAW" -> Right ICCFRaw
x -> Left ("Unable to parse ItemContentContentFormat from: " <> x)
instance ToHttpApiData ItemContentContentFormat where
toQueryParam = \case
ICCFUnspecified -> "UNSPECIFIED"
ICCFHTML -> "HTML"
ICCFText -> "TEXT"
ICCFRaw -> "RAW"
instance FromJSON ItemContentContentFormat where
parseJSON = parseJSONText "ItemContentContentFormat"
instance ToJSON ItemContentContentFormat where
toJSON = toJSONText
data SourcePredefinedSource
= SPSNone
| SPSQueryHistory
| SPSPerson
| SPSGoogleDrive
| SPSGoogleGmail
| SPSGoogleSites
| SPSGoogleGroups
| SPSGoogleCalendar
| SPSGoogleKeep
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SourcePredefinedSource
instance FromHttpApiData SourcePredefinedSource where
parseQueryParam = \case
"NONE" -> Right SPSNone
"QUERY_HISTORY" -> Right SPSQueryHistory
"PERSON" -> Right SPSPerson
"GOOGLE_DRIVE" -> Right SPSGoogleDrive
"GOOGLE_GMAIL" -> Right SPSGoogleGmail
"GOOGLE_SITES" -> Right SPSGoogleSites
"GOOGLE_GROUPS" -> Right SPSGoogleGroups
"GOOGLE_CALENDAR" -> Right SPSGoogleCalendar
"GOOGLE_KEEP" -> Right SPSGoogleKeep
x -> Left ("Unable to parse SourcePredefinedSource from: " <> x)
instance ToHttpApiData SourcePredefinedSource where
toQueryParam = \case
SPSNone -> "NONE"
SPSQueryHistory -> "QUERY_HISTORY"
SPSPerson -> "PERSON"
SPSGoogleDrive -> "GOOGLE_DRIVE"
SPSGoogleGmail -> "GOOGLE_GMAIL"
SPSGoogleSites -> "GOOGLE_SITES"
SPSGoogleGroups -> "GOOGLE_GROUPS"
SPSGoogleCalendar -> "GOOGLE_CALENDAR"
SPSGoogleKeep -> "GOOGLE_KEEP"
instance FromJSON SourcePredefinedSource where
parseJSON = parseJSONText "SourcePredefinedSource"
instance ToJSON SourcePredefinedSource where
toJSON = toJSONText
data DriveTimeSpanRestrictType
= DTSRTUnspecified
| DTSRTToday
| DTSRTYesterday
| DTSRTLast7Days
| DTSRTLast30Days
| DTSRTLast90Days
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DriveTimeSpanRestrictType
instance FromHttpApiData DriveTimeSpanRestrictType where
parseQueryParam = \case
"UNSPECIFIED" -> Right DTSRTUnspecified
"TODAY" -> Right DTSRTToday
"YESTERDAY" -> Right DTSRTYesterday
"LAST_7_DAYS" -> Right DTSRTLast7Days
"LAST_30_DAYS" -> Right DTSRTLast30Days
"LAST_90_DAYS" -> Right DTSRTLast90Days
x -> Left ("Unable to parse DriveTimeSpanRestrictType from: " <> x)
instance ToHttpApiData DriveTimeSpanRestrictType where
toQueryParam = \case
DTSRTUnspecified -> "UNSPECIFIED"
DTSRTToday -> "TODAY"
DTSRTYesterday -> "YESTERDAY"
DTSRTLast7Days -> "LAST_7_DAYS"
DTSRTLast30Days -> "LAST_30_DAYS"
DTSRTLast90Days -> "LAST_90_DAYS"
instance FromJSON DriveTimeSpanRestrictType where
parseJSON = parseJSONText "DriveTimeSpanRestrictType"
instance ToJSON DriveTimeSpanRestrictType where
toJSON = toJSONText
data IndexItemRequestMode
= IIRMUnspecified
| IIRMSynchronous
| IIRMAsynchronous
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable IndexItemRequestMode
instance FromHttpApiData IndexItemRequestMode where
parseQueryParam = \case
"UNSPECIFIED" -> Right IIRMUnspecified
"SYNCHRONOUS" -> Right IIRMSynchronous
"ASYNCHRONOUS" -> Right IIRMAsynchronous
x -> Left ("Unable to parse IndexItemRequestMode from: " <> x)
instance ToHttpApiData IndexItemRequestMode where
toQueryParam = \case
IIRMUnspecified -> "UNSPECIFIED"
IIRMSynchronous -> "SYNCHRONOUS"
IIRMAsynchronous -> "ASYNCHRONOUS"
instance FromJSON IndexItemRequestMode where
parseJSON = parseJSONText "IndexItemRequestMode"
instance ToJSON IndexItemRequestMode where
toJSON = toJSONText
data ItemACLACLInheritanceType
= NotApplicable
| ChildOverride
| ParentOverride
| BothPermit
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ItemACLACLInheritanceType
instance FromHttpApiData ItemACLACLInheritanceType where
parseQueryParam = \case
"NOT_APPLICABLE" -> Right NotApplicable
"CHILD_OVERRIDE" -> Right ChildOverride
"PARENT_OVERRIDE" -> Right ParentOverride
"BOTH_PERMIT" -> Right BothPermit
x -> Left ("Unable to parse ItemACLACLInheritanceType from: " <> x)
instance ToHttpApiData ItemACLACLInheritanceType where
toQueryParam = \case
NotApplicable -> "NOT_APPLICABLE"
ChildOverride -> "CHILD_OVERRIDE"
ParentOverride -> "PARENT_OVERRIDE"
BothPermit -> "BOTH_PERMIT"
instance FromJSON ItemACLACLInheritanceType where
parseJSON = parseJSONText "ItemACLACLInheritanceType"
instance ToJSON ItemACLACLInheritanceType where
toJSON = toJSONText