{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Sheets.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data BasicChartSpecStackedType
= BasicChartStackedTypeUnspecified
| NotStacked
| Stacked
| PercentStacked
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartSpecStackedType
instance FromHttpApiData BasicChartSpecStackedType where
parseQueryParam = \case
"BASIC_CHART_STACKED_TYPE_UNSPECIFIED" -> Right BasicChartStackedTypeUnspecified
"NOT_STACKED" -> Right NotStacked
"STACKED" -> Right Stacked
"PERCENT_STACKED" -> Right PercentStacked
x -> Left ("Unable to parse BasicChartSpecStackedType from: " <> x)
instance ToHttpApiData BasicChartSpecStackedType where
toQueryParam = \case
BasicChartStackedTypeUnspecified -> "BASIC_CHART_STACKED_TYPE_UNSPECIFIED"
NotStacked -> "NOT_STACKED"
Stacked -> "STACKED"
PercentStacked -> "PERCENT_STACKED"
instance FromJSON BasicChartSpecStackedType where
parseJSON = parseJSONText "BasicChartSpecStackedType"
instance ToJSON BasicChartSpecStackedType where
toJSON = toJSONText
data CopyPasteRequestPasteType
= PasteNormal
| PasteValues
| PasteFormat
| PasteNoBOrders
| PasteFormula
| PasteDataValidation
| PasteConditionalFormatting
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CopyPasteRequestPasteType
instance FromHttpApiData CopyPasteRequestPasteType where
parseQueryParam = \case
"PASTE_NORMAL" -> Right PasteNormal
"PASTE_VALUES" -> Right PasteValues
"PASTE_FORMAT" -> Right PasteFormat
"PASTE_NO_BORDERS" -> Right PasteNoBOrders
"PASTE_FORMULA" -> Right PasteFormula
"PASTE_DATA_VALIDATION" -> Right PasteDataValidation
"PASTE_CONDITIONAL_FORMATTING" -> Right PasteConditionalFormatting
x -> Left ("Unable to parse CopyPasteRequestPasteType from: " <> x)
instance ToHttpApiData CopyPasteRequestPasteType where
toQueryParam = \case
PasteNormal -> "PASTE_NORMAL"
PasteValues -> "PASTE_VALUES"
PasteFormat -> "PASTE_FORMAT"
PasteNoBOrders -> "PASTE_NO_BORDERS"
PasteFormula -> "PASTE_FORMULA"
PasteDataValidation -> "PASTE_DATA_VALIDATION"
PasteConditionalFormatting -> "PASTE_CONDITIONAL_FORMATTING"
instance FromJSON CopyPasteRequestPasteType where
parseJSON = parseJSONText "CopyPasteRequestPasteType"
instance ToJSON CopyPasteRequestPasteType where
toJSON = toJSONText
data DeveloperMetadataLookupLocationMatchingStrategy
= DeveloperMetadataLocationMatchingStrategyUnspecified
| ExactLocation
| IntersectingLocation
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeveloperMetadataLookupLocationMatchingStrategy
instance FromHttpApiData DeveloperMetadataLookupLocationMatchingStrategy where
parseQueryParam = \case
"DEVELOPER_METADATA_LOCATION_MATCHING_STRATEGY_UNSPECIFIED" -> Right DeveloperMetadataLocationMatchingStrategyUnspecified
"EXACT_LOCATION" -> Right ExactLocation
"INTERSECTING_LOCATION" -> Right IntersectingLocation
x -> Left ("Unable to parse DeveloperMetadataLookupLocationMatchingStrategy from: " <> x)
instance ToHttpApiData DeveloperMetadataLookupLocationMatchingStrategy where
toQueryParam = \case
DeveloperMetadataLocationMatchingStrategyUnspecified -> "DEVELOPER_METADATA_LOCATION_MATCHING_STRATEGY_UNSPECIFIED"
ExactLocation -> "EXACT_LOCATION"
IntersectingLocation -> "INTERSECTING_LOCATION"
instance FromJSON DeveloperMetadataLookupLocationMatchingStrategy where
parseJSON = parseJSONText "DeveloperMetadataLookupLocationMatchingStrategy"
instance ToJSON DeveloperMetadataLookupLocationMatchingStrategy where
toJSON = toJSONText
data BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption
= SerialNumber
| FormattedString
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption
instance FromHttpApiData BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption where
parseQueryParam = \case
"SERIAL_NUMBER" -> Right SerialNumber
"FORMATTED_STRING" -> Right FormattedString
x -> Left ("Unable to parse BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption from: " <> x)
instance ToHttpApiData BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption where
toQueryParam = \case
SerialNumber -> "SERIAL_NUMBER"
FormattedString -> "FORMATTED_STRING"
instance FromJSON BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption where
parseJSON = parseJSONText "BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption"
instance ToJSON BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption where
toJSON = toJSONText
data BasicChartAxisPosition
= BasicChartAxisPositionUnspecified
| BottomAxis
| LeftAxis
| RightAxis
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartAxisPosition
instance FromHttpApiData BasicChartAxisPosition where
parseQueryParam = \case
"BASIC_CHART_AXIS_POSITION_UNSPECIFIED" -> Right BasicChartAxisPositionUnspecified
"BOTTOM_AXIS" -> Right BottomAxis
"LEFT_AXIS" -> Right LeftAxis
"RIGHT_AXIS" -> Right RightAxis
x -> Left ("Unable to parse BasicChartAxisPosition from: " <> x)
instance ToHttpApiData BasicChartAxisPosition where
toQueryParam = \case
BasicChartAxisPositionUnspecified -> "BASIC_CHART_AXIS_POSITION_UNSPECIFIED"
BottomAxis -> "BOTTOM_AXIS"
LeftAxis -> "LEFT_AXIS"
RightAxis -> "RIGHT_AXIS"
instance FromJSON BasicChartAxisPosition where
parseJSON = parseJSONText "BasicChartAxisPosition"
instance ToJSON BasicChartAxisPosition where
toJSON = toJSONText
data DeleteRangeRequestShiftDimension
= DimensionUnspecified
| Rows
| Columns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeleteRangeRequestShiftDimension
instance FromHttpApiData DeleteRangeRequestShiftDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right DimensionUnspecified
"ROWS" -> Right Rows
"COLUMNS" -> Right Columns
x -> Left ("Unable to parse DeleteRangeRequestShiftDimension from: " <> x)
instance ToHttpApiData DeleteRangeRequestShiftDimension where
toQueryParam = \case
DimensionUnspecified -> "DIMENSION_UNSPECIFIED"
Rows -> "ROWS"
Columns -> "COLUMNS"
instance FromJSON DeleteRangeRequestShiftDimension where
parseJSON = parseJSONText "DeleteRangeRequestShiftDimension"
instance ToJSON DeleteRangeRequestShiftDimension where
toJSON = toJSONText
data BasicChartSeriesTargetAxis
= BCSTABasicChartAxisPositionUnspecified
| BCSTABottomAxis
| BCSTALeftAxis
| BCSTARightAxis
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartSeriesTargetAxis
instance FromHttpApiData BasicChartSeriesTargetAxis where
parseQueryParam = \case
"BASIC_CHART_AXIS_POSITION_UNSPECIFIED" -> Right BCSTABasicChartAxisPositionUnspecified
"BOTTOM_AXIS" -> Right BCSTABottomAxis
"LEFT_AXIS" -> Right BCSTALeftAxis
"RIGHT_AXIS" -> Right BCSTARightAxis
x -> Left ("Unable to parse BasicChartSeriesTargetAxis from: " <> x)
instance ToHttpApiData BasicChartSeriesTargetAxis where
toQueryParam = \case
BCSTABasicChartAxisPositionUnspecified -> "BASIC_CHART_AXIS_POSITION_UNSPECIFIED"
BCSTABottomAxis -> "BOTTOM_AXIS"
BCSTALeftAxis -> "LEFT_AXIS"
BCSTARightAxis -> "RIGHT_AXIS"
instance FromJSON BasicChartSeriesTargetAxis where
parseJSON = parseJSONText "BasicChartSeriesTargetAxis"
instance ToJSON BasicChartSeriesTargetAxis where
toJSON = toJSONText
data DataFilterValueRangeMajorDimension
= DFVRMDDimensionUnspecified
| DFVRMDRows
| DFVRMDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DataFilterValueRangeMajorDimension
instance FromHttpApiData DataFilterValueRangeMajorDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right DFVRMDDimensionUnspecified
"ROWS" -> Right DFVRMDRows
"COLUMNS" -> Right DFVRMDColumns
x -> Left ("Unable to parse DataFilterValueRangeMajorDimension from: " <> x)
instance ToHttpApiData DataFilterValueRangeMajorDimension where
toQueryParam = \case
DFVRMDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
DFVRMDRows -> "ROWS"
DFVRMDColumns -> "COLUMNS"
instance FromJSON DataFilterValueRangeMajorDimension where
parseJSON = parseJSONText "DataFilterValueRangeMajorDimension"
instance ToJSON DataFilterValueRangeMajorDimension where
toJSON = toJSONText
data BubbleChartSpecLegendPosition
= BubbleChartLegendPositionUnspecified
| BottomLegend
| LeftLegend
| RightLegend
| TopLegend
| NoLegend
| InsideLegend
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BubbleChartSpecLegendPosition
instance FromHttpApiData BubbleChartSpecLegendPosition where
parseQueryParam = \case
"BUBBLE_CHART_LEGEND_POSITION_UNSPECIFIED" -> Right BubbleChartLegendPositionUnspecified
"BOTTOM_LEGEND" -> Right BottomLegend
"LEFT_LEGEND" -> Right LeftLegend
"RIGHT_LEGEND" -> Right RightLegend
"TOP_LEGEND" -> Right TopLegend
"NO_LEGEND" -> Right NoLegend
"INSIDE_LEGEND" -> Right InsideLegend
x -> Left ("Unable to parse BubbleChartSpecLegendPosition from: " <> x)
instance ToHttpApiData BubbleChartSpecLegendPosition where
toQueryParam = \case
BubbleChartLegendPositionUnspecified -> "BUBBLE_CHART_LEGEND_POSITION_UNSPECIFIED"
BottomLegend -> "BOTTOM_LEGEND"
LeftLegend -> "LEFT_LEGEND"
RightLegend -> "RIGHT_LEGEND"
TopLegend -> "TOP_LEGEND"
NoLegend -> "NO_LEGEND"
InsideLegend -> "INSIDE_LEGEND"
instance FromJSON BubbleChartSpecLegendPosition where
parseJSON = parseJSONText "BubbleChartSpecLegendPosition"
instance ToJSON BubbleChartSpecLegendPosition where
toJSON = toJSONText
data BatchUpdateValuesRequestResponseDateTimeRenderOption
= BUVRRDTROSerialNumber
| BUVRRDTROFormattedString
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchUpdateValuesRequestResponseDateTimeRenderOption
instance FromHttpApiData BatchUpdateValuesRequestResponseDateTimeRenderOption where
parseQueryParam = \case
"SERIAL_NUMBER" -> Right BUVRRDTROSerialNumber
"FORMATTED_STRING" -> Right BUVRRDTROFormattedString
x -> Left ("Unable to parse BatchUpdateValuesRequestResponseDateTimeRenderOption from: " <> x)
instance ToHttpApiData BatchUpdateValuesRequestResponseDateTimeRenderOption where
toQueryParam = \case
BUVRRDTROSerialNumber -> "SERIAL_NUMBER"
BUVRRDTROFormattedString -> "FORMATTED_STRING"
instance FromJSON BatchUpdateValuesRequestResponseDateTimeRenderOption where
parseJSON = parseJSONText "BatchUpdateValuesRequestResponseDateTimeRenderOption"
instance ToJSON BatchUpdateValuesRequestResponseDateTimeRenderOption where
toJSON = toJSONText
data AppendDimensionRequestDimension
= ADRDDimensionUnspecified
| ADRDRows
| ADRDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AppendDimensionRequestDimension
instance FromHttpApiData AppendDimensionRequestDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right ADRDDimensionUnspecified
"ROWS" -> Right ADRDRows
"COLUMNS" -> Right ADRDColumns
x -> Left ("Unable to parse AppendDimensionRequestDimension from: " <> x)
instance ToHttpApiData AppendDimensionRequestDimension where
toQueryParam = \case
ADRDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
ADRDRows -> "ROWS"
ADRDColumns -> "COLUMNS"
instance FromJSON AppendDimensionRequestDimension where
parseJSON = parseJSONText "AppendDimensionRequestDimension"
instance ToJSON AppendDimensionRequestDimension where
toJSON = toJSONText
data DimensionRangeDimension
= DRDDimensionUnspecified
| DRDRows
| DRDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DimensionRangeDimension
instance FromHttpApiData DimensionRangeDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right DRDDimensionUnspecified
"ROWS" -> Right DRDRows
"COLUMNS" -> Right DRDColumns
x -> Left ("Unable to parse DimensionRangeDimension from: " <> x)
instance ToHttpApiData DimensionRangeDimension where
toQueryParam = \case
DRDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
DRDRows -> "ROWS"
DRDColumns -> "COLUMNS"
instance FromJSON DimensionRangeDimension where
parseJSON = parseJSONText "DimensionRangeDimension"
instance ToJSON DimensionRangeDimension where
toJSON = toJSONText
data BatchGetValuesByDataFilterRequestValueRenderOption
= FormattedValue
| UnformattedValue
| Formula
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchGetValuesByDataFilterRequestValueRenderOption
instance FromHttpApiData BatchGetValuesByDataFilterRequestValueRenderOption where
parseQueryParam = \case
"FORMATTED_VALUE" -> Right FormattedValue
"UNFORMATTED_VALUE" -> Right UnformattedValue
"FORMULA" -> Right Formula
x -> Left ("Unable to parse BatchGetValuesByDataFilterRequestValueRenderOption from: " <> x)
instance ToHttpApiData BatchGetValuesByDataFilterRequestValueRenderOption where
toQueryParam = \case
FormattedValue -> "FORMATTED_VALUE"
UnformattedValue -> "UNFORMATTED_VALUE"
Formula -> "FORMULA"
instance FromJSON BatchGetValuesByDataFilterRequestValueRenderOption where
parseJSON = parseJSONText "BatchGetValuesByDataFilterRequestValueRenderOption"
instance ToJSON BatchGetValuesByDataFilterRequestValueRenderOption where
toJSON = toJSONText
data SourceAndDestinationDimension
= SADDDimensionUnspecified
| SADDRows
| SADDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SourceAndDestinationDimension
instance FromHttpApiData SourceAndDestinationDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right SADDDimensionUnspecified
"ROWS" -> Right SADDRows
"COLUMNS" -> Right SADDColumns
x -> Left ("Unable to parse SourceAndDestinationDimension from: " <> x)
instance ToHttpApiData SourceAndDestinationDimension where
toQueryParam = \case
SADDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
SADDRows -> "ROWS"
SADDColumns -> "COLUMNS"
instance FromJSON SourceAndDestinationDimension where
parseJSON = parseJSONText "SourceAndDestinationDimension"
instance ToJSON SourceAndDestinationDimension where
toJSON = toJSONText
data CellFormatWrapStrategy
= WrapStrategyUnspecified
| OverflowCell
| LegacyWrap
| Clip
| Wrap
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CellFormatWrapStrategy
instance FromHttpApiData CellFormatWrapStrategy where
parseQueryParam = \case
"WRAP_STRATEGY_UNSPECIFIED" -> Right WrapStrategyUnspecified
"OVERFLOW_CELL" -> Right OverflowCell
"LEGACY_WRAP" -> Right LegacyWrap
"CLIP" -> Right Clip
"WRAP" -> Right Wrap
x -> Left ("Unable to parse CellFormatWrapStrategy from: " <> x)
instance ToHttpApiData CellFormatWrapStrategy where
toQueryParam = \case
WrapStrategyUnspecified -> "WRAP_STRATEGY_UNSPECIFIED"
OverflowCell -> "OVERFLOW_CELL"
LegacyWrap -> "LEGACY_WRAP"
Clip -> "CLIP"
Wrap -> "WRAP"
instance FromJSON CellFormatWrapStrategy where
parseJSON = parseJSONText "CellFormatWrapStrategy"
instance ToJSON CellFormatWrapStrategy where
toJSON = toJSONText
data BatchUpdateValuesRequestValueInputOption
= InputValueOptionUnspecified
| Raw
| UserEntered
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchUpdateValuesRequestValueInputOption
instance FromHttpApiData BatchUpdateValuesRequestValueInputOption where
parseQueryParam = \case
"INPUT_VALUE_OPTION_UNSPECIFIED" -> Right InputValueOptionUnspecified
"RAW" -> Right Raw
"USER_ENTERED" -> Right UserEntered
x -> Left ("Unable to parse BatchUpdateValuesRequestValueInputOption from: " <> x)
instance ToHttpApiData BatchUpdateValuesRequestValueInputOption where
toQueryParam = \case
InputValueOptionUnspecified -> "INPUT_VALUE_OPTION_UNSPECIFIED"
Raw -> "RAW"
UserEntered -> "USER_ENTERED"
instance FromJSON BatchUpdateValuesRequestValueInputOption where
parseJSON = parseJSONText "BatchUpdateValuesRequestValueInputOption"
instance ToJSON BatchUpdateValuesRequestValueInputOption where
toJSON = toJSONText
data TextPositionHorizontalAlignment
= HorizontalAlignUnspecified
| Left'
| Center
| Right'
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TextPositionHorizontalAlignment
instance FromHttpApiData TextPositionHorizontalAlignment where
parseQueryParam = \case
"HORIZONTAL_ALIGN_UNSPECIFIED" -> Right HorizontalAlignUnspecified
"LEFT" -> Right Left'
"CENTER" -> Right Center
"RIGHT" -> Right Right'
x -> Left ("Unable to parse TextPositionHorizontalAlignment from: " <> x)
instance ToHttpApiData TextPositionHorizontalAlignment where
toQueryParam = \case
HorizontalAlignUnspecified -> "HORIZONTAL_ALIGN_UNSPECIFIED"
Left' -> "LEFT"
Center -> "CENTER"
Right' -> "RIGHT"
instance FromJSON TextPositionHorizontalAlignment where
parseJSON = parseJSONText "TextPositionHorizontalAlignment"
instance ToJSON TextPositionHorizontalAlignment where
toJSON = toJSONText
data DeveloperMetadataVisibility
= DeveloperMetadataVisibilityUnspecified
| Document
| Project
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeveloperMetadataVisibility
instance FromHttpApiData DeveloperMetadataVisibility where
parseQueryParam = \case
"DEVELOPER_METADATA_VISIBILITY_UNSPECIFIED" -> Right DeveloperMetadataVisibilityUnspecified
"DOCUMENT" -> Right Document
"PROJECT" -> Right Project
x -> Left ("Unable to parse DeveloperMetadataVisibility from: " <> x)
instance ToHttpApiData DeveloperMetadataVisibility where
toQueryParam = \case
DeveloperMetadataVisibilityUnspecified -> "DEVELOPER_METADATA_VISIBILITY_UNSPECIFIED"
Document -> "DOCUMENT"
Project -> "PROJECT"
instance FromJSON DeveloperMetadataVisibility where
parseJSON = parseJSONText "DeveloperMetadataVisibility"
instance ToJSON DeveloperMetadataVisibility where
toJSON = toJSONText
data BatchUpdateValuesRequestResponseValueRenderOption
= BUVRRVROFormattedValue
| BUVRRVROUnformattedValue
| BUVRRVROFormula
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchUpdateValuesRequestResponseValueRenderOption
instance FromHttpApiData BatchUpdateValuesRequestResponseValueRenderOption where
parseQueryParam = \case
"FORMATTED_VALUE" -> Right BUVRRVROFormattedValue
"UNFORMATTED_VALUE" -> Right BUVRRVROUnformattedValue
"FORMULA" -> Right BUVRRVROFormula
x -> Left ("Unable to parse BatchUpdateValuesRequestResponseValueRenderOption from: " <> x)
instance ToHttpApiData BatchUpdateValuesRequestResponseValueRenderOption where
toQueryParam = \case
BUVRRVROFormattedValue -> "FORMATTED_VALUE"
BUVRRVROUnformattedValue -> "UNFORMATTED_VALUE"
BUVRRVROFormula -> "FORMULA"
instance FromJSON BatchUpdateValuesRequestResponseValueRenderOption where
parseJSON = parseJSONText "BatchUpdateValuesRequestResponseValueRenderOption"
instance ToJSON BatchUpdateValuesRequestResponseValueRenderOption where
toJSON = toJSONText
data PieChartSpecLegendPosition
= PCSLPPieChartLegendPositionUnspecified
| PCSLPBottomLegend
| PCSLPLeftLegend
| PCSLPRightLegend
| PCSLPTopLegend
| PCSLPNoLegend
| PCSLPLabeledLegend
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PieChartSpecLegendPosition
instance FromHttpApiData PieChartSpecLegendPosition where
parseQueryParam = \case
"PIE_CHART_LEGEND_POSITION_UNSPECIFIED" -> Right PCSLPPieChartLegendPositionUnspecified
"BOTTOM_LEGEND" -> Right PCSLPBottomLegend
"LEFT_LEGEND" -> Right PCSLPLeftLegend
"RIGHT_LEGEND" -> Right PCSLPRightLegend
"TOP_LEGEND" -> Right PCSLPTopLegend
"NO_LEGEND" -> Right PCSLPNoLegend
"LABELED_LEGEND" -> Right PCSLPLabeledLegend
x -> Left ("Unable to parse PieChartSpecLegendPosition from: " <> x)
instance ToHttpApiData PieChartSpecLegendPosition where
toQueryParam = \case
PCSLPPieChartLegendPositionUnspecified -> "PIE_CHART_LEGEND_POSITION_UNSPECIFIED"
PCSLPBottomLegend -> "BOTTOM_LEGEND"
PCSLPLeftLegend -> "LEFT_LEGEND"
PCSLPRightLegend -> "RIGHT_LEGEND"
PCSLPTopLegend -> "TOP_LEGEND"
PCSLPNoLegend -> "NO_LEGEND"
PCSLPLabeledLegend -> "LABELED_LEGEND"
instance FromJSON PieChartSpecLegendPosition where
parseJSON = parseJSONText "PieChartSpecLegendPosition"
instance ToJSON PieChartSpecLegendPosition where
toJSON = toJSONText
data CellFormatVerticalAlignment
= VerticalAlignUnspecified
| Top
| Middle
| Bottom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CellFormatVerticalAlignment
instance FromHttpApiData CellFormatVerticalAlignment where
parseQueryParam = \case
"VERTICAL_ALIGN_UNSPECIFIED" -> Right VerticalAlignUnspecified
"TOP" -> Right Top
"MIDDLE" -> Right Middle
"BOTTOM" -> Right Bottom
x -> Left ("Unable to parse CellFormatVerticalAlignment from: " <> x)
instance ToHttpApiData CellFormatVerticalAlignment where
toQueryParam = \case
VerticalAlignUnspecified -> "VERTICAL_ALIGN_UNSPECIFIED"
Top -> "TOP"
Middle -> "MIDDLE"
Bottom -> "BOTTOM"
instance FromJSON CellFormatVerticalAlignment where
parseJSON = parseJSONText "CellFormatVerticalAlignment"
instance ToJSON CellFormatVerticalAlignment where
toJSON = toJSONText
data NumberFormatType
= NumberFormatTypeUnspecified
| Text
| Number
| Percent
| Currency
| Date
| Time
| DateTime
| Scientific
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable NumberFormatType
instance FromHttpApiData NumberFormatType where
parseQueryParam = \case
"NUMBER_FORMAT_TYPE_UNSPECIFIED" -> Right NumberFormatTypeUnspecified
"TEXT" -> Right Text
"NUMBER" -> Right Number
"PERCENT" -> Right Percent
"CURRENCY" -> Right Currency
"DATE" -> Right Date
"TIME" -> Right Time
"DATE_TIME" -> Right DateTime
"SCIENTIFIC" -> Right Scientific
x -> Left ("Unable to parse NumberFormatType from: " <> x)
instance ToHttpApiData NumberFormatType where
toQueryParam = \case
NumberFormatTypeUnspecified -> "NUMBER_FORMAT_TYPE_UNSPECIFIED"
Text -> "TEXT"
Number -> "NUMBER"
Percent -> "PERCENT"
Currency -> "CURRENCY"
Date -> "DATE"
Time -> "TIME"
DateTime -> "DATE_TIME"
Scientific -> "SCIENTIFIC"
instance FromJSON NumberFormatType where
parseJSON = parseJSONText "NumberFormatType"
instance ToJSON NumberFormatType where
toJSON = toJSONText
data ConditionValueRelativeDate
= RelativeDateUnspecified
| PastYear
| PastMonth
| PastWeek
| Yesterday
| Today
| Tomorrow
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ConditionValueRelativeDate
instance FromHttpApiData ConditionValueRelativeDate where
parseQueryParam = \case
"RELATIVE_DATE_UNSPECIFIED" -> Right RelativeDateUnspecified
"PAST_YEAR" -> Right PastYear
"PAST_MONTH" -> Right PastMonth
"PAST_WEEK" -> Right PastWeek
"YESTERDAY" -> Right Yesterday
"TODAY" -> Right Today
"TOMORROW" -> Right Tomorrow
x -> Left ("Unable to parse ConditionValueRelativeDate from: " <> x)
instance ToHttpApiData ConditionValueRelativeDate where
toQueryParam = \case
RelativeDateUnspecified -> "RELATIVE_DATE_UNSPECIFIED"
PastYear -> "PAST_YEAR"
PastMonth -> "PAST_MONTH"
PastWeek -> "PAST_WEEK"
Yesterday -> "YESTERDAY"
Today -> "TODAY"
Tomorrow -> "TOMORROW"
instance FromJSON ConditionValueRelativeDate where
parseJSON = parseJSONText "ConditionValueRelativeDate"
instance ToJSON ConditionValueRelativeDate where
toJSON = toJSONText
data DeveloperMetadataLocationLocationType
= DMLLTDeveloperMetadataLocationTypeUnspecified
| DMLLTRow
| DMLLTColumn
| DMLLTSheet
| DMLLTSpreadsheet
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeveloperMetadataLocationLocationType
instance FromHttpApiData DeveloperMetadataLocationLocationType where
parseQueryParam = \case
"DEVELOPER_METADATA_LOCATION_TYPE_UNSPECIFIED" -> Right DMLLTDeveloperMetadataLocationTypeUnspecified
"ROW" -> Right DMLLTRow
"COLUMN" -> Right DMLLTColumn
"SHEET" -> Right DMLLTSheet
"SPREADSHEET" -> Right DMLLTSpreadsheet
x -> Left ("Unable to parse DeveloperMetadataLocationLocationType from: " <> x)
instance ToHttpApiData DeveloperMetadataLocationLocationType where
toQueryParam = \case
DMLLTDeveloperMetadataLocationTypeUnspecified -> "DEVELOPER_METADATA_LOCATION_TYPE_UNSPECIFIED"
DMLLTRow -> "ROW"
DMLLTColumn -> "COLUMN"
DMLLTSheet -> "SHEET"
DMLLTSpreadsheet -> "SPREADSHEET"
instance FromJSON DeveloperMetadataLocationLocationType where
parseJSON = parseJSONText "DeveloperMetadataLocationLocationType"
instance ToJSON DeveloperMetadataLocationLocationType where
toJSON = toJSONText
data SortSpecSortOrder
= SortOrderUnspecified
| Ascending
| Descending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SortSpecSortOrder
instance FromHttpApiData SortSpecSortOrder where
parseQueryParam = \case
"SORT_ORDER_UNSPECIFIED" -> Right SortOrderUnspecified
"ASCENDING" -> Right Ascending
"DESCENDING" -> Right Descending
x -> Left ("Unable to parse SortSpecSortOrder from: " <> x)
instance ToHttpApiData SortSpecSortOrder where
toQueryParam = \case
SortOrderUnspecified -> "SORT_ORDER_UNSPECIFIED"
Ascending -> "ASCENDING"
Descending -> "DESCENDING"
instance FromJSON SortSpecSortOrder where
parseJSON = parseJSONText "SortSpecSortOrder"
instance ToJSON SortSpecSortOrder where
toJSON = toJSONText
data PivotValueSummarizeFunction
= PivotStandardValueFunctionUnspecified
| Sum
| Counta
| Count
| Countunique
| Average
| Max
| Min
| Median
| Product
| Stdev
| Stdevp
| Var
| Varp
| Custom
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PivotValueSummarizeFunction
instance FromHttpApiData PivotValueSummarizeFunction where
parseQueryParam = \case
"PIVOT_STANDARD_VALUE_FUNCTION_UNSPECIFIED" -> Right PivotStandardValueFunctionUnspecified
"SUM" -> Right Sum
"COUNTA" -> Right Counta
"COUNT" -> Right Count
"COUNTUNIQUE" -> Right Countunique
"AVERAGE" -> Right Average
"MAX" -> Right Max
"MIN" -> Right Min
"MEDIAN" -> Right Median
"PRODUCT" -> Right Product
"STDEV" -> Right Stdev
"STDEVP" -> Right Stdevp
"VAR" -> Right Var
"VARP" -> Right Varp
"CUSTOM" -> Right Custom
x -> Left ("Unable to parse PivotValueSummarizeFunction from: " <> x)
instance ToHttpApiData PivotValueSummarizeFunction where
toQueryParam = \case
PivotStandardValueFunctionUnspecified -> "PIVOT_STANDARD_VALUE_FUNCTION_UNSPECIFIED"
Sum -> "SUM"
Counta -> "COUNTA"
Count -> "COUNT"
Countunique -> "COUNTUNIQUE"
Average -> "AVERAGE"
Max -> "MAX"
Min -> "MIN"
Median -> "MEDIAN"
Product -> "PRODUCT"
Stdev -> "STDEV"
Stdevp -> "STDEVP"
Var -> "VAR"
Varp -> "VARP"
Custom -> "CUSTOM"
instance FromJSON PivotValueSummarizeFunction where
parseJSON = parseJSONText "PivotValueSummarizeFunction"
instance ToJSON PivotValueSummarizeFunction where
toJSON = toJSONText
data OrgChartSpecNodeSize
= OrgChartLabelSizeUnspecified
| Small
| Medium
| Large
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable OrgChartSpecNodeSize
instance FromHttpApiData OrgChartSpecNodeSize where
parseQueryParam = \case
"ORG_CHART_LABEL_SIZE_UNSPECIFIED" -> Right OrgChartLabelSizeUnspecified
"SMALL" -> Right Small
"MEDIUM" -> Right Medium
"LARGE" -> Right Large
x -> Left ("Unable to parse OrgChartSpecNodeSize from: " <> x)
instance ToHttpApiData OrgChartSpecNodeSize where
toQueryParam = \case
OrgChartLabelSizeUnspecified -> "ORG_CHART_LABEL_SIZE_UNSPECIFIED"
Small -> "SMALL"
Medium -> "MEDIUM"
Large -> "LARGE"
instance FromJSON OrgChartSpecNodeSize where
parseJSON = parseJSONText "OrgChartSpecNodeSize"
instance ToJSON OrgChartSpecNodeSize where
toJSON = toJSONText
data BatchUpdateValuesByDataFilterRequestResponseValueRenderOption
= BUVBDFRRVROFormattedValue
| BUVBDFRRVROUnformattedValue
| BUVBDFRRVROFormula
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchUpdateValuesByDataFilterRequestResponseValueRenderOption
instance FromHttpApiData BatchUpdateValuesByDataFilterRequestResponseValueRenderOption where
parseQueryParam = \case
"FORMATTED_VALUE" -> Right BUVBDFRRVROFormattedValue
"UNFORMATTED_VALUE" -> Right BUVBDFRRVROUnformattedValue
"FORMULA" -> Right BUVBDFRRVROFormula
x -> Left ("Unable to parse BatchUpdateValuesByDataFilterRequestResponseValueRenderOption from: " <> x)
instance ToHttpApiData BatchUpdateValuesByDataFilterRequestResponseValueRenderOption where
toQueryParam = \case
BUVBDFRRVROFormattedValue -> "FORMATTED_VALUE"
BUVBDFRRVROUnformattedValue -> "UNFORMATTED_VALUE"
BUVBDFRRVROFormula -> "FORMULA"
instance FromJSON BatchUpdateValuesByDataFilterRequestResponseValueRenderOption where
parseJSON = parseJSONText "BatchUpdateValuesByDataFilterRequestResponseValueRenderOption"
instance ToJSON BatchUpdateValuesByDataFilterRequestResponseValueRenderOption where
toJSON = toJSONText
data LineStyleType
= LSTLineDashTypeUnspecified
| LSTInvisible
| LSTCustom
| LSTSolid
| LSTDotted
| LSTMediumDashed
| LSTMediumDashedDotted
| LSTLongDashed
| LSTLongDashedDotted
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable LineStyleType
instance FromHttpApiData LineStyleType where
parseQueryParam = \case
"LINE_DASH_TYPE_UNSPECIFIED" -> Right LSTLineDashTypeUnspecified
"INVISIBLE" -> Right LSTInvisible
"CUSTOM" -> Right LSTCustom
"SOLID" -> Right LSTSolid
"DOTTED" -> Right LSTDotted
"MEDIUM_DASHED" -> Right LSTMediumDashed
"MEDIUM_DASHED_DOTTED" -> Right LSTMediumDashedDotted
"LONG_DASHED" -> Right LSTLongDashed
"LONG_DASHED_DOTTED" -> Right LSTLongDashedDotted
x -> Left ("Unable to parse LineStyleType from: " <> x)
instance ToHttpApiData LineStyleType where
toQueryParam = \case
LSTLineDashTypeUnspecified -> "LINE_DASH_TYPE_UNSPECIFIED"
LSTInvisible -> "INVISIBLE"
LSTCustom -> "CUSTOM"
LSTSolid -> "SOLID"
LSTDotted -> "DOTTED"
LSTMediumDashed -> "MEDIUM_DASHED"
LSTMediumDashedDotted -> "MEDIUM_DASHED_DOTTED"
LSTLongDashed -> "LONG_DASHED"
LSTLongDashedDotted -> "LONG_DASHED_DOTTED"
instance FromJSON LineStyleType where
parseJSON = parseJSONText "LineStyleType"
instance ToJSON LineStyleType where
toJSON = toJSONText
data CellFormatHyperlinkDisplayType
= HyperlinkDisplayTypeUnspecified
| Linked
| PlainText
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CellFormatHyperlinkDisplayType
instance FromHttpApiData CellFormatHyperlinkDisplayType where
parseQueryParam = \case
"HYPERLINK_DISPLAY_TYPE_UNSPECIFIED" -> Right HyperlinkDisplayTypeUnspecified
"LINKED" -> Right Linked
"PLAIN_TEXT" -> Right PlainText
x -> Left ("Unable to parse CellFormatHyperlinkDisplayType from: " <> x)
instance ToHttpApiData CellFormatHyperlinkDisplayType where
toQueryParam = \case
HyperlinkDisplayTypeUnspecified -> "HYPERLINK_DISPLAY_TYPE_UNSPECIFIED"
Linked -> "LINKED"
PlainText -> "PLAIN_TEXT"
instance FromJSON CellFormatHyperlinkDisplayType where
parseJSON = parseJSONText "CellFormatHyperlinkDisplayType"
instance ToJSON CellFormatHyperlinkDisplayType where
toJSON = toJSONText
data BatchUpdateValuesByDataFilterRequestValueInputOption
= BUVBDFRVIOInputValueOptionUnspecified
| BUVBDFRVIORaw
| BUVBDFRVIOUserEntered
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchUpdateValuesByDataFilterRequestValueInputOption
instance FromHttpApiData BatchUpdateValuesByDataFilterRequestValueInputOption where
parseQueryParam = \case
"INPUT_VALUE_OPTION_UNSPECIFIED" -> Right BUVBDFRVIOInputValueOptionUnspecified
"RAW" -> Right BUVBDFRVIORaw
"USER_ENTERED" -> Right BUVBDFRVIOUserEntered
x -> Left ("Unable to parse BatchUpdateValuesByDataFilterRequestValueInputOption from: " <> x)
instance ToHttpApiData BatchUpdateValuesByDataFilterRequestValueInputOption where
toQueryParam = \case
BUVBDFRVIOInputValueOptionUnspecified -> "INPUT_VALUE_OPTION_UNSPECIFIED"
BUVBDFRVIORaw -> "RAW"
BUVBDFRVIOUserEntered -> "USER_ENTERED"
instance FromJSON BatchUpdateValuesByDataFilterRequestValueInputOption where
parseJSON = parseJSONText "BatchUpdateValuesByDataFilterRequestValueInputOption"
instance ToJSON BatchUpdateValuesByDataFilterRequestValueInputOption where
toJSON = toJSONText
data HistogramChartSpecLegendPosition
= HCSLPHistogramChartLegendPositionUnspecified
| HCSLPBottomLegend
| HCSLPLeftLegend
| HCSLPRightLegend
| HCSLPTopLegend
| HCSLPNoLegend
| HCSLPInsideLegend
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable HistogramChartSpecLegendPosition
instance FromHttpApiData HistogramChartSpecLegendPosition where
parseQueryParam = \case
"HISTOGRAM_CHART_LEGEND_POSITION_UNSPECIFIED" -> Right HCSLPHistogramChartLegendPositionUnspecified
"BOTTOM_LEGEND" -> Right HCSLPBottomLegend
"LEFT_LEGEND" -> Right HCSLPLeftLegend
"RIGHT_LEGEND" -> Right HCSLPRightLegend
"TOP_LEGEND" -> Right HCSLPTopLegend
"NO_LEGEND" -> Right HCSLPNoLegend
"INSIDE_LEGEND" -> Right HCSLPInsideLegend
x -> Left ("Unable to parse HistogramChartSpecLegendPosition from: " <> x)
instance ToHttpApiData HistogramChartSpecLegendPosition where
toQueryParam = \case
HCSLPHistogramChartLegendPositionUnspecified -> "HISTOGRAM_CHART_LEGEND_POSITION_UNSPECIFIED"
HCSLPBottomLegend -> "BOTTOM_LEGEND"
HCSLPLeftLegend -> "LEFT_LEGEND"
HCSLPRightLegend -> "RIGHT_LEGEND"
HCSLPTopLegend -> "TOP_LEGEND"
HCSLPNoLegend -> "NO_LEGEND"
HCSLPInsideLegend -> "INSIDE_LEGEND"
instance FromJSON HistogramChartSpecLegendPosition where
parseJSON = parseJSONText "HistogramChartSpecLegendPosition"
instance ToJSON HistogramChartSpecLegendPosition where
toJSON = toJSONText
data SheetPropertiesSheetType
= SheetTypeUnspecified
| Grid
| Object
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SheetPropertiesSheetType
instance FromHttpApiData SheetPropertiesSheetType where
parseQueryParam = \case
"SHEET_TYPE_UNSPECIFIED" -> Right SheetTypeUnspecified
"GRID" -> Right Grid
"OBJECT" -> Right Object
x -> Left ("Unable to parse SheetPropertiesSheetType from: " <> x)
instance ToHttpApiData SheetPropertiesSheetType where
toQueryParam = \case
SheetTypeUnspecified -> "SHEET_TYPE_UNSPECIFIED"
Grid -> "GRID"
Object -> "OBJECT"
instance FromJSON SheetPropertiesSheetType where
parseJSON = parseJSONText "SheetPropertiesSheetType"
instance ToJSON SheetPropertiesSheetType where
toJSON = toJSONText
data DeveloperMetadataLookupLocationType
= DDeveloperMetadataLocationTypeUnspecified
| DRow
| DColumn
| DSheet
| DSpreadsheet
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeveloperMetadataLookupLocationType
instance FromHttpApiData DeveloperMetadataLookupLocationType where
parseQueryParam = \case
"DEVELOPER_METADATA_LOCATION_TYPE_UNSPECIFIED" -> Right DDeveloperMetadataLocationTypeUnspecified
"ROW" -> Right DRow
"COLUMN" -> Right DColumn
"SHEET" -> Right DSheet
"SPREADSHEET" -> Right DSpreadsheet
x -> Left ("Unable to parse DeveloperMetadataLookupLocationType from: " <> x)
instance ToHttpApiData DeveloperMetadataLookupLocationType where
toQueryParam = \case
DDeveloperMetadataLocationTypeUnspecified -> "DEVELOPER_METADATA_LOCATION_TYPE_UNSPECIFIED"
DRow -> "ROW"
DColumn -> "COLUMN"
DSheet -> "SHEET"
DSpreadsheet -> "SPREADSHEET"
instance FromJSON DeveloperMetadataLookupLocationType where
parseJSON = parseJSONText "DeveloperMetadataLookupLocationType"
instance ToJSON DeveloperMetadataLookupLocationType where
toJSON = toJSONText
data MergeCellsRequestMergeType
= MergeAll
| MergeColumns
| MergeRows
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable MergeCellsRequestMergeType
instance FromHttpApiData MergeCellsRequestMergeType where
parseQueryParam = \case
"MERGE_ALL" -> Right MergeAll
"MERGE_COLUMNS" -> Right MergeColumns
"MERGE_ROWS" -> Right MergeRows
x -> Left ("Unable to parse MergeCellsRequestMergeType from: " <> x)
instance ToHttpApiData MergeCellsRequestMergeType where
toQueryParam = \case
MergeAll -> "MERGE_ALL"
MergeColumns -> "MERGE_COLUMNS"
MergeRows -> "MERGE_ROWS"
instance FromJSON MergeCellsRequestMergeType where
parseJSON = parseJSONText "MergeCellsRequestMergeType"
instance ToJSON MergeCellsRequestMergeType where
toJSON = toJSONText
data CellFormatHorizontalAlignment
= CFHAHorizontalAlignUnspecified
| CFHALeft'
| CFHACenter
| CFHARight'
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CellFormatHorizontalAlignment
instance FromHttpApiData CellFormatHorizontalAlignment where
parseQueryParam = \case
"HORIZONTAL_ALIGN_UNSPECIFIED" -> Right CFHAHorizontalAlignUnspecified
"LEFT" -> Right CFHALeft'
"CENTER" -> Right CFHACenter
"RIGHT" -> Right CFHARight'
x -> Left ("Unable to parse CellFormatHorizontalAlignment from: " <> x)
instance ToHttpApiData CellFormatHorizontalAlignment where
toQueryParam = \case
CFHAHorizontalAlignUnspecified -> "HORIZONTAL_ALIGN_UNSPECIFIED"
CFHALeft' -> "LEFT"
CFHACenter -> "CENTER"
CFHARight' -> "RIGHT"
instance FromJSON CellFormatHorizontalAlignment where
parseJSON = parseJSONText "CellFormatHorizontalAlignment"
instance ToJSON CellFormatHorizontalAlignment where
toJSON = toJSONText
data WaterfallChartSpecStackedType
= WCSSTWaterfallStackedTypeUnspecified
| WCSSTStacked
| WCSSTSequential
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable WaterfallChartSpecStackedType
instance FromHttpApiData WaterfallChartSpecStackedType where
parseQueryParam = \case
"WATERFALL_STACKED_TYPE_UNSPECIFIED" -> Right WCSSTWaterfallStackedTypeUnspecified
"STACKED" -> Right WCSSTStacked
"SEQUENTIAL" -> Right WCSSTSequential
x -> Left ("Unable to parse WaterfallChartSpecStackedType from: " <> x)
instance ToHttpApiData WaterfallChartSpecStackedType where
toQueryParam = \case
WCSSTWaterfallStackedTypeUnspecified -> "WATERFALL_STACKED_TYPE_UNSPECIFIED"
WCSSTStacked -> "STACKED"
WCSSTSequential -> "SEQUENTIAL"
instance FromJSON WaterfallChartSpecStackedType where
parseJSON = parseJSONText "WaterfallChartSpecStackedType"
instance ToJSON WaterfallChartSpecStackedType where
toJSON = toJSONText
data DateTimeRuleType
= DateTimeRuleTypeUnspecified
| Second
| Minute
| Hour
| HourMinute
| HourMinuteAmpm
| DayOfWeek
| DayOfYear
| DayOfMonth
| DayMonth
| Month
| Quarter
| Year
| YearMonth
| YearQuarter
| YearMonthDay
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DateTimeRuleType
instance FromHttpApiData DateTimeRuleType where
parseQueryParam = \case
"DATE_TIME_RULE_TYPE_UNSPECIFIED" -> Right DateTimeRuleTypeUnspecified
"SECOND" -> Right Second
"MINUTE" -> Right Minute
"HOUR" -> Right Hour
"HOUR_MINUTE" -> Right HourMinute
"HOUR_MINUTE_AMPM" -> Right HourMinuteAmpm
"DAY_OF_WEEK" -> Right DayOfWeek
"DAY_OF_YEAR" -> Right DayOfYear
"DAY_OF_MONTH" -> Right DayOfMonth
"DAY_MONTH" -> Right DayMonth
"MONTH" -> Right Month
"QUARTER" -> Right Quarter
"YEAR" -> Right Year
"YEAR_MONTH" -> Right YearMonth
"YEAR_QUARTER" -> Right YearQuarter
"YEAR_MONTH_DAY" -> Right YearMonthDay
x -> Left ("Unable to parse DateTimeRuleType from: " <> x)
instance ToHttpApiData DateTimeRuleType where
toQueryParam = \case
DateTimeRuleTypeUnspecified -> "DATE_TIME_RULE_TYPE_UNSPECIFIED"
Second -> "SECOND"
Minute -> "MINUTE"
Hour -> "HOUR"
HourMinute -> "HOUR_MINUTE"
HourMinuteAmpm -> "HOUR_MINUTE_AMPM"
DayOfWeek -> "DAY_OF_WEEK"
DayOfYear -> "DAY_OF_YEAR"
DayOfMonth -> "DAY_OF_MONTH"
DayMonth -> "DAY_MONTH"
Month -> "MONTH"
Quarter -> "QUARTER"
Year -> "YEAR"
YearMonth -> "YEAR_MONTH"
YearQuarter -> "YEAR_QUARTER"
YearMonthDay -> "YEAR_MONTH_DAY"
instance FromJSON DateTimeRuleType where
parseJSON = parseJSONText "DateTimeRuleType"
instance ToJSON DateTimeRuleType where
toJSON = toJSONText
data DeveloperMetadataLookupVisibility
= DMLVDeveloperMetadataVisibilityUnspecified
| DMLVDocument
| DMLVProject
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DeveloperMetadataLookupVisibility
instance FromHttpApiData DeveloperMetadataLookupVisibility where
parseQueryParam = \case
"DEVELOPER_METADATA_VISIBILITY_UNSPECIFIED" -> Right DMLVDeveloperMetadataVisibilityUnspecified
"DOCUMENT" -> Right DMLVDocument
"PROJECT" -> Right DMLVProject
x -> Left ("Unable to parse DeveloperMetadataLookupVisibility from: " <> x)
instance ToHttpApiData DeveloperMetadataLookupVisibility where
toQueryParam = \case
DMLVDeveloperMetadataVisibilityUnspecified -> "DEVELOPER_METADATA_VISIBILITY_UNSPECIFIED"
DMLVDocument -> "DOCUMENT"
DMLVProject -> "PROJECT"
instance FromJSON DeveloperMetadataLookupVisibility where
parseJSON = parseJSONText "DeveloperMetadataLookupVisibility"
instance ToJSON DeveloperMetadataLookupVisibility where
toJSON = toJSONText
data BasicChartSpecCompareMode
= BasicChartCompareModeUnspecified
| Datum
| Category
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartSpecCompareMode
instance FromHttpApiData BasicChartSpecCompareMode where
parseQueryParam = \case
"BASIC_CHART_COMPARE_MODE_UNSPECIFIED" -> Right BasicChartCompareModeUnspecified
"DATUM" -> Right Datum
"CATEGORY" -> Right Category
x -> Left ("Unable to parse BasicChartSpecCompareMode from: " <> x)
instance ToHttpApiData BasicChartSpecCompareMode where
toQueryParam = \case
BasicChartCompareModeUnspecified -> "BASIC_CHART_COMPARE_MODE_UNSPECIFIED"
Datum -> "DATUM"
Category -> "CATEGORY"
instance FromJSON BasicChartSpecCompareMode where
parseJSON = parseJSONText "BasicChartSpecCompareMode"
instance ToJSON BasicChartSpecCompareMode where
toJSON = toJSONText
data BooleanConditionType
= ConditionTypeUnspecified
| NumberGreater
| NumberGreaterThanEQ
| NumberLess
| NumberLessThanEQ
| NumberEQ
| NumberNotEQ
| NumberBetween
| NumberNotBetween
| TextContains
| TextNotContains
| TextStartsWith
| TextEndsWith
| TextEQ
| TextIsEmail
| TextIsURL
| DateEQ
| DateBefore
| DateAfter
| DateOnOrBefore
| DateOnOrAfter
| DateBetween
| DateNotBetween
| DateIsValid
| OneOfRange
| OneOfList
| Blank
| NotBlank
| CustomFormula
| Boolean
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BooleanConditionType
instance FromHttpApiData BooleanConditionType where
parseQueryParam = \case
"CONDITION_TYPE_UNSPECIFIED" -> Right ConditionTypeUnspecified
"NUMBER_GREATER" -> Right NumberGreater
"NUMBER_GREATER_THAN_EQ" -> Right NumberGreaterThanEQ
"NUMBER_LESS" -> Right NumberLess
"NUMBER_LESS_THAN_EQ" -> Right NumberLessThanEQ
"NUMBER_EQ" -> Right NumberEQ
"NUMBER_NOT_EQ" -> Right NumberNotEQ
"NUMBER_BETWEEN" -> Right NumberBetween
"NUMBER_NOT_BETWEEN" -> Right NumberNotBetween
"TEXT_CONTAINS" -> Right TextContains
"TEXT_NOT_CONTAINS" -> Right TextNotContains
"TEXT_STARTS_WITH" -> Right TextStartsWith
"TEXT_ENDS_WITH" -> Right TextEndsWith
"TEXT_EQ" -> Right TextEQ
"TEXT_IS_EMAIL" -> Right TextIsEmail
"TEXT_IS_URL" -> Right TextIsURL
"DATE_EQ" -> Right DateEQ
"DATE_BEFORE" -> Right DateBefore
"DATE_AFTER" -> Right DateAfter
"DATE_ON_OR_BEFORE" -> Right DateOnOrBefore
"DATE_ON_OR_AFTER" -> Right DateOnOrAfter
"DATE_BETWEEN" -> Right DateBetween
"DATE_NOT_BETWEEN" -> Right DateNotBetween
"DATE_IS_VALID" -> Right DateIsValid
"ONE_OF_RANGE" -> Right OneOfRange
"ONE_OF_LIST" -> Right OneOfList
"BLANK" -> Right Blank
"NOT_BLANK" -> Right NotBlank
"CUSTOM_FORMULA" -> Right CustomFormula
"BOOLEAN" -> Right Boolean
x -> Left ("Unable to parse BooleanConditionType from: " <> x)
instance ToHttpApiData BooleanConditionType where
toQueryParam = \case
ConditionTypeUnspecified -> "CONDITION_TYPE_UNSPECIFIED"
NumberGreater -> "NUMBER_GREATER"
NumberGreaterThanEQ -> "NUMBER_GREATER_THAN_EQ"
NumberLess -> "NUMBER_LESS"
NumberLessThanEQ -> "NUMBER_LESS_THAN_EQ"
NumberEQ -> "NUMBER_EQ"
NumberNotEQ -> "NUMBER_NOT_EQ"
NumberBetween -> "NUMBER_BETWEEN"
NumberNotBetween -> "NUMBER_NOT_BETWEEN"
TextContains -> "TEXT_CONTAINS"
TextNotContains -> "TEXT_NOT_CONTAINS"
TextStartsWith -> "TEXT_STARTS_WITH"
TextEndsWith -> "TEXT_ENDS_WITH"
TextEQ -> "TEXT_EQ"
TextIsEmail -> "TEXT_IS_EMAIL"
TextIsURL -> "TEXT_IS_URL"
DateEQ -> "DATE_EQ"
DateBefore -> "DATE_BEFORE"
DateAfter -> "DATE_AFTER"
DateOnOrBefore -> "DATE_ON_OR_BEFORE"
DateOnOrAfter -> "DATE_ON_OR_AFTER"
DateBetween -> "DATE_BETWEEN"
DateNotBetween -> "DATE_NOT_BETWEEN"
DateIsValid -> "DATE_IS_VALID"
OneOfRange -> "ONE_OF_RANGE"
OneOfList -> "ONE_OF_LIST"
Blank -> "BLANK"
NotBlank -> "NOT_BLANK"
CustomFormula -> "CUSTOM_FORMULA"
Boolean -> "BOOLEAN"
instance FromJSON BooleanConditionType where
parseJSON = parseJSONText "BooleanConditionType"
instance ToJSON BooleanConditionType where
toJSON = toJSONText
data ValueRangeMajorDimension
= VRMDDimensionUnspecified
| VRMDRows
| VRMDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ValueRangeMajorDimension
instance FromHttpApiData ValueRangeMajorDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right VRMDDimensionUnspecified
"ROWS" -> Right VRMDRows
"COLUMNS" -> Right VRMDColumns
x -> Left ("Unable to parse ValueRangeMajorDimension from: " <> x)
instance ToHttpApiData ValueRangeMajorDimension where
toQueryParam = \case
VRMDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
VRMDRows -> "ROWS"
VRMDColumns -> "COLUMNS"
instance FromJSON ValueRangeMajorDimension where
parseJSON = parseJSONText "ValueRangeMajorDimension"
instance ToJSON ValueRangeMajorDimension where
toJSON = toJSONText
data PivotGroupSortOrder
= PGSOSortOrderUnspecified
| PGSOAscending
| PGSODescending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PivotGroupSortOrder
instance FromHttpApiData PivotGroupSortOrder where
parseQueryParam = \case
"SORT_ORDER_UNSPECIFIED" -> Right PGSOSortOrderUnspecified
"ASCENDING" -> Right PGSOAscending
"DESCENDING" -> Right PGSODescending
x -> Left ("Unable to parse PivotGroupSortOrder from: " <> x)
instance ToHttpApiData PivotGroupSortOrder where
toQueryParam = \case
PGSOSortOrderUnspecified -> "SORT_ORDER_UNSPECIFIED"
PGSOAscending -> "ASCENDING"
PGSODescending -> "DESCENDING"
instance FromJSON PivotGroupSortOrder where
parseJSON = parseJSONText "PivotGroupSortOrder"
instance ToJSON PivotGroupSortOrder where
toJSON = toJSONText
data BasicChartSpecChartType
= BasicChartTypeUnspecified
| Bar
| Line
| Area
| Column
| Scatter
| Combo
| SteppedArea
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartSpecChartType
instance FromHttpApiData BasicChartSpecChartType where
parseQueryParam = \case
"BASIC_CHART_TYPE_UNSPECIFIED" -> Right BasicChartTypeUnspecified
"BAR" -> Right Bar
"LINE" -> Right Line
"AREA" -> Right Area
"COLUMN" -> Right Column
"SCATTER" -> Right Scatter
"COMBO" -> Right Combo
"STEPPED_AREA" -> Right SteppedArea
x -> Left ("Unable to parse BasicChartSpecChartType from: " <> x)
instance ToHttpApiData BasicChartSpecChartType where
toQueryParam = \case
BasicChartTypeUnspecified -> "BASIC_CHART_TYPE_UNSPECIFIED"
Bar -> "BAR"
Line -> "LINE"
Area -> "AREA"
Column -> "COLUMN"
Scatter -> "SCATTER"
Combo -> "COMBO"
SteppedArea -> "STEPPED_AREA"
instance FromJSON BasicChartSpecChartType where
parseJSON = parseJSONText "BasicChartSpecChartType"
instance ToJSON BasicChartSpecChartType 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 SpreadsheetPropertiesAutoRecalc
= SPARRecalculationIntervalUnspecified
| SPAROnChange
| SPARMinute
| SPARHour
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SpreadsheetPropertiesAutoRecalc
instance FromHttpApiData SpreadsheetPropertiesAutoRecalc where
parseQueryParam = \case
"RECALCULATION_INTERVAL_UNSPECIFIED" -> Right SPARRecalculationIntervalUnspecified
"ON_CHANGE" -> Right SPAROnChange
"MINUTE" -> Right SPARMinute
"HOUR" -> Right SPARHour
x -> Left ("Unable to parse SpreadsheetPropertiesAutoRecalc from: " <> x)
instance ToHttpApiData SpreadsheetPropertiesAutoRecalc where
toQueryParam = \case
SPARRecalculationIntervalUnspecified -> "RECALCULATION_INTERVAL_UNSPECIFIED"
SPAROnChange -> "ON_CHANGE"
SPARMinute -> "MINUTE"
SPARHour -> "HOUR"
instance FromJSON SpreadsheetPropertiesAutoRecalc where
parseJSON = parseJSONText "SpreadsheetPropertiesAutoRecalc"
instance ToJSON SpreadsheetPropertiesAutoRecalc where
toJSON = toJSONText
data CopyPasteRequestPasteOrientation
= Normal
| Transpose
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CopyPasteRequestPasteOrientation
instance FromHttpApiData CopyPasteRequestPasteOrientation where
parseQueryParam = \case
"NORMAL" -> Right Normal
"TRANSPOSE" -> Right Transpose
x -> Left ("Unable to parse CopyPasteRequestPasteOrientation from: " <> x)
instance ToHttpApiData CopyPasteRequestPasteOrientation where
toQueryParam = \case
Normal -> "NORMAL"
Transpose -> "TRANSPOSE"
instance FromJSON CopyPasteRequestPasteOrientation where
parseJSON = parseJSONText "CopyPasteRequestPasteOrientation"
instance ToJSON CopyPasteRequestPasteOrientation where
toJSON = toJSONText
data PasteDataRequestType
= PDRTPasteNormal
| PDRTPasteValues
| PDRTPasteFormat
| PDRTPasteNoBOrders
| PDRTPasteFormula
| PDRTPasteDataValidation
| PDRTPasteConditionalFormatting
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PasteDataRequestType
instance FromHttpApiData PasteDataRequestType where
parseQueryParam = \case
"PASTE_NORMAL" -> Right PDRTPasteNormal
"PASTE_VALUES" -> Right PDRTPasteValues
"PASTE_FORMAT" -> Right PDRTPasteFormat
"PASTE_NO_BORDERS" -> Right PDRTPasteNoBOrders
"PASTE_FORMULA" -> Right PDRTPasteFormula
"PASTE_DATA_VALIDATION" -> Right PDRTPasteDataValidation
"PASTE_CONDITIONAL_FORMATTING" -> Right PDRTPasteConditionalFormatting
x -> Left ("Unable to parse PasteDataRequestType from: " <> x)
instance ToHttpApiData PasteDataRequestType where
toQueryParam = \case
PDRTPasteNormal -> "PASTE_NORMAL"
PDRTPasteValues -> "PASTE_VALUES"
PDRTPasteFormat -> "PASTE_FORMAT"
PDRTPasteNoBOrders -> "PASTE_NO_BORDERS"
PDRTPasteFormula -> "PASTE_FORMULA"
PDRTPasteDataValidation -> "PASTE_DATA_VALIDATION"
PDRTPasteConditionalFormatting -> "PASTE_CONDITIONAL_FORMATTING"
instance FromJSON PasteDataRequestType where
parseJSON = parseJSONText "PasteDataRequestType"
instance ToJSON PasteDataRequestType where
toJSON = toJSONText
data CellFormatTextDirection
= TextDirectionUnspecified
| LeftToRight
| RightToLeft
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CellFormatTextDirection
instance FromHttpApiData CellFormatTextDirection where
parseQueryParam = \case
"TEXT_DIRECTION_UNSPECIFIED" -> Right TextDirectionUnspecified
"LEFT_TO_RIGHT" -> Right LeftToRight
"RIGHT_TO_LEFT" -> Right RightToLeft
x -> Left ("Unable to parse CellFormatTextDirection from: " <> x)
instance ToHttpApiData CellFormatTextDirection where
toQueryParam = \case
TextDirectionUnspecified -> "TEXT_DIRECTION_UNSPECIFIED"
LeftToRight -> "LEFT_TO_RIGHT"
RightToLeft -> "RIGHT_TO_LEFT"
instance FromJSON CellFormatTextDirection where
parseJSON = parseJSONText "CellFormatTextDirection"
instance ToJSON CellFormatTextDirection where
toJSON = toJSONText
data BasicChartSeriesType
= BCSTBasicChartTypeUnspecified
| BCSTBar
| BCSTLine
| BCSTArea
| BCSTColumn
| BCSTScatter
| BCSTCombo
| BCSTSteppedArea
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartSeriesType
instance FromHttpApiData BasicChartSeriesType where
parseQueryParam = \case
"BASIC_CHART_TYPE_UNSPECIFIED" -> Right BCSTBasicChartTypeUnspecified
"BAR" -> Right BCSTBar
"LINE" -> Right BCSTLine
"AREA" -> Right BCSTArea
"COLUMN" -> Right BCSTColumn
"SCATTER" -> Right BCSTScatter
"COMBO" -> Right BCSTCombo
"STEPPED_AREA" -> Right BCSTSteppedArea
x -> Left ("Unable to parse BasicChartSeriesType from: " <> x)
instance ToHttpApiData BasicChartSeriesType where
toQueryParam = \case
BCSTBasicChartTypeUnspecified -> "BASIC_CHART_TYPE_UNSPECIFIED"
BCSTBar -> "BAR"
BCSTLine -> "LINE"
BCSTArea -> "AREA"
BCSTColumn -> "COLUMN"
BCSTScatter -> "SCATTER"
BCSTCombo -> "COMBO"
BCSTSteppedArea -> "STEPPED_AREA"
instance FromJSON BasicChartSeriesType where
parseJSON = parseJSONText "BasicChartSeriesType"
instance ToJSON BasicChartSeriesType where
toJSON = toJSONText
data PivotValueCalculatedDisplayType
= PivotValueCalculatedDisplayTypeUnspecified
| PercentOfRowTotal
| PercentOfColumnTotal
| PercentOfGrandTotal
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PivotValueCalculatedDisplayType
instance FromHttpApiData PivotValueCalculatedDisplayType where
parseQueryParam = \case
"PIVOT_VALUE_CALCULATED_DISPLAY_TYPE_UNSPECIFIED" -> Right PivotValueCalculatedDisplayTypeUnspecified
"PERCENT_OF_ROW_TOTAL" -> Right PercentOfRowTotal
"PERCENT_OF_COLUMN_TOTAL" -> Right PercentOfColumnTotal
"PERCENT_OF_GRAND_TOTAL" -> Right PercentOfGrandTotal
x -> Left ("Unable to parse PivotValueCalculatedDisplayType from: " <> x)
instance ToHttpApiData PivotValueCalculatedDisplayType where
toQueryParam = \case
PivotValueCalculatedDisplayTypeUnspecified -> "PIVOT_VALUE_CALCULATED_DISPLAY_TYPE_UNSPECIFIED"
PercentOfRowTotal -> "PERCENT_OF_ROW_TOTAL"
PercentOfColumnTotal -> "PERCENT_OF_COLUMN_TOTAL"
PercentOfGrandTotal -> "PERCENT_OF_GRAND_TOTAL"
instance FromJSON PivotValueCalculatedDisplayType where
parseJSON = parseJSONText "PivotValueCalculatedDisplayType"
instance ToJSON PivotValueCalculatedDisplayType where
toJSON = toJSONText
data BatchGetValuesByDataFilterRequestDateTimeRenderOption
= BGVBDFRDTROSerialNumber
| BGVBDFRDTROFormattedString
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchGetValuesByDataFilterRequestDateTimeRenderOption
instance FromHttpApiData BatchGetValuesByDataFilterRequestDateTimeRenderOption where
parseQueryParam = \case
"SERIAL_NUMBER" -> Right BGVBDFRDTROSerialNumber
"FORMATTED_STRING" -> Right BGVBDFRDTROFormattedString
x -> Left ("Unable to parse BatchGetValuesByDataFilterRequestDateTimeRenderOption from: " <> x)
instance ToHttpApiData BatchGetValuesByDataFilterRequestDateTimeRenderOption where
toQueryParam = \case
BGVBDFRDTROSerialNumber -> "SERIAL_NUMBER"
BGVBDFRDTROFormattedString -> "FORMATTED_STRING"
instance FromJSON BatchGetValuesByDataFilterRequestDateTimeRenderOption where
parseJSON = parseJSONText "BatchGetValuesByDataFilterRequestDateTimeRenderOption"
instance ToJSON BatchGetValuesByDataFilterRequestDateTimeRenderOption where
toJSON = toJSONText
data ChartSpecHiddenDimensionStrategy
= ChartHiddenDimensionStrategyUnspecified
| SkipHiddenRowsAndColumns
| SkipHiddenRows
| SkipHiddenColumns
| ShowAll
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ChartSpecHiddenDimensionStrategy
instance FromHttpApiData ChartSpecHiddenDimensionStrategy where
parseQueryParam = \case
"CHART_HIDDEN_DIMENSION_STRATEGY_UNSPECIFIED" -> Right ChartHiddenDimensionStrategyUnspecified
"SKIP_HIDDEN_ROWS_AND_COLUMNS" -> Right SkipHiddenRowsAndColumns
"SKIP_HIDDEN_ROWS" -> Right SkipHiddenRows
"SKIP_HIDDEN_COLUMNS" -> Right SkipHiddenColumns
"SHOW_ALL" -> Right ShowAll
x -> Left ("Unable to parse ChartSpecHiddenDimensionStrategy from: " <> x)
instance ToHttpApiData ChartSpecHiddenDimensionStrategy where
toQueryParam = \case
ChartHiddenDimensionStrategyUnspecified -> "CHART_HIDDEN_DIMENSION_STRATEGY_UNSPECIFIED"
SkipHiddenRowsAndColumns -> "SKIP_HIDDEN_ROWS_AND_COLUMNS"
SkipHiddenRows -> "SKIP_HIDDEN_ROWS"
SkipHiddenColumns -> "SKIP_HIDDEN_COLUMNS"
ShowAll -> "SHOW_ALL"
instance FromJSON ChartSpecHiddenDimensionStrategy where
parseJSON = parseJSONText "ChartSpecHiddenDimensionStrategy"
instance ToJSON ChartSpecHiddenDimensionStrategy where
toJSON = toJSONText
data BOrderStyle
= StyleUnspecified
| Dotted
| Dashed
| Solid
| SolidMedium
| SolidThick
| None
| Double
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BOrderStyle
instance FromHttpApiData BOrderStyle where
parseQueryParam = \case
"STYLE_UNSPECIFIED" -> Right StyleUnspecified
"DOTTED" -> Right Dotted
"DASHED" -> Right Dashed
"SOLID" -> Right Solid
"SOLID_MEDIUM" -> Right SolidMedium
"SOLID_THICK" -> Right SolidThick
"NONE" -> Right None
"DOUBLE" -> Right Double
x -> Left ("Unable to parse BOrderStyle from: " <> x)
instance ToHttpApiData BOrderStyle where
toQueryParam = \case
StyleUnspecified -> "STYLE_UNSPECIFIED"
Dotted -> "DOTTED"
Dashed -> "DASHED"
Solid -> "SOLID"
SolidMedium -> "SOLID_MEDIUM"
SolidThick -> "SOLID_THICK"
None -> "NONE"
Double -> "DOUBLE"
instance FromJSON BOrderStyle where
parseJSON = parseJSONText "BOrderStyle"
instance ToJSON BOrderStyle where
toJSON = toJSONText
data CutPasteRequestPasteType
= CPRPTPasteNormal
| CPRPTPasteValues
| CPRPTPasteFormat
| CPRPTPasteNoBOrders
| CPRPTPasteFormula
| CPRPTPasteDataValidation
| CPRPTPasteConditionalFormatting
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CutPasteRequestPasteType
instance FromHttpApiData CutPasteRequestPasteType where
parseQueryParam = \case
"PASTE_NORMAL" -> Right CPRPTPasteNormal
"PASTE_VALUES" -> Right CPRPTPasteValues
"PASTE_FORMAT" -> Right CPRPTPasteFormat
"PASTE_NO_BORDERS" -> Right CPRPTPasteNoBOrders
"PASTE_FORMULA" -> Right CPRPTPasteFormula
"PASTE_DATA_VALIDATION" -> Right CPRPTPasteDataValidation
"PASTE_CONDITIONAL_FORMATTING" -> Right CPRPTPasteConditionalFormatting
x -> Left ("Unable to parse CutPasteRequestPasteType from: " <> x)
instance ToHttpApiData CutPasteRequestPasteType where
toQueryParam = \case
CPRPTPasteNormal -> "PASTE_NORMAL"
CPRPTPasteValues -> "PASTE_VALUES"
CPRPTPasteFormat -> "PASTE_FORMAT"
CPRPTPasteNoBOrders -> "PASTE_NO_BORDERS"
CPRPTPasteFormula -> "PASTE_FORMULA"
CPRPTPasteDataValidation -> "PASTE_DATA_VALIDATION"
CPRPTPasteConditionalFormatting -> "PASTE_CONDITIONAL_FORMATTING"
instance FromJSON CutPasteRequestPasteType where
parseJSON = parseJSONText "CutPasteRequestPasteType"
instance ToJSON CutPasteRequestPasteType where
toJSON = toJSONText
data BasicChartSpecLegendPosition
= BCSLPBasicChartLegendPositionUnspecified
| BCSLPBottomLegend
| BCSLPLeftLegend
| BCSLPRightLegend
| BCSLPTopLegend
| BCSLPNoLegend
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BasicChartSpecLegendPosition
instance FromHttpApiData BasicChartSpecLegendPosition where
parseQueryParam = \case
"BASIC_CHART_LEGEND_POSITION_UNSPECIFIED" -> Right BCSLPBasicChartLegendPositionUnspecified
"BOTTOM_LEGEND" -> Right BCSLPBottomLegend
"LEFT_LEGEND" -> Right BCSLPLeftLegend
"RIGHT_LEGEND" -> Right BCSLPRightLegend
"TOP_LEGEND" -> Right BCSLPTopLegend
"NO_LEGEND" -> Right BCSLPNoLegend
x -> Left ("Unable to parse BasicChartSpecLegendPosition from: " <> x)
instance ToHttpApiData BasicChartSpecLegendPosition where
toQueryParam = \case
BCSLPBasicChartLegendPositionUnspecified -> "BASIC_CHART_LEGEND_POSITION_UNSPECIFIED"
BCSLPBottomLegend -> "BOTTOM_LEGEND"
BCSLPLeftLegend -> "LEFT_LEGEND"
BCSLPRightLegend -> "RIGHT_LEGEND"
BCSLPTopLegend -> "TOP_LEGEND"
BCSLPNoLegend -> "NO_LEGEND"
instance FromJSON BasicChartSpecLegendPosition where
parseJSON = parseJSONText "BasicChartSpecLegendPosition"
instance ToJSON BasicChartSpecLegendPosition where
toJSON = toJSONText
data ErrorValueType
= ErrorTypeUnspecified
| Error'
| NullValue
| DivideByZero
| Value
| Ref
| Name
| Num
| NA
| Loading
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ErrorValueType
instance FromHttpApiData ErrorValueType where
parseQueryParam = \case
"ERROR_TYPE_UNSPECIFIED" -> Right ErrorTypeUnspecified
"ERROR" -> Right Error'
"NULL_VALUE" -> Right NullValue
"DIVIDE_BY_ZERO" -> Right DivideByZero
"VALUE" -> Right Value
"REF" -> Right Ref
"NAME" -> Right Name
"NUM" -> Right Num
"N_A" -> Right NA
"LOADING" -> Right Loading
x -> Left ("Unable to parse ErrorValueType from: " <> x)
instance ToHttpApiData ErrorValueType where
toQueryParam = \case
ErrorTypeUnspecified -> "ERROR_TYPE_UNSPECIFIED"
Error' -> "ERROR"
NullValue -> "NULL_VALUE"
DivideByZero -> "DIVIDE_BY_ZERO"
Value -> "VALUE"
Ref -> "REF"
Name -> "NAME"
Num -> "NUM"
NA -> "N_A"
Loading -> "LOADING"
instance FromJSON ErrorValueType where
parseJSON = parseJSONText "ErrorValueType"
instance ToJSON ErrorValueType where
toJSON = toJSONText
data BatchGetValuesByDataFilterRequestMajorDimension
= BGVBDFRMDDimensionUnspecified
| BGVBDFRMDRows
| BGVBDFRMDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable BatchGetValuesByDataFilterRequestMajorDimension
instance FromHttpApiData BatchGetValuesByDataFilterRequestMajorDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right BGVBDFRMDDimensionUnspecified
"ROWS" -> Right BGVBDFRMDRows
"COLUMNS" -> Right BGVBDFRMDColumns
x -> Left ("Unable to parse BatchGetValuesByDataFilterRequestMajorDimension from: " <> x)
instance ToHttpApiData BatchGetValuesByDataFilterRequestMajorDimension where
toQueryParam = \case
BGVBDFRMDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
BGVBDFRMDRows -> "ROWS"
BGVBDFRMDColumns -> "COLUMNS"
instance FromJSON BatchGetValuesByDataFilterRequestMajorDimension where
parseJSON = parseJSONText "BatchGetValuesByDataFilterRequestMajorDimension"
instance ToJSON BatchGetValuesByDataFilterRequestMajorDimension where
toJSON = toJSONText
data PivotTableValueLayout
= Horizontal
| Vertical
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PivotTableValueLayout
instance FromHttpApiData PivotTableValueLayout where
parseQueryParam = \case
"HORIZONTAL" -> Right Horizontal
"VERTICAL" -> Right Vertical
x -> Left ("Unable to parse PivotTableValueLayout from: " <> x)
instance ToHttpApiData PivotTableValueLayout where
toQueryParam = \case
Horizontal -> "HORIZONTAL"
Vertical -> "VERTICAL"
instance FromJSON PivotTableValueLayout where
parseJSON = parseJSONText "PivotTableValueLayout"
instance ToJSON PivotTableValueLayout where
toJSON = toJSONText
data InterpolationPointType
= IPTInterpolationPointTypeUnspecified
| IPTMin
| IPTMax
| IPTNumber
| IPTPercent
| IPTPercentile
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable InterpolationPointType
instance FromHttpApiData InterpolationPointType where
parseQueryParam = \case
"INTERPOLATION_POINT_TYPE_UNSPECIFIED" -> Right IPTInterpolationPointTypeUnspecified
"MIN" -> Right IPTMin
"MAX" -> Right IPTMax
"NUMBER" -> Right IPTNumber
"PERCENT" -> Right IPTPercent
"PERCENTILE" -> Right IPTPercentile
x -> Left ("Unable to parse InterpolationPointType from: " <> x)
instance ToHttpApiData InterpolationPointType where
toQueryParam = \case
IPTInterpolationPointTypeUnspecified -> "INTERPOLATION_POINT_TYPE_UNSPECIFIED"
IPTMin -> "MIN"
IPTMax -> "MAX"
IPTNumber -> "NUMBER"
IPTPercent -> "PERCENT"
IPTPercentile -> "PERCENTILE"
instance FromJSON InterpolationPointType where
parseJSON = parseJSONText "InterpolationPointType"
instance ToJSON InterpolationPointType where
toJSON = toJSONText
data TextToColumnsRequestDelimiterType
= TTCRDTDelimiterTypeUnspecified
| TTCRDTComma
| TTCRDTSemicolon
| TTCRDTPeriod
| TTCRDTSpace
| TTCRDTCustom
| TTCRDTAutodetect
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TextToColumnsRequestDelimiterType
instance FromHttpApiData TextToColumnsRequestDelimiterType where
parseQueryParam = \case
"DELIMITER_TYPE_UNSPECIFIED" -> Right TTCRDTDelimiterTypeUnspecified
"COMMA" -> Right TTCRDTComma
"SEMICOLON" -> Right TTCRDTSemicolon
"PERIOD" -> Right TTCRDTPeriod
"SPACE" -> Right TTCRDTSpace
"CUSTOM" -> Right TTCRDTCustom
"AUTODETECT" -> Right TTCRDTAutodetect
x -> Left ("Unable to parse TextToColumnsRequestDelimiterType from: " <> x)
instance ToHttpApiData TextToColumnsRequestDelimiterType where
toQueryParam = \case
TTCRDTDelimiterTypeUnspecified -> "DELIMITER_TYPE_UNSPECIFIED"
TTCRDTComma -> "COMMA"
TTCRDTSemicolon -> "SEMICOLON"
TTCRDTPeriod -> "PERIOD"
TTCRDTSpace -> "SPACE"
TTCRDTCustom -> "CUSTOM"
TTCRDTAutodetect -> "AUTODETECT"
instance FromJSON TextToColumnsRequestDelimiterType where
parseJSON = parseJSONText "TextToColumnsRequestDelimiterType"
instance ToJSON TextToColumnsRequestDelimiterType where
toJSON = toJSONText
data InsertRangeRequestShiftDimension
= IRRSDDimensionUnspecified
| IRRSDRows
| IRRSDColumns
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable InsertRangeRequestShiftDimension
instance FromHttpApiData InsertRangeRequestShiftDimension where
parseQueryParam = \case
"DIMENSION_UNSPECIFIED" -> Right IRRSDDimensionUnspecified
"ROWS" -> Right IRRSDRows
"COLUMNS" -> Right IRRSDColumns
x -> Left ("Unable to parse InsertRangeRequestShiftDimension from: " <> x)
instance ToHttpApiData InsertRangeRequestShiftDimension where
toQueryParam = \case
IRRSDDimensionUnspecified -> "DIMENSION_UNSPECIFIED"
IRRSDRows -> "ROWS"
IRRSDColumns -> "COLUMNS"
instance FromJSON InsertRangeRequestShiftDimension where
parseJSON = parseJSONText "InsertRangeRequestShiftDimension"
instance ToJSON InsertRangeRequestShiftDimension where
toJSON = toJSONText