module Network.Google.Gmail.Types.Sum where
import Network.Google.Prelude
data UsersMessagesGetFormat
= Full
| Metadata
| Minimal
| Raw
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable UsersMessagesGetFormat
instance FromText UsersMessagesGetFormat where
fromText = \case
"full" -> Just Full
"metadata" -> Just Metadata
"minimal" -> Just Minimal
"raw" -> Just Raw
_ -> Nothing
instance ToText UsersMessagesGetFormat where
toText = \case
Full -> "full"
Metadata -> "metadata"
Minimal -> "minimal"
Raw -> "raw"
instance FromJSON UsersMessagesGetFormat where
parseJSON = parseJSONText "UsersMessagesGetFormat"
instance ToJSON UsersMessagesGetFormat where
toJSON = toJSONText
data LabelType
= System
| User
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable LabelType
instance FromText LabelType where
fromText = \case
"system" -> Just System
"user" -> Just User
_ -> Nothing
instance ToText LabelType where
toText = \case
System -> "system"
User -> "user"
instance FromJSON LabelType where
parseJSON = parseJSONText "LabelType"
instance ToJSON LabelType where
toJSON = toJSONText
data UsersDraftsGetFormat
= UDGFFull
| UDGFMetadata
| UDGFMinimal
| UDGFRaw
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable UsersDraftsGetFormat
instance FromText UsersDraftsGetFormat where
fromText = \case
"full" -> Just UDGFFull
"metadata" -> Just UDGFMetadata
"minimal" -> Just UDGFMinimal
"raw" -> Just UDGFRaw
_ -> Nothing
instance ToText UsersDraftsGetFormat where
toText = \case
UDGFFull -> "full"
UDGFMetadata -> "metadata"
UDGFMinimal -> "minimal"
UDGFRaw -> "raw"
instance FromJSON UsersDraftsGetFormat where
parseJSON = parseJSONText "UsersDraftsGetFormat"
instance ToJSON UsersDraftsGetFormat where
toJSON = toJSONText
data UsersMessagesImportInternalDateSource
= DateHeader
| ReceivedTime
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable UsersMessagesImportInternalDateSource
instance FromText UsersMessagesImportInternalDateSource where
fromText = \case
"dateHeader" -> Just DateHeader
"receivedTime" -> Just ReceivedTime
_ -> Nothing
instance ToText UsersMessagesImportInternalDateSource where
toText = \case
DateHeader -> "dateHeader"
ReceivedTime -> "receivedTime"
instance FromJSON UsersMessagesImportInternalDateSource where
parseJSON = parseJSONText "UsersMessagesImportInternalDateSource"
instance ToJSON UsersMessagesImportInternalDateSource where
toJSON = toJSONText
data LabelMessageListVisibility
= Hide
| Show
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable LabelMessageListVisibility
instance FromText LabelMessageListVisibility where
fromText = \case
"hide" -> Just Hide
"show" -> Just Show
_ -> Nothing
instance ToText LabelMessageListVisibility where
toText = \case
Hide -> "hide"
Show -> "show"
instance FromJSON LabelMessageListVisibility where
parseJSON = parseJSONText "LabelMessageListVisibility"
instance ToJSON LabelMessageListVisibility where
toJSON = toJSONText
data LabelLabelListVisibility
= LabelHide
| LabelShow
| LabelShowIfUnread
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable LabelLabelListVisibility
instance FromText LabelLabelListVisibility where
fromText = \case
"labelHide" -> Just LabelHide
"labelShow" -> Just LabelShow
"labelShowIfUnread" -> Just LabelShowIfUnread
_ -> Nothing
instance ToText LabelLabelListVisibility where
toText = \case
LabelHide -> "labelHide"
LabelShow -> "labelShow"
LabelShowIfUnread -> "labelShowIfUnread"
instance FromJSON LabelLabelListVisibility where
parseJSON = parseJSONText "LabelLabelListVisibility"
instance ToJSON LabelLabelListVisibility where
toJSON = toJSONText
data UsersThreadsGetFormat
= UTGFFull
| UTGFMetadata
| UTGFMinimal
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable UsersThreadsGetFormat
instance FromText UsersThreadsGetFormat where
fromText = \case
"full" -> Just UTGFFull
"metadata" -> Just UTGFMetadata
"minimal" -> Just UTGFMinimal
_ -> Nothing
instance ToText UsersThreadsGetFormat where
toText = \case
UTGFFull -> "full"
UTGFMetadata -> "metadata"
UTGFMinimal -> "minimal"
instance FromJSON UsersThreadsGetFormat where
parseJSON = parseJSONText "UsersThreadsGetFormat"
instance ToJSON UsersThreadsGetFormat where
toJSON = toJSONText
data WatchRequestLabelFilterAction
= Exclude
| Include
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable WatchRequestLabelFilterAction
instance FromText WatchRequestLabelFilterAction where
fromText = \case
"exclude" -> Just Exclude
"include" -> Just Include
_ -> Nothing
instance ToText WatchRequestLabelFilterAction where
toText = \case
Exclude -> "exclude"
Include -> "include"
instance FromJSON WatchRequestLabelFilterAction where
parseJSON = parseJSONText "WatchRequestLabelFilterAction"
instance ToJSON WatchRequestLabelFilterAction where
toJSON = toJSONText
data UsersMessagesInsertInternalDateSource
= UMIIDSDateHeader
| UMIIDSReceivedTime
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable UsersMessagesInsertInternalDateSource
instance FromText UsersMessagesInsertInternalDateSource where
fromText = \case
"dateHeader" -> Just UMIIDSDateHeader
"receivedTime" -> Just UMIIDSReceivedTime
_ -> Nothing
instance ToText UsersMessagesInsertInternalDateSource where
toText = \case
UMIIDSDateHeader -> "dateHeader"
UMIIDSReceivedTime -> "receivedTime"
instance FromJSON UsersMessagesInsertInternalDateSource where
parseJSON = parseJSONText "UsersMessagesInsertInternalDateSource"
instance ToJSON UsersMessagesInsertInternalDateSource where
toJSON = toJSONText