{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Sheets.Types.Product where
import Network.Google.Prelude
import Network.Google.Sheets.Types.Sum
data PivotGroupSortValueBucket = PivotGroupSortValueBucket'
{ _pgsvbBuckets :: !(Maybe [ExtendedValue])
, _pgsvbValuesIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
pivotGroupSortValueBucket
:: PivotGroupSortValueBucket
pivotGroupSortValueBucket =
PivotGroupSortValueBucket'
{ _pgsvbBuckets = Nothing
, _pgsvbValuesIndex = Nothing
}
pgsvbBuckets :: Lens' PivotGroupSortValueBucket [ExtendedValue]
pgsvbBuckets
= lens _pgsvbBuckets (\ s a -> s{_pgsvbBuckets = a})
. _Default
. _Coerce
pgsvbValuesIndex :: Lens' PivotGroupSortValueBucket (Maybe Int32)
pgsvbValuesIndex
= lens _pgsvbValuesIndex
(\ s a -> s{_pgsvbValuesIndex = a})
. mapping _Coerce
instance FromJSON PivotGroupSortValueBucket where
parseJSON
= withObject "PivotGroupSortValueBucket"
(\ o ->
PivotGroupSortValueBucket' <$>
(o .:? "buckets" .!= mempty) <*>
(o .:? "valuesIndex"))
instance ToJSON PivotGroupSortValueBucket where
toJSON PivotGroupSortValueBucket'{..}
= object
(catMaybes
[("buckets" .=) <$> _pgsvbBuckets,
("valuesIndex" .=) <$> _pgsvbValuesIndex])
data ValueRange = ValueRange'
{ _vrValues :: !(Maybe [[JSONValue]])
, _vrRange :: !(Maybe Text)
, _vrMajorDimension :: !(Maybe ValueRangeMajorDimension)
} deriving (Eq,Show,Data,Typeable,Generic)
valueRange
:: ValueRange
valueRange =
ValueRange'
{ _vrValues = Nothing
, _vrRange = Nothing
, _vrMajorDimension = Nothing
}
vrValues :: Lens' ValueRange [[JSONValue]]
vrValues
= lens _vrValues (\ s a -> s{_vrValues = a}) .
_Default
. _Coerce
vrRange :: Lens' ValueRange (Maybe Text)
vrRange = lens _vrRange (\ s a -> s{_vrRange = a})
vrMajorDimension :: Lens' ValueRange (Maybe ValueRangeMajorDimension)
vrMajorDimension
= lens _vrMajorDimension
(\ s a -> s{_vrMajorDimension = a})
instance FromJSON ValueRange where
parseJSON
= withObject "ValueRange"
(\ o ->
ValueRange' <$>
(o .:? "values" .!= mempty) <*> (o .:? "range") <*>
(o .:? "majorDimension"))
instance ToJSON ValueRange where
toJSON ValueRange'{..}
= object
(catMaybes
[("values" .=) <$> _vrValues,
("range" .=) <$> _vrRange,
("majorDimension" .=) <$> _vrMajorDimension])
data SortRangeRequest = SortRangeRequest'
{ _srrSortSpecs :: !(Maybe [SortSpec])
, _srrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
sortRangeRequest
:: SortRangeRequest
sortRangeRequest =
SortRangeRequest'
{ _srrSortSpecs = Nothing
, _srrRange = Nothing
}
srrSortSpecs :: Lens' SortRangeRequest [SortSpec]
srrSortSpecs
= lens _srrSortSpecs (\ s a -> s{_srrSortSpecs = a})
. _Default
. _Coerce
srrRange :: Lens' SortRangeRequest (Maybe GridRange)
srrRange = lens _srrRange (\ s a -> s{_srrRange = a})
instance FromJSON SortRangeRequest where
parseJSON
= withObject "SortRangeRequest"
(\ o ->
SortRangeRequest' <$>
(o .:? "sortSpecs" .!= mempty) <*> (o .:? "range"))
instance ToJSON SortRangeRequest where
toJSON SortRangeRequest'{..}
= object
(catMaybes
[("sortSpecs" .=) <$> _srrSortSpecs,
("range" .=) <$> _srrRange])
newtype DeleteNamedRangeRequest = DeleteNamedRangeRequest'
{ _dnrrNamedRangeId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
deleteNamedRangeRequest
:: DeleteNamedRangeRequest
deleteNamedRangeRequest =
DeleteNamedRangeRequest'
{ _dnrrNamedRangeId = Nothing
}
dnrrNamedRangeId :: Lens' DeleteNamedRangeRequest (Maybe Text)
dnrrNamedRangeId
= lens _dnrrNamedRangeId
(\ s a -> s{_dnrrNamedRangeId = a})
instance FromJSON DeleteNamedRangeRequest where
parseJSON
= withObject "DeleteNamedRangeRequest"
(\ o ->
DeleteNamedRangeRequest' <$> (o .:? "namedRangeId"))
instance ToJSON DeleteNamedRangeRequest where
toJSON DeleteNamedRangeRequest'{..}
= object
(catMaybes
[("namedRangeId" .=) <$> _dnrrNamedRangeId])
data UpdateNamedRangeRequest = UpdateNamedRangeRequest'
{ _unrrNamedRange :: !(Maybe NamedRange)
, _unrrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateNamedRangeRequest
:: UpdateNamedRangeRequest
updateNamedRangeRequest =
UpdateNamedRangeRequest'
{ _unrrNamedRange = Nothing
, _unrrFields = Nothing
}
unrrNamedRange :: Lens' UpdateNamedRangeRequest (Maybe NamedRange)
unrrNamedRange
= lens _unrrNamedRange
(\ s a -> s{_unrrNamedRange = a})
unrrFields :: Lens' UpdateNamedRangeRequest (Maybe GFieldMask)
unrrFields
= lens _unrrFields (\ s a -> s{_unrrFields = a})
instance FromJSON UpdateNamedRangeRequest where
parseJSON
= withObject "UpdateNamedRangeRequest"
(\ o ->
UpdateNamedRangeRequest' <$>
(o .:? "namedRange") <*> (o .:? "fields"))
instance ToJSON UpdateNamedRangeRequest where
toJSON UpdateNamedRangeRequest'{..}
= object
(catMaybes
[("namedRange" .=) <$> _unrrNamedRange,
("fields" .=) <$> _unrrFields])
newtype ChartData = ChartData'
{ _cdSourceRange :: Maybe ChartSourceRange
} deriving (Eq,Show,Data,Typeable,Generic)
chartData
:: ChartData
chartData =
ChartData'
{ _cdSourceRange = Nothing
}
cdSourceRange :: Lens' ChartData (Maybe ChartSourceRange)
cdSourceRange
= lens _cdSourceRange
(\ s a -> s{_cdSourceRange = a})
instance FromJSON ChartData where
parseJSON
= withObject "ChartData"
(\ o -> ChartData' <$> (o .:? "sourceRange"))
instance ToJSON ChartData where
toJSON ChartData'{..}
= object
(catMaybes [("sourceRange" .=) <$> _cdSourceRange])
newtype BatchClearValuesRequest = BatchClearValuesRequest'
{ _bcvrRanges :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
batchClearValuesRequest
:: BatchClearValuesRequest
batchClearValuesRequest =
BatchClearValuesRequest'
{ _bcvrRanges = Nothing
}
bcvrRanges :: Lens' BatchClearValuesRequest [Text]
bcvrRanges
= lens _bcvrRanges (\ s a -> s{_bcvrRanges = a}) .
_Default
. _Coerce
instance FromJSON BatchClearValuesRequest where
parseJSON
= withObject "BatchClearValuesRequest"
(\ o ->
BatchClearValuesRequest' <$>
(o .:? "ranges" .!= mempty))
instance ToJSON BatchClearValuesRequest where
toJSON BatchClearValuesRequest'{..}
= object (catMaybes [("ranges" .=) <$> _bcvrRanges])
newtype CreateDeveloperMetadataResponse = CreateDeveloperMetadataResponse'
{ _cdmrDeveloperMetadata :: Maybe DeveloperMetadata
} deriving (Eq,Show,Data,Typeable,Generic)
createDeveloperMetadataResponse
:: CreateDeveloperMetadataResponse
createDeveloperMetadataResponse =
CreateDeveloperMetadataResponse'
{ _cdmrDeveloperMetadata = Nothing
}
cdmrDeveloperMetadata :: Lens' CreateDeveloperMetadataResponse (Maybe DeveloperMetadata)
cdmrDeveloperMetadata
= lens _cdmrDeveloperMetadata
(\ s a -> s{_cdmrDeveloperMetadata = a})
instance FromJSON CreateDeveloperMetadataResponse
where
parseJSON
= withObject "CreateDeveloperMetadataResponse"
(\ o ->
CreateDeveloperMetadataResponse' <$>
(o .:? "developerMetadata"))
instance ToJSON CreateDeveloperMetadataResponse where
toJSON CreateDeveloperMetadataResponse'{..}
= object
(catMaybes
[("developerMetadata" .=) <$>
_cdmrDeveloperMetadata])
newtype DateTimeRule = DateTimeRule'
{ _dtrType :: Maybe DateTimeRuleType
} deriving (Eq,Show,Data,Typeable,Generic)
dateTimeRule
:: DateTimeRule
dateTimeRule =
DateTimeRule'
{ _dtrType = Nothing
}
dtrType :: Lens' DateTimeRule (Maybe DateTimeRuleType)
dtrType = lens _dtrType (\ s a -> s{_dtrType = a})
instance FromJSON DateTimeRule where
parseJSON
= withObject "DateTimeRule"
(\ o -> DateTimeRule' <$> (o .:? "type"))
instance ToJSON DateTimeRule where
toJSON DateTimeRule'{..}
= object (catMaybes [("type" .=) <$> _dtrType])
data SpreadsheetProperties = SpreadsheetProperties'
{ _spDefaultFormat :: !(Maybe CellFormat)
, _spLocale :: !(Maybe Text)
, _spIterativeCalculationSettings :: !(Maybe IterativeCalculationSettings)
, _spAutoRecalc :: !(Maybe SpreadsheetPropertiesAutoRecalc)
, _spTitle :: !(Maybe Text)
, _spTimeZone :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
spreadsheetProperties
:: SpreadsheetProperties
spreadsheetProperties =
SpreadsheetProperties'
{ _spDefaultFormat = Nothing
, _spLocale = Nothing
, _spIterativeCalculationSettings = Nothing
, _spAutoRecalc = Nothing
, _spTitle = Nothing
, _spTimeZone = Nothing
}
spDefaultFormat :: Lens' SpreadsheetProperties (Maybe CellFormat)
spDefaultFormat
= lens _spDefaultFormat
(\ s a -> s{_spDefaultFormat = a})
spLocale :: Lens' SpreadsheetProperties (Maybe Text)
spLocale = lens _spLocale (\ s a -> s{_spLocale = a})
spIterativeCalculationSettings :: Lens' SpreadsheetProperties (Maybe IterativeCalculationSettings)
spIterativeCalculationSettings
= lens _spIterativeCalculationSettings
(\ s a -> s{_spIterativeCalculationSettings = a})
spAutoRecalc :: Lens' SpreadsheetProperties (Maybe SpreadsheetPropertiesAutoRecalc)
spAutoRecalc
= lens _spAutoRecalc (\ s a -> s{_spAutoRecalc = a})
spTitle :: Lens' SpreadsheetProperties (Maybe Text)
spTitle = lens _spTitle (\ s a -> s{_spTitle = a})
spTimeZone :: Lens' SpreadsheetProperties (Maybe Text)
spTimeZone
= lens _spTimeZone (\ s a -> s{_spTimeZone = a})
instance FromJSON SpreadsheetProperties where
parseJSON
= withObject "SpreadsheetProperties"
(\ o ->
SpreadsheetProperties' <$>
(o .:? "defaultFormat") <*> (o .:? "locale") <*>
(o .:? "iterativeCalculationSettings")
<*> (o .:? "autoRecalc")
<*> (o .:? "title")
<*> (o .:? "timeZone"))
instance ToJSON SpreadsheetProperties where
toJSON SpreadsheetProperties'{..}
= object
(catMaybes
[("defaultFormat" .=) <$> _spDefaultFormat,
("locale" .=) <$> _spLocale,
("iterativeCalculationSettings" .=) <$>
_spIterativeCalculationSettings,
("autoRecalc" .=) <$> _spAutoRecalc,
("title" .=) <$> _spTitle,
("timeZone" .=) <$> _spTimeZone])
data BOrders = BOrders'
{ _boBottom :: !(Maybe BOrder)
, _boLeft :: !(Maybe BOrder)
, _boRight :: !(Maybe BOrder)
, _boTop :: !(Maybe BOrder)
} deriving (Eq,Show,Data,Typeable,Generic)
bOrders
:: BOrders
bOrders =
BOrders'
{ _boBottom = Nothing
, _boLeft = Nothing
, _boRight = Nothing
, _boTop = Nothing
}
boBottom :: Lens' BOrders (Maybe BOrder)
boBottom = lens _boBottom (\ s a -> s{_boBottom = a})
boLeft :: Lens' BOrders (Maybe BOrder)
boLeft = lens _boLeft (\ s a -> s{_boLeft = a})
boRight :: Lens' BOrders (Maybe BOrder)
boRight = lens _boRight (\ s a -> s{_boRight = a})
boTop :: Lens' BOrders (Maybe BOrder)
boTop = lens _boTop (\ s a -> s{_boTop = a})
instance FromJSON BOrders where
parseJSON
= withObject "BOrders"
(\ o ->
BOrders' <$>
(o .:? "bottom") <*> (o .:? "left") <*>
(o .:? "right")
<*> (o .:? "top"))
instance ToJSON BOrders where
toJSON BOrders'{..}
= object
(catMaybes
[("bottom" .=) <$> _boBottom,
("left" .=) <$> _boLeft, ("right" .=) <$> _boRight,
("top" .=) <$> _boTop])
newtype BatchClearValuesByDataFilterRequest = BatchClearValuesByDataFilterRequest'
{ _bcvbdfrDataFilters :: Maybe [DataFilter]
} deriving (Eq,Show,Data,Typeable,Generic)
batchClearValuesByDataFilterRequest
:: BatchClearValuesByDataFilterRequest
batchClearValuesByDataFilterRequest =
BatchClearValuesByDataFilterRequest'
{ _bcvbdfrDataFilters = Nothing
}
bcvbdfrDataFilters :: Lens' BatchClearValuesByDataFilterRequest [DataFilter]
bcvbdfrDataFilters
= lens _bcvbdfrDataFilters
(\ s a -> s{_bcvbdfrDataFilters = a})
. _Default
. _Coerce
instance FromJSON BatchClearValuesByDataFilterRequest
where
parseJSON
= withObject "BatchClearValuesByDataFilterRequest"
(\ o ->
BatchClearValuesByDataFilterRequest' <$>
(o .:? "dataFilters" .!= mempty))
instance ToJSON BatchClearValuesByDataFilterRequest
where
toJSON BatchClearValuesByDataFilterRequest'{..}
= object
(catMaybes
[("dataFilters" .=) <$> _bcvbdfrDataFilters])
data TextFormatRun = TextFormatRun'
{ _tfrFormat :: !(Maybe TextFormat)
, _tfrStartIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
textFormatRun
:: TextFormatRun
textFormatRun =
TextFormatRun'
{ _tfrFormat = Nothing
, _tfrStartIndex = Nothing
}
tfrFormat :: Lens' TextFormatRun (Maybe TextFormat)
tfrFormat
= lens _tfrFormat (\ s a -> s{_tfrFormat = a})
tfrStartIndex :: Lens' TextFormatRun (Maybe Int32)
tfrStartIndex
= lens _tfrStartIndex
(\ s a -> s{_tfrStartIndex = a})
. mapping _Coerce
instance FromJSON TextFormatRun where
parseJSON
= withObject "TextFormatRun"
(\ o ->
TextFormatRun' <$>
(o .:? "format") <*> (o .:? "startIndex"))
instance ToJSON TextFormatRun where
toJSON TextFormatRun'{..}
= object
(catMaybes
[("format" .=) <$> _tfrFormat,
("startIndex" .=) <$> _tfrStartIndex])
newtype DeleteDimensionGroupRequest = DeleteDimensionGroupRequest'
{ _ddgrRange :: Maybe DimensionRange
} deriving (Eq,Show,Data,Typeable,Generic)
deleteDimensionGroupRequest
:: DeleteDimensionGroupRequest
deleteDimensionGroupRequest =
DeleteDimensionGroupRequest'
{ _ddgrRange = Nothing
}
ddgrRange :: Lens' DeleteDimensionGroupRequest (Maybe DimensionRange)
ddgrRange
= lens _ddgrRange (\ s a -> s{_ddgrRange = a})
instance FromJSON DeleteDimensionGroupRequest where
parseJSON
= withObject "DeleteDimensionGroupRequest"
(\ o ->
DeleteDimensionGroupRequest' <$> (o .:? "range"))
instance ToJSON DeleteDimensionGroupRequest where
toJSON DeleteDimensionGroupRequest'{..}
= object (catMaybes [("range" .=) <$> _ddgrRange])
data UpdateDimensionGroupRequest = UpdateDimensionGroupRequest'
{ _udgrDimensionGroup :: !(Maybe DimensionGroup)
, _udgrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateDimensionGroupRequest
:: UpdateDimensionGroupRequest
updateDimensionGroupRequest =
UpdateDimensionGroupRequest'
{ _udgrDimensionGroup = Nothing
, _udgrFields = Nothing
}
udgrDimensionGroup :: Lens' UpdateDimensionGroupRequest (Maybe DimensionGroup)
udgrDimensionGroup
= lens _udgrDimensionGroup
(\ s a -> s{_udgrDimensionGroup = a})
udgrFields :: Lens' UpdateDimensionGroupRequest (Maybe GFieldMask)
udgrFields
= lens _udgrFields (\ s a -> s{_udgrFields = a})
instance FromJSON UpdateDimensionGroupRequest where
parseJSON
= withObject "UpdateDimensionGroupRequest"
(\ o ->
UpdateDimensionGroupRequest' <$>
(o .:? "dimensionGroup") <*> (o .:? "fields"))
instance ToJSON UpdateDimensionGroupRequest where
toJSON UpdateDimensionGroupRequest'{..}
= object
(catMaybes
[("dimensionGroup" .=) <$> _udgrDimensionGroup,
("fields" .=) <$> _udgrFields])
newtype AddSheetRequest = AddSheetRequest'
{ _asrProperties :: Maybe SheetProperties
} deriving (Eq,Show,Data,Typeable,Generic)
addSheetRequest
:: AddSheetRequest
addSheetRequest =
AddSheetRequest'
{ _asrProperties = Nothing
}
asrProperties :: Lens' AddSheetRequest (Maybe SheetProperties)
asrProperties
= lens _asrProperties
(\ s a -> s{_asrProperties = a})
instance FromJSON AddSheetRequest where
parseJSON
= withObject "AddSheetRequest"
(\ o -> AddSheetRequest' <$> (o .:? "properties"))
instance ToJSON AddSheetRequest where
toJSON AddSheetRequest'{..}
= object
(catMaybes [("properties" .=) <$> _asrProperties])
data SortSpec = SortSpec'
{ _ssSortOrder :: !(Maybe SortSpecSortOrder)
, _ssDimensionIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
sortSpec
:: SortSpec
sortSpec =
SortSpec'
{ _ssSortOrder = Nothing
, _ssDimensionIndex = Nothing
}
ssSortOrder :: Lens' SortSpec (Maybe SortSpecSortOrder)
ssSortOrder
= lens _ssSortOrder (\ s a -> s{_ssSortOrder = a})
ssDimensionIndex :: Lens' SortSpec (Maybe Int32)
ssDimensionIndex
= lens _ssDimensionIndex
(\ s a -> s{_ssDimensionIndex = a})
. mapping _Coerce
instance FromJSON SortSpec where
parseJSON
= withObject "SortSpec"
(\ o ->
SortSpec' <$>
(o .:? "sortOrder") <*> (o .:? "dimensionIndex"))
instance ToJSON SortSpec where
toJSON SortSpec'{..}
= object
(catMaybes
[("sortOrder" .=) <$> _ssSortOrder,
("dimensionIndex" .=) <$> _ssDimensionIndex])
data DimensionGroup = DimensionGroup'
{ _dgCollapsed :: !(Maybe Bool)
, _dgRange :: !(Maybe DimensionRange)
, _dgDepth :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
dimensionGroup
:: DimensionGroup
dimensionGroup =
DimensionGroup'
{ _dgCollapsed = Nothing
, _dgRange = Nothing
, _dgDepth = Nothing
}
dgCollapsed :: Lens' DimensionGroup (Maybe Bool)
dgCollapsed
= lens _dgCollapsed (\ s a -> s{_dgCollapsed = a})
dgRange :: Lens' DimensionGroup (Maybe DimensionRange)
dgRange = lens _dgRange (\ s a -> s{_dgRange = a})
dgDepth :: Lens' DimensionGroup (Maybe Int32)
dgDepth
= lens _dgDepth (\ s a -> s{_dgDepth = a}) .
mapping _Coerce
instance FromJSON DimensionGroup where
parseJSON
= withObject "DimensionGroup"
(\ o ->
DimensionGroup' <$>
(o .:? "collapsed") <*> (o .:? "range") <*>
(o .:? "depth"))
instance ToJSON DimensionGroup where
toJSON DimensionGroup'{..}
= object
(catMaybes
[("collapsed" .=) <$> _dgCollapsed,
("range" .=) <$> _dgRange,
("depth" .=) <$> _dgDepth])
data CopyPasteRequest = CopyPasteRequest'
{ _cprDestination :: !(Maybe GridRange)
, _cprSource :: !(Maybe GridRange)
, _cprPasteOrientation :: !(Maybe CopyPasteRequestPasteOrientation)
, _cprPasteType :: !(Maybe CopyPasteRequestPasteType)
} deriving (Eq,Show,Data,Typeable,Generic)
copyPasteRequest
:: CopyPasteRequest
copyPasteRequest =
CopyPasteRequest'
{ _cprDestination = Nothing
, _cprSource = Nothing
, _cprPasteOrientation = Nothing
, _cprPasteType = Nothing
}
cprDestination :: Lens' CopyPasteRequest (Maybe GridRange)
cprDestination
= lens _cprDestination
(\ s a -> s{_cprDestination = a})
cprSource :: Lens' CopyPasteRequest (Maybe GridRange)
cprSource
= lens _cprSource (\ s a -> s{_cprSource = a})
cprPasteOrientation :: Lens' CopyPasteRequest (Maybe CopyPasteRequestPasteOrientation)
cprPasteOrientation
= lens _cprPasteOrientation
(\ s a -> s{_cprPasteOrientation = a})
cprPasteType :: Lens' CopyPasteRequest (Maybe CopyPasteRequestPasteType)
cprPasteType
= lens _cprPasteType (\ s a -> s{_cprPasteType = a})
instance FromJSON CopyPasteRequest where
parseJSON
= withObject "CopyPasteRequest"
(\ o ->
CopyPasteRequest' <$>
(o .:? "destination") <*> (o .:? "source") <*>
(o .:? "pasteOrientation")
<*> (o .:? "pasteType"))
instance ToJSON CopyPasteRequest where
toJSON CopyPasteRequest'{..}
= object
(catMaybes
[("destination" .=) <$> _cprDestination,
("source" .=) <$> _cprSource,
("pasteOrientation" .=) <$> _cprPasteOrientation,
("pasteType" .=) <$> _cprPasteType])
data GridRange = GridRange'
{ _grEndColumnIndex :: !(Maybe (Textual Int32))
, _grStartColumnIndex :: !(Maybe (Textual Int32))
, _grEndRowIndex :: !(Maybe (Textual Int32))
, _grStartRowIndex :: !(Maybe (Textual Int32))
, _grSheetId :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
gridRange
:: GridRange
gridRange =
GridRange'
{ _grEndColumnIndex = Nothing
, _grStartColumnIndex = Nothing
, _grEndRowIndex = Nothing
, _grStartRowIndex = Nothing
, _grSheetId = Nothing
}
grEndColumnIndex :: Lens' GridRange (Maybe Int32)
grEndColumnIndex
= lens _grEndColumnIndex
(\ s a -> s{_grEndColumnIndex = a})
. mapping _Coerce
grStartColumnIndex :: Lens' GridRange (Maybe Int32)
grStartColumnIndex
= lens _grStartColumnIndex
(\ s a -> s{_grStartColumnIndex = a})
. mapping _Coerce
grEndRowIndex :: Lens' GridRange (Maybe Int32)
grEndRowIndex
= lens _grEndRowIndex
(\ s a -> s{_grEndRowIndex = a})
. mapping _Coerce
grStartRowIndex :: Lens' GridRange (Maybe Int32)
grStartRowIndex
= lens _grStartRowIndex
(\ s a -> s{_grStartRowIndex = a})
. mapping _Coerce
grSheetId :: Lens' GridRange (Maybe Int32)
grSheetId
= lens _grSheetId (\ s a -> s{_grSheetId = a}) .
mapping _Coerce
instance FromJSON GridRange where
parseJSON
= withObject "GridRange"
(\ o ->
GridRange' <$>
(o .:? "endColumnIndex") <*>
(o .:? "startColumnIndex")
<*> (o .:? "endRowIndex")
<*> (o .:? "startRowIndex")
<*> (o .:? "sheetId"))
instance ToJSON GridRange where
toJSON GridRange'{..}
= object
(catMaybes
[("endColumnIndex" .=) <$> _grEndColumnIndex,
("startColumnIndex" .=) <$> _grStartColumnIndex,
("endRowIndex" .=) <$> _grEndRowIndex,
("startRowIndex" .=) <$> _grStartRowIndex,
("sheetId" .=) <$> _grSheetId])
newtype AddFilterViewResponse = AddFilterViewResponse'
{ _afvrFilter :: Maybe FilterView
} deriving (Eq,Show,Data,Typeable,Generic)
addFilterViewResponse
:: AddFilterViewResponse
addFilterViewResponse =
AddFilterViewResponse'
{ _afvrFilter = Nothing
}
afvrFilter :: Lens' AddFilterViewResponse (Maybe FilterView)
afvrFilter
= lens _afvrFilter (\ s a -> s{_afvrFilter = a})
instance FromJSON AddFilterViewResponse where
parseJSON
= withObject "AddFilterViewResponse"
(\ o -> AddFilterViewResponse' <$> (o .:? "filter"))
instance ToJSON AddFilterViewResponse where
toJSON AddFilterViewResponse'{..}
= object (catMaybes [("filter" .=) <$> _afvrFilter])
data BooleanCondition = BooleanCondition'
{ _bcValues :: !(Maybe [ConditionValue])
, _bcType :: !(Maybe BooleanConditionType)
} deriving (Eq,Show,Data,Typeable,Generic)
booleanCondition
:: BooleanCondition
booleanCondition =
BooleanCondition'
{ _bcValues = Nothing
, _bcType = Nothing
}
bcValues :: Lens' BooleanCondition [ConditionValue]
bcValues
= lens _bcValues (\ s a -> s{_bcValues = a}) .
_Default
. _Coerce
bcType :: Lens' BooleanCondition (Maybe BooleanConditionType)
bcType = lens _bcType (\ s a -> s{_bcType = a})
instance FromJSON BooleanCondition where
parseJSON
= withObject "BooleanCondition"
(\ o ->
BooleanCondition' <$>
(o .:? "values" .!= mempty) <*> (o .:? "type"))
instance ToJSON BooleanCondition where
toJSON BooleanCondition'{..}
= object
(catMaybes
[("values" .=) <$> _bcValues,
("type" .=) <$> _bcType])
newtype AutoResizeDimensionsRequest = AutoResizeDimensionsRequest'
{ _ardrDimensions :: Maybe DimensionRange
} deriving (Eq,Show,Data,Typeable,Generic)
autoResizeDimensionsRequest
:: AutoResizeDimensionsRequest
autoResizeDimensionsRequest =
AutoResizeDimensionsRequest'
{ _ardrDimensions = Nothing
}
ardrDimensions :: Lens' AutoResizeDimensionsRequest (Maybe DimensionRange)
ardrDimensions
= lens _ardrDimensions
(\ s a -> s{_ardrDimensions = a})
instance FromJSON AutoResizeDimensionsRequest where
parseJSON
= withObject "AutoResizeDimensionsRequest"
(\ o ->
AutoResizeDimensionsRequest' <$>
(o .:? "dimensions"))
instance ToJSON AutoResizeDimensionsRequest where
toJSON AutoResizeDimensionsRequest'{..}
= object
(catMaybes [("dimensions" .=) <$> _ardrDimensions])
data BubbleChartSpec = BubbleChartSpec'
{ _bcsBubbleTextStyle :: !(Maybe TextFormat)
, _bcsBubbleBOrderColor :: !(Maybe Color)
, _bcsLegendPosition :: !(Maybe BubbleChartSpecLegendPosition)
, _bcsDomain :: !(Maybe ChartData)
, _bcsSeries :: !(Maybe ChartData)
, _bcsBubbleLabels :: !(Maybe ChartData)
, _bcsGroupIds :: !(Maybe ChartData)
, _bcsBubbleMinRadiusSize :: !(Maybe (Textual Int32))
, _bcsBubbleMaxRadiusSize :: !(Maybe (Textual Int32))
, _bcsBubbleOpacity :: !(Maybe (Textual Double))
, _bcsBubbleSizes :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
bubbleChartSpec
:: BubbleChartSpec
bubbleChartSpec =
BubbleChartSpec'
{ _bcsBubbleTextStyle = Nothing
, _bcsBubbleBOrderColor = Nothing
, _bcsLegendPosition = Nothing
, _bcsDomain = Nothing
, _bcsSeries = Nothing
, _bcsBubbleLabels = Nothing
, _bcsGroupIds = Nothing
, _bcsBubbleMinRadiusSize = Nothing
, _bcsBubbleMaxRadiusSize = Nothing
, _bcsBubbleOpacity = Nothing
, _bcsBubbleSizes = Nothing
}
bcsBubbleTextStyle :: Lens' BubbleChartSpec (Maybe TextFormat)
bcsBubbleTextStyle
= lens _bcsBubbleTextStyle
(\ s a -> s{_bcsBubbleTextStyle = a})
bcsBubbleBOrderColor :: Lens' BubbleChartSpec (Maybe Color)
bcsBubbleBOrderColor
= lens _bcsBubbleBOrderColor
(\ s a -> s{_bcsBubbleBOrderColor = a})
bcsLegendPosition :: Lens' BubbleChartSpec (Maybe BubbleChartSpecLegendPosition)
bcsLegendPosition
= lens _bcsLegendPosition
(\ s a -> s{_bcsLegendPosition = a})
bcsDomain :: Lens' BubbleChartSpec (Maybe ChartData)
bcsDomain
= lens _bcsDomain (\ s a -> s{_bcsDomain = a})
bcsSeries :: Lens' BubbleChartSpec (Maybe ChartData)
bcsSeries
= lens _bcsSeries (\ s a -> s{_bcsSeries = a})
bcsBubbleLabels :: Lens' BubbleChartSpec (Maybe ChartData)
bcsBubbleLabels
= lens _bcsBubbleLabels
(\ s a -> s{_bcsBubbleLabels = a})
bcsGroupIds :: Lens' BubbleChartSpec (Maybe ChartData)
bcsGroupIds
= lens _bcsGroupIds (\ s a -> s{_bcsGroupIds = a})
bcsBubbleMinRadiusSize :: Lens' BubbleChartSpec (Maybe Int32)
bcsBubbleMinRadiusSize
= lens _bcsBubbleMinRadiusSize
(\ s a -> s{_bcsBubbleMinRadiusSize = a})
. mapping _Coerce
bcsBubbleMaxRadiusSize :: Lens' BubbleChartSpec (Maybe Int32)
bcsBubbleMaxRadiusSize
= lens _bcsBubbleMaxRadiusSize
(\ s a -> s{_bcsBubbleMaxRadiusSize = a})
. mapping _Coerce
bcsBubbleOpacity :: Lens' BubbleChartSpec (Maybe Double)
bcsBubbleOpacity
= lens _bcsBubbleOpacity
(\ s a -> s{_bcsBubbleOpacity = a})
. mapping _Coerce
bcsBubbleSizes :: Lens' BubbleChartSpec (Maybe ChartData)
bcsBubbleSizes
= lens _bcsBubbleSizes
(\ s a -> s{_bcsBubbleSizes = a})
instance FromJSON BubbleChartSpec where
parseJSON
= withObject "BubbleChartSpec"
(\ o ->
BubbleChartSpec' <$>
(o .:? "bubbleTextStyle") <*>
(o .:? "bubbleBorderColor")
<*> (o .:? "legendPosition")
<*> (o .:? "domain")
<*> (o .:? "series")
<*> (o .:? "bubbleLabels")
<*> (o .:? "groupIds")
<*> (o .:? "bubbleMinRadiusSize")
<*> (o .:? "bubbleMaxRadiusSize")
<*> (o .:? "bubbleOpacity")
<*> (o .:? "bubbleSizes"))
instance ToJSON BubbleChartSpec where
toJSON BubbleChartSpec'{..}
= object
(catMaybes
[("bubbleTextStyle" .=) <$> _bcsBubbleTextStyle,
("bubbleBorderColor" .=) <$> _bcsBubbleBOrderColor,
("legendPosition" .=) <$> _bcsLegendPosition,
("domain" .=) <$> _bcsDomain,
("series" .=) <$> _bcsSeries,
("bubbleLabels" .=) <$> _bcsBubbleLabels,
("groupIds" .=) <$> _bcsGroupIds,
("bubbleMinRadiusSize" .=) <$>
_bcsBubbleMinRadiusSize,
("bubbleMaxRadiusSize" .=) <$>
_bcsBubbleMaxRadiusSize,
("bubbleOpacity" .=) <$> _bcsBubbleOpacity,
("bubbleSizes" .=) <$> _bcsBubbleSizes])
data DeleteRangeRequest = DeleteRangeRequest'
{ _drrShiftDimension :: !(Maybe DeleteRangeRequestShiftDimension)
, _drrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
deleteRangeRequest
:: DeleteRangeRequest
deleteRangeRequest =
DeleteRangeRequest'
{ _drrShiftDimension = Nothing
, _drrRange = Nothing
}
drrShiftDimension :: Lens' DeleteRangeRequest (Maybe DeleteRangeRequestShiftDimension)
drrShiftDimension
= lens _drrShiftDimension
(\ s a -> s{_drrShiftDimension = a})
drrRange :: Lens' DeleteRangeRequest (Maybe GridRange)
drrRange = lens _drrRange (\ s a -> s{_drrRange = a})
instance FromJSON DeleteRangeRequest where
parseJSON
= withObject "DeleteRangeRequest"
(\ o ->
DeleteRangeRequest' <$>
(o .:? "shiftDimension") <*> (o .:? "range"))
instance ToJSON DeleteRangeRequest where
toJSON DeleteRangeRequest'{..}
= object
(catMaybes
[("shiftDimension" .=) <$> _drrShiftDimension,
("range" .=) <$> _drrRange])
data Sheet = Sheet'
{ _sColumnGroups :: !(Maybe [DimensionGroup])
, _sData :: !(Maybe [GridData])
, _sMerges :: !(Maybe [GridRange])
, _sRowGroups :: !(Maybe [DimensionGroup])
, _sProtectedRanges :: !(Maybe [ProtectedRange])
, _sBandedRanges :: !(Maybe [BandedRange])
, _sCharts :: !(Maybe [EmbeddedChart])
, _sBasicFilter :: !(Maybe BasicFilter)
, _sDeveloperMetadata :: !(Maybe [DeveloperMetadata])
, _sConditionalFormats :: !(Maybe [ConditionalFormatRule])
, _sFilterViews :: !(Maybe [FilterView])
, _sProperties :: !(Maybe SheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
sheet
:: Sheet
sheet =
Sheet'
{ _sColumnGroups = Nothing
, _sData = Nothing
, _sMerges = Nothing
, _sRowGroups = Nothing
, _sProtectedRanges = Nothing
, _sBandedRanges = Nothing
, _sCharts = Nothing
, _sBasicFilter = Nothing
, _sDeveloperMetadata = Nothing
, _sConditionalFormats = Nothing
, _sFilterViews = Nothing
, _sProperties = Nothing
}
sColumnGroups :: Lens' Sheet [DimensionGroup]
sColumnGroups
= lens _sColumnGroups
(\ s a -> s{_sColumnGroups = a})
. _Default
. _Coerce
sData :: Lens' Sheet [GridData]
sData
= lens _sData (\ s a -> s{_sData = a}) . _Default .
_Coerce
sMerges :: Lens' Sheet [GridRange]
sMerges
= lens _sMerges (\ s a -> s{_sMerges = a}) . _Default
. _Coerce
sRowGroups :: Lens' Sheet [DimensionGroup]
sRowGroups
= lens _sRowGroups (\ s a -> s{_sRowGroups = a}) .
_Default
. _Coerce
sProtectedRanges :: Lens' Sheet [ProtectedRange]
sProtectedRanges
= lens _sProtectedRanges
(\ s a -> s{_sProtectedRanges = a})
. _Default
. _Coerce
sBandedRanges :: Lens' Sheet [BandedRange]
sBandedRanges
= lens _sBandedRanges
(\ s a -> s{_sBandedRanges = a})
. _Default
. _Coerce
sCharts :: Lens' Sheet [EmbeddedChart]
sCharts
= lens _sCharts (\ s a -> s{_sCharts = a}) . _Default
. _Coerce
sBasicFilter :: Lens' Sheet (Maybe BasicFilter)
sBasicFilter
= lens _sBasicFilter (\ s a -> s{_sBasicFilter = a})
sDeveloperMetadata :: Lens' Sheet [DeveloperMetadata]
sDeveloperMetadata
= lens _sDeveloperMetadata
(\ s a -> s{_sDeveloperMetadata = a})
. _Default
. _Coerce
sConditionalFormats :: Lens' Sheet [ConditionalFormatRule]
sConditionalFormats
= lens _sConditionalFormats
(\ s a -> s{_sConditionalFormats = a})
. _Default
. _Coerce
sFilterViews :: Lens' Sheet [FilterView]
sFilterViews
= lens _sFilterViews (\ s a -> s{_sFilterViews = a})
. _Default
. _Coerce
sProperties :: Lens' Sheet (Maybe SheetProperties)
sProperties
= lens _sProperties (\ s a -> s{_sProperties = a})
instance FromJSON Sheet where
parseJSON
= withObject "Sheet"
(\ o ->
Sheet' <$>
(o .:? "columnGroups" .!= mempty) <*>
(o .:? "data" .!= mempty)
<*> (o .:? "merges" .!= mempty)
<*> (o .:? "rowGroups" .!= mempty)
<*> (o .:? "protectedRanges" .!= mempty)
<*> (o .:? "bandedRanges" .!= mempty)
<*> (o .:? "charts" .!= mempty)
<*> (o .:? "basicFilter")
<*> (o .:? "developerMetadata" .!= mempty)
<*> (o .:? "conditionalFormats" .!= mempty)
<*> (o .:? "filterViews" .!= mempty)
<*> (o .:? "properties"))
instance ToJSON Sheet where
toJSON Sheet'{..}
= object
(catMaybes
[("columnGroups" .=) <$> _sColumnGroups,
("data" .=) <$> _sData, ("merges" .=) <$> _sMerges,
("rowGroups" .=) <$> _sRowGroups,
("protectedRanges" .=) <$> _sProtectedRanges,
("bandedRanges" .=) <$> _sBandedRanges,
("charts" .=) <$> _sCharts,
("basicFilter" .=) <$> _sBasicFilter,
("developerMetadata" .=) <$> _sDeveloperMetadata,
("conditionalFormats" .=) <$> _sConditionalFormats,
("filterViews" .=) <$> _sFilterViews,
("properties" .=) <$> _sProperties])
data GridCoordinate = GridCoordinate'
{ _gcColumnIndex :: !(Maybe (Textual Int32))
, _gcRowIndex :: !(Maybe (Textual Int32))
, _gcSheetId :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
gridCoordinate
:: GridCoordinate
gridCoordinate =
GridCoordinate'
{ _gcColumnIndex = Nothing
, _gcRowIndex = Nothing
, _gcSheetId = Nothing
}
gcColumnIndex :: Lens' GridCoordinate (Maybe Int32)
gcColumnIndex
= lens _gcColumnIndex
(\ s a -> s{_gcColumnIndex = a})
. mapping _Coerce
gcRowIndex :: Lens' GridCoordinate (Maybe Int32)
gcRowIndex
= lens _gcRowIndex (\ s a -> s{_gcRowIndex = a}) .
mapping _Coerce
gcSheetId :: Lens' GridCoordinate (Maybe Int32)
gcSheetId
= lens _gcSheetId (\ s a -> s{_gcSheetId = a}) .
mapping _Coerce
instance FromJSON GridCoordinate where
parseJSON
= withObject "GridCoordinate"
(\ o ->
GridCoordinate' <$>
(o .:? "columnIndex") <*> (o .:? "rowIndex") <*>
(o .:? "sheetId"))
instance ToJSON GridCoordinate where
toJSON GridCoordinate'{..}
= object
(catMaybes
[("columnIndex" .=) <$> _gcColumnIndex,
("rowIndex" .=) <$> _gcRowIndex,
("sheetId" .=) <$> _gcSheetId])
data ClearValuesResponse = ClearValuesResponse'
{ _cvrClearedRange :: !(Maybe Text)
, _cvrSpreadsheetId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
clearValuesResponse
:: ClearValuesResponse
clearValuesResponse =
ClearValuesResponse'
{ _cvrClearedRange = Nothing
, _cvrSpreadsheetId = Nothing
}
cvrClearedRange :: Lens' ClearValuesResponse (Maybe Text)
cvrClearedRange
= lens _cvrClearedRange
(\ s a -> s{_cvrClearedRange = a})
cvrSpreadsheetId :: Lens' ClearValuesResponse (Maybe Text)
cvrSpreadsheetId
= lens _cvrSpreadsheetId
(\ s a -> s{_cvrSpreadsheetId = a})
instance FromJSON ClearValuesResponse where
parseJSON
= withObject "ClearValuesResponse"
(\ o ->
ClearValuesResponse' <$>
(o .:? "clearedRange") <*> (o .:? "spreadsheetId"))
instance ToJSON ClearValuesResponse where
toJSON ClearValuesResponse'{..}
= object
(catMaybes
[("clearedRange" .=) <$> _cvrClearedRange,
("spreadsheetId" .=) <$> _cvrSpreadsheetId])
newtype ClearBasicFilterRequest = ClearBasicFilterRequest'
{ _cbfrSheetId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
clearBasicFilterRequest
:: ClearBasicFilterRequest
clearBasicFilterRequest =
ClearBasicFilterRequest'
{ _cbfrSheetId = Nothing
}
cbfrSheetId :: Lens' ClearBasicFilterRequest (Maybe Int32)
cbfrSheetId
= lens _cbfrSheetId (\ s a -> s{_cbfrSheetId = a}) .
mapping _Coerce
instance FromJSON ClearBasicFilterRequest where
parseJSON
= withObject "ClearBasicFilterRequest"
(\ o ->
ClearBasicFilterRequest' <$> (o .:? "sheetId"))
instance ToJSON ClearBasicFilterRequest where
toJSON ClearBasicFilterRequest'{..}
= object
(catMaybes [("sheetId" .=) <$> _cbfrSheetId])
data UpdateEmbeddedObjectPositionRequest = UpdateEmbeddedObjectPositionRequest'
{ _ueoprNewPosition :: !(Maybe EmbeddedObjectPosition)
, _ueoprObjectId :: !(Maybe (Textual Int32))
, _ueoprFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateEmbeddedObjectPositionRequest
:: UpdateEmbeddedObjectPositionRequest
updateEmbeddedObjectPositionRequest =
UpdateEmbeddedObjectPositionRequest'
{ _ueoprNewPosition = Nothing
, _ueoprObjectId = Nothing
, _ueoprFields = Nothing
}
ueoprNewPosition :: Lens' UpdateEmbeddedObjectPositionRequest (Maybe EmbeddedObjectPosition)
ueoprNewPosition
= lens _ueoprNewPosition
(\ s a -> s{_ueoprNewPosition = a})
ueoprObjectId :: Lens' UpdateEmbeddedObjectPositionRequest (Maybe Int32)
ueoprObjectId
= lens _ueoprObjectId
(\ s a -> s{_ueoprObjectId = a})
. mapping _Coerce
ueoprFields :: Lens' UpdateEmbeddedObjectPositionRequest (Maybe GFieldMask)
ueoprFields
= lens _ueoprFields (\ s a -> s{_ueoprFields = a})
instance FromJSON UpdateEmbeddedObjectPositionRequest
where
parseJSON
= withObject "UpdateEmbeddedObjectPositionRequest"
(\ o ->
UpdateEmbeddedObjectPositionRequest' <$>
(o .:? "newPosition") <*> (o .:? "objectId") <*>
(o .:? "fields"))
instance ToJSON UpdateEmbeddedObjectPositionRequest
where
toJSON UpdateEmbeddedObjectPositionRequest'{..}
= object
(catMaybes
[("newPosition" .=) <$> _ueoprNewPosition,
("objectId" .=) <$> _ueoprObjectId,
("fields" .=) <$> _ueoprFields])
data BooleanRule = BooleanRule'
{ _brFormat :: !(Maybe CellFormat)
, _brCondition :: !(Maybe BooleanCondition)
} deriving (Eq,Show,Data,Typeable,Generic)
booleanRule
:: BooleanRule
booleanRule =
BooleanRule'
{ _brFormat = Nothing
, _brCondition = Nothing
}
brFormat :: Lens' BooleanRule (Maybe CellFormat)
brFormat = lens _brFormat (\ s a -> s{_brFormat = a})
brCondition :: Lens' BooleanRule (Maybe BooleanCondition)
brCondition
= lens _brCondition (\ s a -> s{_brCondition = a})
instance FromJSON BooleanRule where
parseJSON
= withObject "BooleanRule"
(\ o ->
BooleanRule' <$>
(o .:? "format") <*> (o .:? "condition"))
instance ToJSON BooleanRule where
toJSON BooleanRule'{..}
= object
(catMaybes
[("format" .=) <$> _brFormat,
("condition" .=) <$> _brCondition])
data BatchGetValuesByDataFilterResponse = BatchGetValuesByDataFilterResponse'
{ _bgvbdfrSpreadsheetId :: !(Maybe Text)
, _bgvbdfrValueRanges :: !(Maybe [MatchedValueRange])
} deriving (Eq,Show,Data,Typeable,Generic)
batchGetValuesByDataFilterResponse
:: BatchGetValuesByDataFilterResponse
batchGetValuesByDataFilterResponse =
BatchGetValuesByDataFilterResponse'
{ _bgvbdfrSpreadsheetId = Nothing
, _bgvbdfrValueRanges = Nothing
}
bgvbdfrSpreadsheetId :: Lens' BatchGetValuesByDataFilterResponse (Maybe Text)
bgvbdfrSpreadsheetId
= lens _bgvbdfrSpreadsheetId
(\ s a -> s{_bgvbdfrSpreadsheetId = a})
bgvbdfrValueRanges :: Lens' BatchGetValuesByDataFilterResponse [MatchedValueRange]
bgvbdfrValueRanges
= lens _bgvbdfrValueRanges
(\ s a -> s{_bgvbdfrValueRanges = a})
. _Default
. _Coerce
instance FromJSON BatchGetValuesByDataFilterResponse
where
parseJSON
= withObject "BatchGetValuesByDataFilterResponse"
(\ o ->
BatchGetValuesByDataFilterResponse' <$>
(o .:? "spreadsheetId") <*>
(o .:? "valueRanges" .!= mempty))
instance ToJSON BatchGetValuesByDataFilterResponse
where
toJSON BatchGetValuesByDataFilterResponse'{..}
= object
(catMaybes
[("spreadsheetId" .=) <$> _bgvbdfrSpreadsheetId,
("valueRanges" .=) <$> _bgvbdfrValueRanges])
data SourceAndDestination = SourceAndDestination'
{ _sadDimension :: !(Maybe SourceAndDestinationDimension)
, _sadSource :: !(Maybe GridRange)
, _sadFillLength :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
sourceAndDestination
:: SourceAndDestination
sourceAndDestination =
SourceAndDestination'
{ _sadDimension = Nothing
, _sadSource = Nothing
, _sadFillLength = Nothing
}
sadDimension :: Lens' SourceAndDestination (Maybe SourceAndDestinationDimension)
sadDimension
= lens _sadDimension (\ s a -> s{_sadDimension = a})
sadSource :: Lens' SourceAndDestination (Maybe GridRange)
sadSource
= lens _sadSource (\ s a -> s{_sadSource = a})
sadFillLength :: Lens' SourceAndDestination (Maybe Int32)
sadFillLength
= lens _sadFillLength
(\ s a -> s{_sadFillLength = a})
. mapping _Coerce
instance FromJSON SourceAndDestination where
parseJSON
= withObject "SourceAndDestination"
(\ o ->
SourceAndDestination' <$>
(o .:? "dimension") <*> (o .:? "source") <*>
(o .:? "fillLength"))
instance ToJSON SourceAndDestination where
toJSON SourceAndDestination'{..}
= object
(catMaybes
[("dimension" .=) <$> _sadDimension,
("source" .=) <$> _sadSource,
("fillLength" .=) <$> _sadFillLength])
data PasteDataRequest = PasteDataRequest'
{ _pdrData :: !(Maybe Text)
, _pdrCoordinate :: !(Maybe GridCoordinate)
, _pdrHTML :: !(Maybe Bool)
, _pdrType :: !(Maybe PasteDataRequestType)
, _pdrDelimiter :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
pasteDataRequest
:: PasteDataRequest
pasteDataRequest =
PasteDataRequest'
{ _pdrData = Nothing
, _pdrCoordinate = Nothing
, _pdrHTML = Nothing
, _pdrType = Nothing
, _pdrDelimiter = Nothing
}
pdrData :: Lens' PasteDataRequest (Maybe Text)
pdrData = lens _pdrData (\ s a -> s{_pdrData = a})
pdrCoordinate :: Lens' PasteDataRequest (Maybe GridCoordinate)
pdrCoordinate
= lens _pdrCoordinate
(\ s a -> s{_pdrCoordinate = a})
pdrHTML :: Lens' PasteDataRequest (Maybe Bool)
pdrHTML = lens _pdrHTML (\ s a -> s{_pdrHTML = a})
pdrType :: Lens' PasteDataRequest (Maybe PasteDataRequestType)
pdrType = lens _pdrType (\ s a -> s{_pdrType = a})
pdrDelimiter :: Lens' PasteDataRequest (Maybe Text)
pdrDelimiter
= lens _pdrDelimiter (\ s a -> s{_pdrDelimiter = a})
instance FromJSON PasteDataRequest where
parseJSON
= withObject "PasteDataRequest"
(\ o ->
PasteDataRequest' <$>
(o .:? "data") <*> (o .:? "coordinate") <*>
(o .:? "html")
<*> (o .:? "type")
<*> (o .:? "delimiter"))
instance ToJSON PasteDataRequest where
toJSON PasteDataRequest'{..}
= object
(catMaybes
[("data" .=) <$> _pdrData,
("coordinate" .=) <$> _pdrCoordinate,
("html" .=) <$> _pdrHTML, ("type" .=) <$> _pdrType,
("delimiter" .=) <$> _pdrDelimiter])
data AppendCellsRequest = AppendCellsRequest'
{ _acrRows :: !(Maybe [RowData])
, _acrSheetId :: !(Maybe (Textual Int32))
, _acrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
appendCellsRequest
:: AppendCellsRequest
appendCellsRequest =
AppendCellsRequest'
{ _acrRows = Nothing
, _acrSheetId = Nothing
, _acrFields = Nothing
}
acrRows :: Lens' AppendCellsRequest [RowData]
acrRows
= lens _acrRows (\ s a -> s{_acrRows = a}) . _Default
. _Coerce
acrSheetId :: Lens' AppendCellsRequest (Maybe Int32)
acrSheetId
= lens _acrSheetId (\ s a -> s{_acrSheetId = a}) .
mapping _Coerce
acrFields :: Lens' AppendCellsRequest (Maybe GFieldMask)
acrFields
= lens _acrFields (\ s a -> s{_acrFields = a})
instance FromJSON AppendCellsRequest where
parseJSON
= withObject "AppendCellsRequest"
(\ o ->
AppendCellsRequest' <$>
(o .:? "rows" .!= mempty) <*> (o .:? "sheetId") <*>
(o .:? "fields"))
instance ToJSON AppendCellsRequest where
toJSON AppendCellsRequest'{..}
= object
(catMaybes
[("rows" .=) <$> _acrRows,
("sheetId" .=) <$> _acrSheetId,
("fields" .=) <$> _acrFields])
data FindReplaceResponse = FindReplaceResponse'
{ _frrValuesChanged :: !(Maybe (Textual Int32))
, _frrFormulasChanged :: !(Maybe (Textual Int32))
, _frrRowsChanged :: !(Maybe (Textual Int32))
, _frrSheetsChanged :: !(Maybe (Textual Int32))
, _frrOccurrencesChanged :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
findReplaceResponse
:: FindReplaceResponse
findReplaceResponse =
FindReplaceResponse'
{ _frrValuesChanged = Nothing
, _frrFormulasChanged = Nothing
, _frrRowsChanged = Nothing
, _frrSheetsChanged = Nothing
, _frrOccurrencesChanged = Nothing
}
frrValuesChanged :: Lens' FindReplaceResponse (Maybe Int32)
frrValuesChanged
= lens _frrValuesChanged
(\ s a -> s{_frrValuesChanged = a})
. mapping _Coerce
frrFormulasChanged :: Lens' FindReplaceResponse (Maybe Int32)
frrFormulasChanged
= lens _frrFormulasChanged
(\ s a -> s{_frrFormulasChanged = a})
. mapping _Coerce
frrRowsChanged :: Lens' FindReplaceResponse (Maybe Int32)
frrRowsChanged
= lens _frrRowsChanged
(\ s a -> s{_frrRowsChanged = a})
. mapping _Coerce
frrSheetsChanged :: Lens' FindReplaceResponse (Maybe Int32)
frrSheetsChanged
= lens _frrSheetsChanged
(\ s a -> s{_frrSheetsChanged = a})
. mapping _Coerce
frrOccurrencesChanged :: Lens' FindReplaceResponse (Maybe Int32)
frrOccurrencesChanged
= lens _frrOccurrencesChanged
(\ s a -> s{_frrOccurrencesChanged = a})
. mapping _Coerce
instance FromJSON FindReplaceResponse where
parseJSON
= withObject "FindReplaceResponse"
(\ o ->
FindReplaceResponse' <$>
(o .:? "valuesChanged") <*> (o .:? "formulasChanged")
<*> (o .:? "rowsChanged")
<*> (o .:? "sheetsChanged")
<*> (o .:? "occurrencesChanged"))
instance ToJSON FindReplaceResponse where
toJSON FindReplaceResponse'{..}
= object
(catMaybes
[("valuesChanged" .=) <$> _frrValuesChanged,
("formulasChanged" .=) <$> _frrFormulasChanged,
("rowsChanged" .=) <$> _frrRowsChanged,
("sheetsChanged" .=) <$> _frrSheetsChanged,
("occurrencesChanged" .=) <$>
_frrOccurrencesChanged])
newtype AddDimensionGroupResponse = AddDimensionGroupResponse'
{ _adgrDimensionGroups :: Maybe [DimensionGroup]
} deriving (Eq,Show,Data,Typeable,Generic)
addDimensionGroupResponse
:: AddDimensionGroupResponse
addDimensionGroupResponse =
AddDimensionGroupResponse'
{ _adgrDimensionGroups = Nothing
}
adgrDimensionGroups :: Lens' AddDimensionGroupResponse [DimensionGroup]
adgrDimensionGroups
= lens _adgrDimensionGroups
(\ s a -> s{_adgrDimensionGroups = a})
. _Default
. _Coerce
instance FromJSON AddDimensionGroupResponse where
parseJSON
= withObject "AddDimensionGroupResponse"
(\ o ->
AddDimensionGroupResponse' <$>
(o .:? "dimensionGroups" .!= mempty))
instance ToJSON AddDimensionGroupResponse where
toJSON AddDimensionGroupResponse'{..}
= object
(catMaybes
[("dimensionGroups" .=) <$> _adgrDimensionGroups])
data PieChartSpec = PieChartSpec'
{ _pcsPieHole :: !(Maybe (Textual Double))
, _pcsLegendPosition :: !(Maybe PieChartSpecLegendPosition)
, _pcsDomain :: !(Maybe ChartData)
, _pcsSeries :: !(Maybe ChartData)
, _pcsThreeDimensional :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
pieChartSpec
:: PieChartSpec
pieChartSpec =
PieChartSpec'
{ _pcsPieHole = Nothing
, _pcsLegendPosition = Nothing
, _pcsDomain = Nothing
, _pcsSeries = Nothing
, _pcsThreeDimensional = Nothing
}
pcsPieHole :: Lens' PieChartSpec (Maybe Double)
pcsPieHole
= lens _pcsPieHole (\ s a -> s{_pcsPieHole = a}) .
mapping _Coerce
pcsLegendPosition :: Lens' PieChartSpec (Maybe PieChartSpecLegendPosition)
pcsLegendPosition
= lens _pcsLegendPosition
(\ s a -> s{_pcsLegendPosition = a})
pcsDomain :: Lens' PieChartSpec (Maybe ChartData)
pcsDomain
= lens _pcsDomain (\ s a -> s{_pcsDomain = a})
pcsSeries :: Lens' PieChartSpec (Maybe ChartData)
pcsSeries
= lens _pcsSeries (\ s a -> s{_pcsSeries = a})
pcsThreeDimensional :: Lens' PieChartSpec (Maybe Bool)
pcsThreeDimensional
= lens _pcsThreeDimensional
(\ s a -> s{_pcsThreeDimensional = a})
instance FromJSON PieChartSpec where
parseJSON
= withObject "PieChartSpec"
(\ o ->
PieChartSpec' <$>
(o .:? "pieHole") <*> (o .:? "legendPosition") <*>
(o .:? "domain")
<*> (o .:? "series")
<*> (o .:? "threeDimensional"))
instance ToJSON PieChartSpec where
toJSON PieChartSpec'{..}
= object
(catMaybes
[("pieHole" .=) <$> _pcsPieHole,
("legendPosition" .=) <$> _pcsLegendPosition,
("domain" .=) <$> _pcsDomain,
("series" .=) <$> _pcsSeries,
("threeDimensional" .=) <$> _pcsThreeDimensional])
data BatchUpdateValuesByDataFilterResponse = BatchUpdateValuesByDataFilterResponse'
{ _buvbdfrTotalUpdatedColumns :: !(Maybe (Textual Int32))
, _buvbdfrResponses :: !(Maybe [UpdateValuesByDataFilterResponse])
, _buvbdfrSpreadsheetId :: !(Maybe Text)
, _buvbdfrTotalUpdatedSheets :: !(Maybe (Textual Int32))
, _buvbdfrTotalUpdatedCells :: !(Maybe (Textual Int32))
, _buvbdfrTotalUpdatedRows :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdateValuesByDataFilterResponse
:: BatchUpdateValuesByDataFilterResponse
batchUpdateValuesByDataFilterResponse =
BatchUpdateValuesByDataFilterResponse'
{ _buvbdfrTotalUpdatedColumns = Nothing
, _buvbdfrResponses = Nothing
, _buvbdfrSpreadsheetId = Nothing
, _buvbdfrTotalUpdatedSheets = Nothing
, _buvbdfrTotalUpdatedCells = Nothing
, _buvbdfrTotalUpdatedRows = Nothing
}
buvbdfrTotalUpdatedColumns :: Lens' BatchUpdateValuesByDataFilterResponse (Maybe Int32)
buvbdfrTotalUpdatedColumns
= lens _buvbdfrTotalUpdatedColumns
(\ s a -> s{_buvbdfrTotalUpdatedColumns = a})
. mapping _Coerce
buvbdfrResponses :: Lens' BatchUpdateValuesByDataFilterResponse [UpdateValuesByDataFilterResponse]
buvbdfrResponses
= lens _buvbdfrResponses
(\ s a -> s{_buvbdfrResponses = a})
. _Default
. _Coerce
buvbdfrSpreadsheetId :: Lens' BatchUpdateValuesByDataFilterResponse (Maybe Text)
buvbdfrSpreadsheetId
= lens _buvbdfrSpreadsheetId
(\ s a -> s{_buvbdfrSpreadsheetId = a})
buvbdfrTotalUpdatedSheets :: Lens' BatchUpdateValuesByDataFilterResponse (Maybe Int32)
buvbdfrTotalUpdatedSheets
= lens _buvbdfrTotalUpdatedSheets
(\ s a -> s{_buvbdfrTotalUpdatedSheets = a})
. mapping _Coerce
buvbdfrTotalUpdatedCells :: Lens' BatchUpdateValuesByDataFilterResponse (Maybe Int32)
buvbdfrTotalUpdatedCells
= lens _buvbdfrTotalUpdatedCells
(\ s a -> s{_buvbdfrTotalUpdatedCells = a})
. mapping _Coerce
buvbdfrTotalUpdatedRows :: Lens' BatchUpdateValuesByDataFilterResponse (Maybe Int32)
buvbdfrTotalUpdatedRows
= lens _buvbdfrTotalUpdatedRows
(\ s a -> s{_buvbdfrTotalUpdatedRows = a})
. mapping _Coerce
instance FromJSON
BatchUpdateValuesByDataFilterResponse where
parseJSON
= withObject "BatchUpdateValuesByDataFilterResponse"
(\ o ->
BatchUpdateValuesByDataFilterResponse' <$>
(o .:? "totalUpdatedColumns") <*>
(o .:? "responses" .!= mempty)
<*> (o .:? "spreadsheetId")
<*> (o .:? "totalUpdatedSheets")
<*> (o .:? "totalUpdatedCells")
<*> (o .:? "totalUpdatedRows"))
instance ToJSON BatchUpdateValuesByDataFilterResponse
where
toJSON BatchUpdateValuesByDataFilterResponse'{..}
= object
(catMaybes
[("totalUpdatedColumns" .=) <$>
_buvbdfrTotalUpdatedColumns,
("responses" .=) <$> _buvbdfrResponses,
("spreadsheetId" .=) <$> _buvbdfrSpreadsheetId,
("totalUpdatedSheets" .=) <$>
_buvbdfrTotalUpdatedSheets,
("totalUpdatedCells" .=) <$>
_buvbdfrTotalUpdatedCells,
("totalUpdatedRows" .=) <$>
_buvbdfrTotalUpdatedRows])
data AppendValuesResponse = AppendValuesResponse'
{ _avrSpreadsheetId :: !(Maybe Text)
, _avrUpdates :: !(Maybe UpdateValuesResponse)
, _avrTableRange :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appendValuesResponse
:: AppendValuesResponse
appendValuesResponse =
AppendValuesResponse'
{ _avrSpreadsheetId = Nothing
, _avrUpdates = Nothing
, _avrTableRange = Nothing
}
avrSpreadsheetId :: Lens' AppendValuesResponse (Maybe Text)
avrSpreadsheetId
= lens _avrSpreadsheetId
(\ s a -> s{_avrSpreadsheetId = a})
avrUpdates :: Lens' AppendValuesResponse (Maybe UpdateValuesResponse)
avrUpdates
= lens _avrUpdates (\ s a -> s{_avrUpdates = a})
avrTableRange :: Lens' AppendValuesResponse (Maybe Text)
avrTableRange
= lens _avrTableRange
(\ s a -> s{_avrTableRange = a})
instance FromJSON AppendValuesResponse where
parseJSON
= withObject "AppendValuesResponse"
(\ o ->
AppendValuesResponse' <$>
(o .:? "spreadsheetId") <*> (o .:? "updates") <*>
(o .:? "tableRange"))
instance ToJSON AppendValuesResponse where
toJSON AppendValuesResponse'{..}
= object
(catMaybes
[("spreadsheetId" .=) <$> _avrSpreadsheetId,
("updates" .=) <$> _avrUpdates,
("tableRange" .=) <$> _avrTableRange])
data DataValidationRule = DataValidationRule'
{ _dvrShowCustomUi :: !(Maybe Bool)
, _dvrInputMessage :: !(Maybe Text)
, _dvrStrict :: !(Maybe Bool)
, _dvrCondition :: !(Maybe BooleanCondition)
} deriving (Eq,Show,Data,Typeable,Generic)
dataValidationRule
:: DataValidationRule
dataValidationRule =
DataValidationRule'
{ _dvrShowCustomUi = Nothing
, _dvrInputMessage = Nothing
, _dvrStrict = Nothing
, _dvrCondition = Nothing
}
dvrShowCustomUi :: Lens' DataValidationRule (Maybe Bool)
dvrShowCustomUi
= lens _dvrShowCustomUi
(\ s a -> s{_dvrShowCustomUi = a})
dvrInputMessage :: Lens' DataValidationRule (Maybe Text)
dvrInputMessage
= lens _dvrInputMessage
(\ s a -> s{_dvrInputMessage = a})
dvrStrict :: Lens' DataValidationRule (Maybe Bool)
dvrStrict
= lens _dvrStrict (\ s a -> s{_dvrStrict = a})
dvrCondition :: Lens' DataValidationRule (Maybe BooleanCondition)
dvrCondition
= lens _dvrCondition (\ s a -> s{_dvrCondition = a})
instance FromJSON DataValidationRule where
parseJSON
= withObject "DataValidationRule"
(\ o ->
DataValidationRule' <$>
(o .:? "showCustomUi") <*> (o .:? "inputMessage") <*>
(o .:? "strict")
<*> (o .:? "condition"))
instance ToJSON DataValidationRule where
toJSON DataValidationRule'{..}
= object
(catMaybes
[("showCustomUi" .=) <$> _dvrShowCustomUi,
("inputMessage" .=) <$> _dvrInputMessage,
("strict" .=) <$> _dvrStrict,
("condition" .=) <$> _dvrCondition])
data FilterView = FilterView'
{ _fvSortSpecs :: !(Maybe [SortSpec])
, _fvNamedRangeId :: !(Maybe Text)
, _fvRange :: !(Maybe GridRange)
, _fvFilterViewId :: !(Maybe (Textual Int32))
, _fvTitle :: !(Maybe Text)
, _fvCriteria :: !(Maybe FilterViewCriteria)
} deriving (Eq,Show,Data,Typeable,Generic)
filterView
:: FilterView
filterView =
FilterView'
{ _fvSortSpecs = Nothing
, _fvNamedRangeId = Nothing
, _fvRange = Nothing
, _fvFilterViewId = Nothing
, _fvTitle = Nothing
, _fvCriteria = Nothing
}
fvSortSpecs :: Lens' FilterView [SortSpec]
fvSortSpecs
= lens _fvSortSpecs (\ s a -> s{_fvSortSpecs = a}) .
_Default
. _Coerce
fvNamedRangeId :: Lens' FilterView (Maybe Text)
fvNamedRangeId
= lens _fvNamedRangeId
(\ s a -> s{_fvNamedRangeId = a})
fvRange :: Lens' FilterView (Maybe GridRange)
fvRange = lens _fvRange (\ s a -> s{_fvRange = a})
fvFilterViewId :: Lens' FilterView (Maybe Int32)
fvFilterViewId
= lens _fvFilterViewId
(\ s a -> s{_fvFilterViewId = a})
. mapping _Coerce
fvTitle :: Lens' FilterView (Maybe Text)
fvTitle = lens _fvTitle (\ s a -> s{_fvTitle = a})
fvCriteria :: Lens' FilterView (Maybe FilterViewCriteria)
fvCriteria
= lens _fvCriteria (\ s a -> s{_fvCriteria = a})
instance FromJSON FilterView where
parseJSON
= withObject "FilterView"
(\ o ->
FilterView' <$>
(o .:? "sortSpecs" .!= mempty) <*>
(o .:? "namedRangeId")
<*> (o .:? "range")
<*> (o .:? "filterViewId")
<*> (o .:? "title")
<*> (o .:? "criteria"))
instance ToJSON FilterView where
toJSON FilterView'{..}
= object
(catMaybes
[("sortSpecs" .=) <$> _fvSortSpecs,
("namedRangeId" .=) <$> _fvNamedRangeId,
("range" .=) <$> _fvRange,
("filterViewId" .=) <$> _fvFilterViewId,
("title" .=) <$> _fvTitle,
("criteria" .=) <$> _fvCriteria])
data Color = Color'
{ _cRed :: !(Maybe (Textual Double))
, _cAlpha :: !(Maybe (Textual Double))
, _cGreen :: !(Maybe (Textual Double))
, _cBlue :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
color
:: Color
color =
Color'
{ _cRed = Nothing
, _cAlpha = Nothing
, _cGreen = Nothing
, _cBlue = Nothing
}
cRed :: Lens' Color (Maybe Double)
cRed
= lens _cRed (\ s a -> s{_cRed = a}) .
mapping _Coerce
cAlpha :: Lens' Color (Maybe Double)
cAlpha
= lens _cAlpha (\ s a -> s{_cAlpha = a}) .
mapping _Coerce
cGreen :: Lens' Color (Maybe Double)
cGreen
= lens _cGreen (\ s a -> s{_cGreen = a}) .
mapping _Coerce
cBlue :: Lens' Color (Maybe Double)
cBlue
= lens _cBlue (\ s a -> s{_cBlue = a}) .
mapping _Coerce
instance FromJSON Color where
parseJSON
= withObject "Color"
(\ o ->
Color' <$>
(o .:? "red") <*> (o .:? "alpha") <*> (o .:? "green")
<*> (o .:? "blue"))
instance ToJSON Color where
toJSON Color'{..}
= object
(catMaybes
[("red" .=) <$> _cRed, ("alpha" .=) <$> _cAlpha,
("green" .=) <$> _cGreen, ("blue" .=) <$> _cBlue])
newtype DeleteFilterViewRequest = DeleteFilterViewRequest'
{ _dfvrFilterId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
deleteFilterViewRequest
:: DeleteFilterViewRequest
deleteFilterViewRequest =
DeleteFilterViewRequest'
{ _dfvrFilterId = Nothing
}
dfvrFilterId :: Lens' DeleteFilterViewRequest (Maybe Int32)
dfvrFilterId
= lens _dfvrFilterId (\ s a -> s{_dfvrFilterId = a})
. mapping _Coerce
instance FromJSON DeleteFilterViewRequest where
parseJSON
= withObject "DeleteFilterViewRequest"
(\ o ->
DeleteFilterViewRequest' <$> (o .:? "filterId"))
instance ToJSON DeleteFilterViewRequest where
toJSON DeleteFilterViewRequest'{..}
= object
(catMaybes [("filterId" .=) <$> _dfvrFilterId])
data UpdateFilterViewRequest = UpdateFilterViewRequest'
{ _ufvrFilter :: !(Maybe FilterView)
, _ufvrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateFilterViewRequest
:: UpdateFilterViewRequest
updateFilterViewRequest =
UpdateFilterViewRequest'
{ _ufvrFilter = Nothing
, _ufvrFields = Nothing
}
ufvrFilter :: Lens' UpdateFilterViewRequest (Maybe FilterView)
ufvrFilter
= lens _ufvrFilter (\ s a -> s{_ufvrFilter = a})
ufvrFields :: Lens' UpdateFilterViewRequest (Maybe GFieldMask)
ufvrFields
= lens _ufvrFields (\ s a -> s{_ufvrFields = a})
instance FromJSON UpdateFilterViewRequest where
parseJSON
= withObject "UpdateFilterViewRequest"
(\ o ->
UpdateFilterViewRequest' <$>
(o .:? "filter") <*> (o .:? "fields"))
instance ToJSON UpdateFilterViewRequest where
toJSON UpdateFilterViewRequest'{..}
= object
(catMaybes
[("filter" .=) <$> _ufvrFilter,
("fields" .=) <$> _ufvrFields])
data BasicChartSeries = BasicChartSeries'
{ _bTargetAxis :: !(Maybe BasicChartSeriesTargetAxis)
, _bColor :: !(Maybe Color)
, _bSeries :: !(Maybe ChartData)
, _bType :: !(Maybe BasicChartSeriesType)
, _bLineStyle :: !(Maybe LineStyle)
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartSeries
:: BasicChartSeries
basicChartSeries =
BasicChartSeries'
{ _bTargetAxis = Nothing
, _bColor = Nothing
, _bSeries = Nothing
, _bType = Nothing
, _bLineStyle = Nothing
}
bTargetAxis :: Lens' BasicChartSeries (Maybe BasicChartSeriesTargetAxis)
bTargetAxis
= lens _bTargetAxis (\ s a -> s{_bTargetAxis = a})
bColor :: Lens' BasicChartSeries (Maybe Color)
bColor = lens _bColor (\ s a -> s{_bColor = a})
bSeries :: Lens' BasicChartSeries (Maybe ChartData)
bSeries = lens _bSeries (\ s a -> s{_bSeries = a})
bType :: Lens' BasicChartSeries (Maybe BasicChartSeriesType)
bType = lens _bType (\ s a -> s{_bType = a})
bLineStyle :: Lens' BasicChartSeries (Maybe LineStyle)
bLineStyle
= lens _bLineStyle (\ s a -> s{_bLineStyle = a})
instance FromJSON BasicChartSeries where
parseJSON
= withObject "BasicChartSeries"
(\ o ->
BasicChartSeries' <$>
(o .:? "targetAxis") <*> (o .:? "color") <*>
(o .:? "series")
<*> (o .:? "type")
<*> (o .:? "lineStyle"))
instance ToJSON BasicChartSeries where
toJSON BasicChartSeries'{..}
= object
(catMaybes
[("targetAxis" .=) <$> _bTargetAxis,
("color" .=) <$> _bColor, ("series" .=) <$> _bSeries,
("type" .=) <$> _bType,
("lineStyle" .=) <$> _bLineStyle])
data PivotGroupRule = PivotGroupRule'
{ _pgrDateTimeRule :: !(Maybe DateTimeRule)
, _pgrManualRule :: !(Maybe ManualRule)
, _pgrHistogramRule :: !(Maybe HistogramRule)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotGroupRule
:: PivotGroupRule
pivotGroupRule =
PivotGroupRule'
{ _pgrDateTimeRule = Nothing
, _pgrManualRule = Nothing
, _pgrHistogramRule = Nothing
}
pgrDateTimeRule :: Lens' PivotGroupRule (Maybe DateTimeRule)
pgrDateTimeRule
= lens _pgrDateTimeRule
(\ s a -> s{_pgrDateTimeRule = a})
pgrManualRule :: Lens' PivotGroupRule (Maybe ManualRule)
pgrManualRule
= lens _pgrManualRule
(\ s a -> s{_pgrManualRule = a})
pgrHistogramRule :: Lens' PivotGroupRule (Maybe HistogramRule)
pgrHistogramRule
= lens _pgrHistogramRule
(\ s a -> s{_pgrHistogramRule = a})
instance FromJSON PivotGroupRule where
parseJSON
= withObject "PivotGroupRule"
(\ o ->
PivotGroupRule' <$>
(o .:? "dateTimeRule") <*> (o .:? "manualRule") <*>
(o .:? "histogramRule"))
instance ToJSON PivotGroupRule where
toJSON PivotGroupRule'{..}
= object
(catMaybes
[("dateTimeRule" .=) <$> _pgrDateTimeRule,
("manualRule" .=) <$> _pgrManualRule,
("histogramRule" .=) <$> _pgrHistogramRule])
newtype AddProtectedRangeRequest = AddProtectedRangeRequest'
{ _aprrProtectedRange :: Maybe ProtectedRange
} deriving (Eq,Show,Data,Typeable,Generic)
addProtectedRangeRequest
:: AddProtectedRangeRequest
addProtectedRangeRequest =
AddProtectedRangeRequest'
{ _aprrProtectedRange = Nothing
}
aprrProtectedRange :: Lens' AddProtectedRangeRequest (Maybe ProtectedRange)
aprrProtectedRange
= lens _aprrProtectedRange
(\ s a -> s{_aprrProtectedRange = a})
instance FromJSON AddProtectedRangeRequest where
parseJSON
= withObject "AddProtectedRangeRequest"
(\ o ->
AddProtectedRangeRequest' <$>
(o .:? "protectedRange"))
instance ToJSON AddProtectedRangeRequest where
toJSON AddProtectedRangeRequest'{..}
= object
(catMaybes
[("protectedRange" .=) <$> _aprrProtectedRange])
data RepeatCellRequest = RepeatCellRequest'
{ _rcrCell :: !(Maybe CellData)
, _rcrRange :: !(Maybe GridRange)
, _rcrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
repeatCellRequest
:: RepeatCellRequest
repeatCellRequest =
RepeatCellRequest'
{ _rcrCell = Nothing
, _rcrRange = Nothing
, _rcrFields = Nothing
}
rcrCell :: Lens' RepeatCellRequest (Maybe CellData)
rcrCell = lens _rcrCell (\ s a -> s{_rcrCell = a})
rcrRange :: Lens' RepeatCellRequest (Maybe GridRange)
rcrRange = lens _rcrRange (\ s a -> s{_rcrRange = a})
rcrFields :: Lens' RepeatCellRequest (Maybe GFieldMask)
rcrFields
= lens _rcrFields (\ s a -> s{_rcrFields = a})
instance FromJSON RepeatCellRequest where
parseJSON
= withObject "RepeatCellRequest"
(\ o ->
RepeatCellRequest' <$>
(o .:? "cell") <*> (o .:? "range") <*>
(o .:? "fields"))
instance ToJSON RepeatCellRequest where
toJSON RepeatCellRequest'{..}
= object
(catMaybes
[("cell" .=) <$> _rcrCell,
("range" .=) <$> _rcrRange,
("fields" .=) <$> _rcrFields])
data ConditionValue = ConditionValue'
{ _cvRelativeDate :: !(Maybe ConditionValueRelativeDate)
, _cvUserEnteredValue :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
conditionValue
:: ConditionValue
conditionValue =
ConditionValue'
{ _cvRelativeDate = Nothing
, _cvUserEnteredValue = Nothing
}
cvRelativeDate :: Lens' ConditionValue (Maybe ConditionValueRelativeDate)
cvRelativeDate
= lens _cvRelativeDate
(\ s a -> s{_cvRelativeDate = a})
cvUserEnteredValue :: Lens' ConditionValue (Maybe Text)
cvUserEnteredValue
= lens _cvUserEnteredValue
(\ s a -> s{_cvUserEnteredValue = a})
instance FromJSON ConditionValue where
parseJSON
= withObject "ConditionValue"
(\ o ->
ConditionValue' <$>
(o .:? "relativeDate") <*>
(o .:? "userEnteredValue"))
instance ToJSON ConditionValue where
toJSON ConditionValue'{..}
= object
(catMaybes
[("relativeDate" .=) <$> _cvRelativeDate,
("userEnteredValue" .=) <$> _cvUserEnteredValue])
newtype DeleteDimensionRequest = DeleteDimensionRequest'
{ _ddrRange :: Maybe DimensionRange
} deriving (Eq,Show,Data,Typeable,Generic)
deleteDimensionRequest
:: DeleteDimensionRequest
deleteDimensionRequest =
DeleteDimensionRequest'
{ _ddrRange = Nothing
}
ddrRange :: Lens' DeleteDimensionRequest (Maybe DimensionRange)
ddrRange = lens _ddrRange (\ s a -> s{_ddrRange = a})
instance FromJSON DeleteDimensionRequest where
parseJSON
= withObject "DeleteDimensionRequest"
(\ o -> DeleteDimensionRequest' <$> (o .:? "range"))
instance ToJSON DeleteDimensionRequest where
toJSON DeleteDimensionRequest'{..}
= object (catMaybes [("range" .=) <$> _ddrRange])
data ClearValuesRequest =
ClearValuesRequest'
deriving (Eq,Show,Data,Typeable,Generic)
clearValuesRequest
:: ClearValuesRequest
clearValuesRequest = ClearValuesRequest'
instance FromJSON ClearValuesRequest where
parseJSON
= withObject "ClearValuesRequest"
(\ o -> pure ClearValuesRequest')
instance ToJSON ClearValuesRequest where
toJSON = const emptyObject
data FindReplaceRequest = FindReplaceRequest'
{ _frrMatchCase :: !(Maybe Bool)
, _frrAllSheets :: !(Maybe Bool)
, _frrIncludeFormulas :: !(Maybe Bool)
, _frrMatchEntireCell :: !(Maybe Bool)
, _frrRange :: !(Maybe GridRange)
, _frrSheetId :: !(Maybe (Textual Int32))
, _frrFind :: !(Maybe Text)
, _frrSearchByRegex :: !(Maybe Bool)
, _frrReplacement :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
findReplaceRequest
:: FindReplaceRequest
findReplaceRequest =
FindReplaceRequest'
{ _frrMatchCase = Nothing
, _frrAllSheets = Nothing
, _frrIncludeFormulas = Nothing
, _frrMatchEntireCell = Nothing
, _frrRange = Nothing
, _frrSheetId = Nothing
, _frrFind = Nothing
, _frrSearchByRegex = Nothing
, _frrReplacement = Nothing
}
frrMatchCase :: Lens' FindReplaceRequest (Maybe Bool)
frrMatchCase
= lens _frrMatchCase (\ s a -> s{_frrMatchCase = a})
frrAllSheets :: Lens' FindReplaceRequest (Maybe Bool)
frrAllSheets
= lens _frrAllSheets (\ s a -> s{_frrAllSheets = a})
frrIncludeFormulas :: Lens' FindReplaceRequest (Maybe Bool)
frrIncludeFormulas
= lens _frrIncludeFormulas
(\ s a -> s{_frrIncludeFormulas = a})
frrMatchEntireCell :: Lens' FindReplaceRequest (Maybe Bool)
frrMatchEntireCell
= lens _frrMatchEntireCell
(\ s a -> s{_frrMatchEntireCell = a})
frrRange :: Lens' FindReplaceRequest (Maybe GridRange)
frrRange = lens _frrRange (\ s a -> s{_frrRange = a})
frrSheetId :: Lens' FindReplaceRequest (Maybe Int32)
frrSheetId
= lens _frrSheetId (\ s a -> s{_frrSheetId = a}) .
mapping _Coerce
frrFind :: Lens' FindReplaceRequest (Maybe Text)
frrFind = lens _frrFind (\ s a -> s{_frrFind = a})
frrSearchByRegex :: Lens' FindReplaceRequest (Maybe Bool)
frrSearchByRegex
= lens _frrSearchByRegex
(\ s a -> s{_frrSearchByRegex = a})
frrReplacement :: Lens' FindReplaceRequest (Maybe Text)
frrReplacement
= lens _frrReplacement
(\ s a -> s{_frrReplacement = a})
instance FromJSON FindReplaceRequest where
parseJSON
= withObject "FindReplaceRequest"
(\ o ->
FindReplaceRequest' <$>
(o .:? "matchCase") <*> (o .:? "allSheets") <*>
(o .:? "includeFormulas")
<*> (o .:? "matchEntireCell")
<*> (o .:? "range")
<*> (o .:? "sheetId")
<*> (o .:? "find")
<*> (o .:? "searchByRegex")
<*> (o .:? "replacement"))
instance ToJSON FindReplaceRequest where
toJSON FindReplaceRequest'{..}
= object
(catMaybes
[("matchCase" .=) <$> _frrMatchCase,
("allSheets" .=) <$> _frrAllSheets,
("includeFormulas" .=) <$> _frrIncludeFormulas,
("matchEntireCell" .=) <$> _frrMatchEntireCell,
("range" .=) <$> _frrRange,
("sheetId" .=) <$> _frrSheetId,
("find" .=) <$> _frrFind,
("searchByRegex" .=) <$> _frrSearchByRegex,
("replacement" .=) <$> _frrReplacement])
data MoveDimensionRequest = MoveDimensionRequest'
{ _mdrDestinationIndex :: !(Maybe (Textual Int32))
, _mdrSource :: !(Maybe DimensionRange)
} deriving (Eq,Show,Data,Typeable,Generic)
moveDimensionRequest
:: MoveDimensionRequest
moveDimensionRequest =
MoveDimensionRequest'
{ _mdrDestinationIndex = Nothing
, _mdrSource = Nothing
}
mdrDestinationIndex :: Lens' MoveDimensionRequest (Maybe Int32)
mdrDestinationIndex
= lens _mdrDestinationIndex
(\ s a -> s{_mdrDestinationIndex = a})
. mapping _Coerce
mdrSource :: Lens' MoveDimensionRequest (Maybe DimensionRange)
mdrSource
= lens _mdrSource (\ s a -> s{_mdrSource = a})
instance FromJSON MoveDimensionRequest where
parseJSON
= withObject "MoveDimensionRequest"
(\ o ->
MoveDimensionRequest' <$>
(o .:? "destinationIndex") <*> (o .:? "source"))
instance ToJSON MoveDimensionRequest where
toJSON MoveDimensionRequest'{..}
= object
(catMaybes
[("destinationIndex" .=) <$> _mdrDestinationIndex,
("source" .=) <$> _mdrSource])
data BatchGetValuesByDataFilterRequest = BatchGetValuesByDataFilterRequest'
{ _bgvbdfrValueRenderOption :: !(Maybe BatchGetValuesByDataFilterRequestValueRenderOption)
, _bgvbdfrDataFilters :: !(Maybe [DataFilter])
, _bgvbdfrDateTimeRenderOption :: !(Maybe BatchGetValuesByDataFilterRequestDateTimeRenderOption)
, _bgvbdfrMajorDimension :: !(Maybe BatchGetValuesByDataFilterRequestMajorDimension)
} deriving (Eq,Show,Data,Typeable,Generic)
batchGetValuesByDataFilterRequest
:: BatchGetValuesByDataFilterRequest
batchGetValuesByDataFilterRequest =
BatchGetValuesByDataFilterRequest'
{ _bgvbdfrValueRenderOption = Nothing
, _bgvbdfrDataFilters = Nothing
, _bgvbdfrDateTimeRenderOption = Nothing
, _bgvbdfrMajorDimension = Nothing
}
bgvbdfrValueRenderOption :: Lens' BatchGetValuesByDataFilterRequest (Maybe BatchGetValuesByDataFilterRequestValueRenderOption)
bgvbdfrValueRenderOption
= lens _bgvbdfrValueRenderOption
(\ s a -> s{_bgvbdfrValueRenderOption = a})
bgvbdfrDataFilters :: Lens' BatchGetValuesByDataFilterRequest [DataFilter]
bgvbdfrDataFilters
= lens _bgvbdfrDataFilters
(\ s a -> s{_bgvbdfrDataFilters = a})
. _Default
. _Coerce
bgvbdfrDateTimeRenderOption :: Lens' BatchGetValuesByDataFilterRequest (Maybe BatchGetValuesByDataFilterRequestDateTimeRenderOption)
bgvbdfrDateTimeRenderOption
= lens _bgvbdfrDateTimeRenderOption
(\ s a -> s{_bgvbdfrDateTimeRenderOption = a})
bgvbdfrMajorDimension :: Lens' BatchGetValuesByDataFilterRequest (Maybe BatchGetValuesByDataFilterRequestMajorDimension)
bgvbdfrMajorDimension
= lens _bgvbdfrMajorDimension
(\ s a -> s{_bgvbdfrMajorDimension = a})
instance FromJSON BatchGetValuesByDataFilterRequest
where
parseJSON
= withObject "BatchGetValuesByDataFilterRequest"
(\ o ->
BatchGetValuesByDataFilterRequest' <$>
(o .:? "valueRenderOption") <*>
(o .:? "dataFilters" .!= mempty)
<*> (o .:? "dateTimeRenderOption")
<*> (o .:? "majorDimension"))
instance ToJSON BatchGetValuesByDataFilterRequest
where
toJSON BatchGetValuesByDataFilterRequest'{..}
= object
(catMaybes
[("valueRenderOption" .=) <$>
_bgvbdfrValueRenderOption,
("dataFilters" .=) <$> _bgvbdfrDataFilters,
("dateTimeRenderOption" .=) <$>
_bgvbdfrDateTimeRenderOption,
("majorDimension" .=) <$> _bgvbdfrMajorDimension])
data GradientRule = GradientRule'
{ _grMidpoint :: !(Maybe InterpolationPoint)
, _grMaxpoint :: !(Maybe InterpolationPoint)
, _grMinpoint :: !(Maybe InterpolationPoint)
} deriving (Eq,Show,Data,Typeable,Generic)
gradientRule
:: GradientRule
gradientRule =
GradientRule'
{ _grMidpoint = Nothing
, _grMaxpoint = Nothing
, _grMinpoint = Nothing
}
grMidpoint :: Lens' GradientRule (Maybe InterpolationPoint)
grMidpoint
= lens _grMidpoint (\ s a -> s{_grMidpoint = a})
grMaxpoint :: Lens' GradientRule (Maybe InterpolationPoint)
grMaxpoint
= lens _grMaxpoint (\ s a -> s{_grMaxpoint = a})
grMinpoint :: Lens' GradientRule (Maybe InterpolationPoint)
grMinpoint
= lens _grMinpoint (\ s a -> s{_grMinpoint = a})
instance FromJSON GradientRule where
parseJSON
= withObject "GradientRule"
(\ o ->
GradientRule' <$>
(o .:? "midpoint") <*> (o .:? "maxpoint") <*>
(o .:? "minpoint"))
instance ToJSON GradientRule where
toJSON GradientRule'{..}
= object
(catMaybes
[("midpoint" .=) <$> _grMidpoint,
("maxpoint" .=) <$> _grMaxpoint,
("minpoint" .=) <$> _grMinpoint])
data CutPasteRequest = CutPasteRequest'
{ _cDestination :: !(Maybe GridCoordinate)
, _cSource :: !(Maybe GridRange)
, _cPasteType :: !(Maybe CutPasteRequestPasteType)
} deriving (Eq,Show,Data,Typeable,Generic)
cutPasteRequest
:: CutPasteRequest
cutPasteRequest =
CutPasteRequest'
{ _cDestination = Nothing
, _cSource = Nothing
, _cPasteType = Nothing
}
cDestination :: Lens' CutPasteRequest (Maybe GridCoordinate)
cDestination
= lens _cDestination (\ s a -> s{_cDestination = a})
cSource :: Lens' CutPasteRequest (Maybe GridRange)
cSource = lens _cSource (\ s a -> s{_cSource = a})
cPasteType :: Lens' CutPasteRequest (Maybe CutPasteRequestPasteType)
cPasteType
= lens _cPasteType (\ s a -> s{_cPasteType = a})
instance FromJSON CutPasteRequest where
parseJSON
= withObject "CutPasteRequest"
(\ o ->
CutPasteRequest' <$>
(o .:? "destination") <*> (o .:? "source") <*>
(o .:? "pasteType"))
instance ToJSON CutPasteRequest where
toJSON CutPasteRequest'{..}
= object
(catMaybes
[("destination" .=) <$> _cDestination,
("source" .=) <$> _cSource,
("pasteType" .=) <$> _cPasteType])
newtype UpdateEmbeddedObjectPositionResponse = UpdateEmbeddedObjectPositionResponse'
{ _ueoprPosition :: Maybe EmbeddedObjectPosition
} deriving (Eq,Show,Data,Typeable,Generic)
updateEmbeddedObjectPositionResponse
:: UpdateEmbeddedObjectPositionResponse
updateEmbeddedObjectPositionResponse =
UpdateEmbeddedObjectPositionResponse'
{ _ueoprPosition = Nothing
}
ueoprPosition :: Lens' UpdateEmbeddedObjectPositionResponse (Maybe EmbeddedObjectPosition)
ueoprPosition
= lens _ueoprPosition
(\ s a -> s{_ueoprPosition = a})
instance FromJSON
UpdateEmbeddedObjectPositionResponse where
parseJSON
= withObject "UpdateEmbeddedObjectPositionResponse"
(\ o ->
UpdateEmbeddedObjectPositionResponse' <$>
(o .:? "position"))
instance ToJSON UpdateEmbeddedObjectPositionResponse
where
toJSON UpdateEmbeddedObjectPositionResponse'{..}
= object
(catMaybes [("position" .=) <$> _ueoprPosition])
data WaterfallChartCustomSubtotal = WaterfallChartCustomSubtotal'
{ _wccsDataIsSubtotal :: !(Maybe Bool)
, _wccsSubtotalIndex :: !(Maybe (Textual Int32))
, _wccsLabel :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
waterfallChartCustomSubtotal
:: WaterfallChartCustomSubtotal
waterfallChartCustomSubtotal =
WaterfallChartCustomSubtotal'
{ _wccsDataIsSubtotal = Nothing
, _wccsSubtotalIndex = Nothing
, _wccsLabel = Nothing
}
wccsDataIsSubtotal :: Lens' WaterfallChartCustomSubtotal (Maybe Bool)
wccsDataIsSubtotal
= lens _wccsDataIsSubtotal
(\ s a -> s{_wccsDataIsSubtotal = a})
wccsSubtotalIndex :: Lens' WaterfallChartCustomSubtotal (Maybe Int32)
wccsSubtotalIndex
= lens _wccsSubtotalIndex
(\ s a -> s{_wccsSubtotalIndex = a})
. mapping _Coerce
wccsLabel :: Lens' WaterfallChartCustomSubtotal (Maybe Text)
wccsLabel
= lens _wccsLabel (\ s a -> s{_wccsLabel = a})
instance FromJSON WaterfallChartCustomSubtotal where
parseJSON
= withObject "WaterfallChartCustomSubtotal"
(\ o ->
WaterfallChartCustomSubtotal' <$>
(o .:? "dataIsSubtotal") <*> (o .:? "subtotalIndex")
<*> (o .:? "label"))
instance ToJSON WaterfallChartCustomSubtotal where
toJSON WaterfallChartCustomSubtotal'{..}
= object
(catMaybes
[("dataIsSubtotal" .=) <$> _wccsDataIsSubtotal,
("subtotalIndex" .=) <$> _wccsSubtotalIndex,
("label" .=) <$> _wccsLabel])
data Response = Response'
{ _rAddFilterView :: !(Maybe AddFilterViewResponse)
, _rCreateDeveloperMetadata :: !(Maybe CreateDeveloperMetadataResponse)
, _rDuplicateFilterView :: !(Maybe DuplicateFilterViewResponse)
, _rUpdateEmbeddedObjectPosition :: !(Maybe UpdateEmbeddedObjectPositionResponse)
, _rDeleteDimensionGroup :: !(Maybe DeleteDimensionGroupResponse)
, _rAddSheet :: !(Maybe AddSheetResponse)
, _rFindReplace :: !(Maybe FindReplaceResponse)
, _rAddProtectedRange :: !(Maybe AddProtectedRangeResponse)
, _rDeleteConditionalFormatRule :: !(Maybe DeleteConditionalFormatRuleResponse)
, _rUpdateConditionalFormatRule :: !(Maybe UpdateConditionalFormatRuleResponse)
, _rDeleteDeveloperMetadata :: !(Maybe DeleteDeveloperMetadataResponse)
, _rUpdateDeveloperMetadata :: !(Maybe UpdateDeveloperMetadataResponse)
, _rAddNamedRange :: !(Maybe AddNamedRangeResponse)
, _rAddChart :: !(Maybe AddChartResponse)
, _rAddBanding :: !(Maybe AddBandingResponse)
, _rDuplicateSheet :: !(Maybe DuplicateSheetResponse)
, _rAddDimensionGroup :: !(Maybe AddDimensionGroupResponse)
} deriving (Eq,Show,Data,Typeable,Generic)
response
:: Response
response =
Response'
{ _rAddFilterView = Nothing
, _rCreateDeveloperMetadata = Nothing
, _rDuplicateFilterView = Nothing
, _rUpdateEmbeddedObjectPosition = Nothing
, _rDeleteDimensionGroup = Nothing
, _rAddSheet = Nothing
, _rFindReplace = Nothing
, _rAddProtectedRange = Nothing
, _rDeleteConditionalFormatRule = Nothing
, _rUpdateConditionalFormatRule = Nothing
, _rDeleteDeveloperMetadata = Nothing
, _rUpdateDeveloperMetadata = Nothing
, _rAddNamedRange = Nothing
, _rAddChart = Nothing
, _rAddBanding = Nothing
, _rDuplicateSheet = Nothing
, _rAddDimensionGroup = Nothing
}
rAddFilterView :: Lens' Response (Maybe AddFilterViewResponse)
rAddFilterView
= lens _rAddFilterView
(\ s a -> s{_rAddFilterView = a})
rCreateDeveloperMetadata :: Lens' Response (Maybe CreateDeveloperMetadataResponse)
rCreateDeveloperMetadata
= lens _rCreateDeveloperMetadata
(\ s a -> s{_rCreateDeveloperMetadata = a})
rDuplicateFilterView :: Lens' Response (Maybe DuplicateFilterViewResponse)
rDuplicateFilterView
= lens _rDuplicateFilterView
(\ s a -> s{_rDuplicateFilterView = a})
rUpdateEmbeddedObjectPosition :: Lens' Response (Maybe UpdateEmbeddedObjectPositionResponse)
rUpdateEmbeddedObjectPosition
= lens _rUpdateEmbeddedObjectPosition
(\ s a -> s{_rUpdateEmbeddedObjectPosition = a})
rDeleteDimensionGroup :: Lens' Response (Maybe DeleteDimensionGroupResponse)
rDeleteDimensionGroup
= lens _rDeleteDimensionGroup
(\ s a -> s{_rDeleteDimensionGroup = a})
rAddSheet :: Lens' Response (Maybe AddSheetResponse)
rAddSheet
= lens _rAddSheet (\ s a -> s{_rAddSheet = a})
rFindReplace :: Lens' Response (Maybe FindReplaceResponse)
rFindReplace
= lens _rFindReplace (\ s a -> s{_rFindReplace = a})
rAddProtectedRange :: Lens' Response (Maybe AddProtectedRangeResponse)
rAddProtectedRange
= lens _rAddProtectedRange
(\ s a -> s{_rAddProtectedRange = a})
rDeleteConditionalFormatRule :: Lens' Response (Maybe DeleteConditionalFormatRuleResponse)
rDeleteConditionalFormatRule
= lens _rDeleteConditionalFormatRule
(\ s a -> s{_rDeleteConditionalFormatRule = a})
rUpdateConditionalFormatRule :: Lens' Response (Maybe UpdateConditionalFormatRuleResponse)
rUpdateConditionalFormatRule
= lens _rUpdateConditionalFormatRule
(\ s a -> s{_rUpdateConditionalFormatRule = a})
rDeleteDeveloperMetadata :: Lens' Response (Maybe DeleteDeveloperMetadataResponse)
rDeleteDeveloperMetadata
= lens _rDeleteDeveloperMetadata
(\ s a -> s{_rDeleteDeveloperMetadata = a})
rUpdateDeveloperMetadata :: Lens' Response (Maybe UpdateDeveloperMetadataResponse)
rUpdateDeveloperMetadata
= lens _rUpdateDeveloperMetadata
(\ s a -> s{_rUpdateDeveloperMetadata = a})
rAddNamedRange :: Lens' Response (Maybe AddNamedRangeResponse)
rAddNamedRange
= lens _rAddNamedRange
(\ s a -> s{_rAddNamedRange = a})
rAddChart :: Lens' Response (Maybe AddChartResponse)
rAddChart
= lens _rAddChart (\ s a -> s{_rAddChart = a})
rAddBanding :: Lens' Response (Maybe AddBandingResponse)
rAddBanding
= lens _rAddBanding (\ s a -> s{_rAddBanding = a})
rDuplicateSheet :: Lens' Response (Maybe DuplicateSheetResponse)
rDuplicateSheet
= lens _rDuplicateSheet
(\ s a -> s{_rDuplicateSheet = a})
rAddDimensionGroup :: Lens' Response (Maybe AddDimensionGroupResponse)
rAddDimensionGroup
= lens _rAddDimensionGroup
(\ s a -> s{_rAddDimensionGroup = a})
instance FromJSON Response where
parseJSON
= withObject "Response"
(\ o ->
Response' <$>
(o .:? "addFilterView") <*>
(o .:? "createDeveloperMetadata")
<*> (o .:? "duplicateFilterView")
<*> (o .:? "updateEmbeddedObjectPosition")
<*> (o .:? "deleteDimensionGroup")
<*> (o .:? "addSheet")
<*> (o .:? "findReplace")
<*> (o .:? "addProtectedRange")
<*> (o .:? "deleteConditionalFormatRule")
<*> (o .:? "updateConditionalFormatRule")
<*> (o .:? "deleteDeveloperMetadata")
<*> (o .:? "updateDeveloperMetadata")
<*> (o .:? "addNamedRange")
<*> (o .:? "addChart")
<*> (o .:? "addBanding")
<*> (o .:? "duplicateSheet")
<*> (o .:? "addDimensionGroup"))
instance ToJSON Response where
toJSON Response'{..}
= object
(catMaybes
[("addFilterView" .=) <$> _rAddFilterView,
("createDeveloperMetadata" .=) <$>
_rCreateDeveloperMetadata,
("duplicateFilterView" .=) <$> _rDuplicateFilterView,
("updateEmbeddedObjectPosition" .=) <$>
_rUpdateEmbeddedObjectPosition,
("deleteDimensionGroup" .=) <$>
_rDeleteDimensionGroup,
("addSheet" .=) <$> _rAddSheet,
("findReplace" .=) <$> _rFindReplace,
("addProtectedRange" .=) <$> _rAddProtectedRange,
("deleteConditionalFormatRule" .=) <$>
_rDeleteConditionalFormatRule,
("updateConditionalFormatRule" .=) <$>
_rUpdateConditionalFormatRule,
("deleteDeveloperMetadata" .=) <$>
_rDeleteDeveloperMetadata,
("updateDeveloperMetadata" .=) <$>
_rUpdateDeveloperMetadata,
("addNamedRange" .=) <$> _rAddNamedRange,
("addChart" .=) <$> _rAddChart,
("addBanding" .=) <$> _rAddBanding,
("duplicateSheet" .=) <$> _rDuplicateSheet,
("addDimensionGroup" .=) <$> _rAddDimensionGroup])
data FilterCriteria = FilterCriteria'
{ _fcHiddenValues :: !(Maybe [Text])
, _fcCondition :: !(Maybe BooleanCondition)
} deriving (Eq,Show,Data,Typeable,Generic)
filterCriteria
:: FilterCriteria
filterCriteria =
FilterCriteria'
{ _fcHiddenValues = Nothing
, _fcCondition = Nothing
}
fcHiddenValues :: Lens' FilterCriteria [Text]
fcHiddenValues
= lens _fcHiddenValues
(\ s a -> s{_fcHiddenValues = a})
. _Default
. _Coerce
fcCondition :: Lens' FilterCriteria (Maybe BooleanCondition)
fcCondition
= lens _fcCondition (\ s a -> s{_fcCondition = a})
instance FromJSON FilterCriteria where
parseJSON
= withObject "FilterCriteria"
(\ o ->
FilterCriteria' <$>
(o .:? "hiddenValues" .!= mempty) <*>
(o .:? "condition"))
instance ToJSON FilterCriteria where
toJSON FilterCriteria'{..}
= object
(catMaybes
[("hiddenValues" .=) <$> _fcHiddenValues,
("condition" .=) <$> _fcCondition])
data ErrorValue = ErrorValue'
{ _evType :: !(Maybe ErrorValueType)
, _evMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
errorValue
:: ErrorValue
errorValue =
ErrorValue'
{ _evType = Nothing
, _evMessage = Nothing
}
evType :: Lens' ErrorValue (Maybe ErrorValueType)
evType = lens _evType (\ s a -> s{_evType = a})
evMessage :: Lens' ErrorValue (Maybe Text)
evMessage
= lens _evMessage (\ s a -> s{_evMessage = a})
instance FromJSON ErrorValue where
parseJSON
= withObject "ErrorValue"
(\ o ->
ErrorValue' <$> (o .:? "type") <*> (o .:? "message"))
instance ToJSON ErrorValue where
toJSON ErrorValue'{..}
= object
(catMaybes
[("type" .=) <$> _evType,
("message" .=) <$> _evMessage])
data UpdateConditionalFormatRuleRequest = UpdateConditionalFormatRuleRequest'
{ _ucfrrRule :: !(Maybe ConditionalFormatRule)
, _ucfrrNewIndex :: !(Maybe (Textual Int32))
, _ucfrrSheetId :: !(Maybe (Textual Int32))
, _ucfrrIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
updateConditionalFormatRuleRequest
:: UpdateConditionalFormatRuleRequest
updateConditionalFormatRuleRequest =
UpdateConditionalFormatRuleRequest'
{ _ucfrrRule = Nothing
, _ucfrrNewIndex = Nothing
, _ucfrrSheetId = Nothing
, _ucfrrIndex = Nothing
}
ucfrrRule :: Lens' UpdateConditionalFormatRuleRequest (Maybe ConditionalFormatRule)
ucfrrRule
= lens _ucfrrRule (\ s a -> s{_ucfrrRule = a})
ucfrrNewIndex :: Lens' UpdateConditionalFormatRuleRequest (Maybe Int32)
ucfrrNewIndex
= lens _ucfrrNewIndex
(\ s a -> s{_ucfrrNewIndex = a})
. mapping _Coerce
ucfrrSheetId :: Lens' UpdateConditionalFormatRuleRequest (Maybe Int32)
ucfrrSheetId
= lens _ucfrrSheetId (\ s a -> s{_ucfrrSheetId = a})
. mapping _Coerce
ucfrrIndex :: Lens' UpdateConditionalFormatRuleRequest (Maybe Int32)
ucfrrIndex
= lens _ucfrrIndex (\ s a -> s{_ucfrrIndex = a}) .
mapping _Coerce
instance FromJSON UpdateConditionalFormatRuleRequest
where
parseJSON
= withObject "UpdateConditionalFormatRuleRequest"
(\ o ->
UpdateConditionalFormatRuleRequest' <$>
(o .:? "rule") <*> (o .:? "newIndex") <*>
(o .:? "sheetId")
<*> (o .:? "index"))
instance ToJSON UpdateConditionalFormatRuleRequest
where
toJSON UpdateConditionalFormatRuleRequest'{..}
= object
(catMaybes
[("rule" .=) <$> _ucfrrRule,
("newIndex" .=) <$> _ucfrrNewIndex,
("sheetId" .=) <$> _ucfrrSheetId,
("index" .=) <$> _ucfrrIndex])
data DeleteConditionalFormatRuleRequest = DeleteConditionalFormatRuleRequest'
{ _dcfrrSheetId :: !(Maybe (Textual Int32))
, _dcfrrIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
deleteConditionalFormatRuleRequest
:: DeleteConditionalFormatRuleRequest
deleteConditionalFormatRuleRequest =
DeleteConditionalFormatRuleRequest'
{ _dcfrrSheetId = Nothing
, _dcfrrIndex = Nothing
}
dcfrrSheetId :: Lens' DeleteConditionalFormatRuleRequest (Maybe Int32)
dcfrrSheetId
= lens _dcfrrSheetId (\ s a -> s{_dcfrrSheetId = a})
. mapping _Coerce
dcfrrIndex :: Lens' DeleteConditionalFormatRuleRequest (Maybe Int32)
dcfrrIndex
= lens _dcfrrIndex (\ s a -> s{_dcfrrIndex = a}) .
mapping _Coerce
instance FromJSON DeleteConditionalFormatRuleRequest
where
parseJSON
= withObject "DeleteConditionalFormatRuleRequest"
(\ o ->
DeleteConditionalFormatRuleRequest' <$>
(o .:? "sheetId") <*> (o .:? "index"))
instance ToJSON DeleteConditionalFormatRuleRequest
where
toJSON DeleteConditionalFormatRuleRequest'{..}
= object
(catMaybes
[("sheetId" .=) <$> _dcfrrSheetId,
("index" .=) <$> _dcfrrIndex])
data UpdateDeveloperMetadataRequest = UpdateDeveloperMetadataRequest'
{ _udmrDataFilters :: !(Maybe [DataFilter])
, _udmrDeveloperMetadata :: !(Maybe DeveloperMetadata)
, _udmrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateDeveloperMetadataRequest
:: UpdateDeveloperMetadataRequest
updateDeveloperMetadataRequest =
UpdateDeveloperMetadataRequest'
{ _udmrDataFilters = Nothing
, _udmrDeveloperMetadata = Nothing
, _udmrFields = Nothing
}
udmrDataFilters :: Lens' UpdateDeveloperMetadataRequest [DataFilter]
udmrDataFilters
= lens _udmrDataFilters
(\ s a -> s{_udmrDataFilters = a})
. _Default
. _Coerce
udmrDeveloperMetadata :: Lens' UpdateDeveloperMetadataRequest (Maybe DeveloperMetadata)
udmrDeveloperMetadata
= lens _udmrDeveloperMetadata
(\ s a -> s{_udmrDeveloperMetadata = a})
udmrFields :: Lens' UpdateDeveloperMetadataRequest (Maybe GFieldMask)
udmrFields
= lens _udmrFields (\ s a -> s{_udmrFields = a})
instance FromJSON UpdateDeveloperMetadataRequest
where
parseJSON
= withObject "UpdateDeveloperMetadataRequest"
(\ o ->
UpdateDeveloperMetadataRequest' <$>
(o .:? "dataFilters" .!= mempty) <*>
(o .:? "developerMetadata")
<*> (o .:? "fields"))
instance ToJSON UpdateDeveloperMetadataRequest where
toJSON UpdateDeveloperMetadataRequest'{..}
= object
(catMaybes
[("dataFilters" .=) <$> _udmrDataFilters,
("developerMetadata" .=) <$> _udmrDeveloperMetadata,
("fields" .=) <$> _udmrFields])
newtype DeleteDeveloperMetadataRequest = DeleteDeveloperMetadataRequest'
{ _ddmrDataFilter :: Maybe DataFilter
} deriving (Eq,Show,Data,Typeable,Generic)
deleteDeveloperMetadataRequest
:: DeleteDeveloperMetadataRequest
deleteDeveloperMetadataRequest =
DeleteDeveloperMetadataRequest'
{ _ddmrDataFilter = Nothing
}
ddmrDataFilter :: Lens' DeleteDeveloperMetadataRequest (Maybe DataFilter)
ddmrDataFilter
= lens _ddmrDataFilter
(\ s a -> s{_ddmrDataFilter = a})
instance FromJSON DeleteDeveloperMetadataRequest
where
parseJSON
= withObject "DeleteDeveloperMetadataRequest"
(\ o ->
DeleteDeveloperMetadataRequest' <$>
(o .:? "dataFilter"))
instance ToJSON DeleteDeveloperMetadataRequest where
toJSON DeleteDeveloperMetadataRequest'{..}
= object
(catMaybes [("dataFilter" .=) <$> _ddmrDataFilter])
data WaterfallChartSpec = WaterfallChartSpec'
{ _wcsStackedType :: !(Maybe WaterfallChartSpecStackedType)
, _wcsConnectorLineStyle :: !(Maybe LineStyle)
, _wcsDomain :: !(Maybe WaterfallChartDomain)
, _wcsSeries :: !(Maybe [WaterfallChartSeries])
, _wcsHideConnectorLines :: !(Maybe Bool)
, _wcsFirstValueIsTotal :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
waterfallChartSpec
:: WaterfallChartSpec
waterfallChartSpec =
WaterfallChartSpec'
{ _wcsStackedType = Nothing
, _wcsConnectorLineStyle = Nothing
, _wcsDomain = Nothing
, _wcsSeries = Nothing
, _wcsHideConnectorLines = Nothing
, _wcsFirstValueIsTotal = Nothing
}
wcsStackedType :: Lens' WaterfallChartSpec (Maybe WaterfallChartSpecStackedType)
wcsStackedType
= lens _wcsStackedType
(\ s a -> s{_wcsStackedType = a})
wcsConnectorLineStyle :: Lens' WaterfallChartSpec (Maybe LineStyle)
wcsConnectorLineStyle
= lens _wcsConnectorLineStyle
(\ s a -> s{_wcsConnectorLineStyle = a})
wcsDomain :: Lens' WaterfallChartSpec (Maybe WaterfallChartDomain)
wcsDomain
= lens _wcsDomain (\ s a -> s{_wcsDomain = a})
wcsSeries :: Lens' WaterfallChartSpec [WaterfallChartSeries]
wcsSeries
= lens _wcsSeries (\ s a -> s{_wcsSeries = a}) .
_Default
. _Coerce
wcsHideConnectorLines :: Lens' WaterfallChartSpec (Maybe Bool)
wcsHideConnectorLines
= lens _wcsHideConnectorLines
(\ s a -> s{_wcsHideConnectorLines = a})
wcsFirstValueIsTotal :: Lens' WaterfallChartSpec (Maybe Bool)
wcsFirstValueIsTotal
= lens _wcsFirstValueIsTotal
(\ s a -> s{_wcsFirstValueIsTotal = a})
instance FromJSON WaterfallChartSpec where
parseJSON
= withObject "WaterfallChartSpec"
(\ o ->
WaterfallChartSpec' <$>
(o .:? "stackedType") <*>
(o .:? "connectorLineStyle")
<*> (o .:? "domain")
<*> (o .:? "series" .!= mempty)
<*> (o .:? "hideConnectorLines")
<*> (o .:? "firstValueIsTotal"))
instance ToJSON WaterfallChartSpec where
toJSON WaterfallChartSpec'{..}
= object
(catMaybes
[("stackedType" .=) <$> _wcsStackedType,
("connectorLineStyle" .=) <$> _wcsConnectorLineStyle,
("domain" .=) <$> _wcsDomain,
("series" .=) <$> _wcsSeries,
("hideConnectorLines" .=) <$> _wcsHideConnectorLines,
("firstValueIsTotal" .=) <$> _wcsFirstValueIsTotal])
data OverlayPosition = OverlayPosition'
{ _opHeightPixels :: !(Maybe (Textual Int32))
, _opOffSetYPixels :: !(Maybe (Textual Int32))
, _opAnchorCell :: !(Maybe GridCoordinate)
, _opWidthPixels :: !(Maybe (Textual Int32))
, _opOffSetXPixels :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
overlayPosition
:: OverlayPosition
overlayPosition =
OverlayPosition'
{ _opHeightPixels = Nothing
, _opOffSetYPixels = Nothing
, _opAnchorCell = Nothing
, _opWidthPixels = Nothing
, _opOffSetXPixels = Nothing
}
opHeightPixels :: Lens' OverlayPosition (Maybe Int32)
opHeightPixels
= lens _opHeightPixels
(\ s a -> s{_opHeightPixels = a})
. mapping _Coerce
opOffSetYPixels :: Lens' OverlayPosition (Maybe Int32)
opOffSetYPixels
= lens _opOffSetYPixels
(\ s a -> s{_opOffSetYPixels = a})
. mapping _Coerce
opAnchorCell :: Lens' OverlayPosition (Maybe GridCoordinate)
opAnchorCell
= lens _opAnchorCell (\ s a -> s{_opAnchorCell = a})
opWidthPixels :: Lens' OverlayPosition (Maybe Int32)
opWidthPixels
= lens _opWidthPixels
(\ s a -> s{_opWidthPixels = a})
. mapping _Coerce
opOffSetXPixels :: Lens' OverlayPosition (Maybe Int32)
opOffSetXPixels
= lens _opOffSetXPixels
(\ s a -> s{_opOffSetXPixels = a})
. mapping _Coerce
instance FromJSON OverlayPosition where
parseJSON
= withObject "OverlayPosition"
(\ o ->
OverlayPosition' <$>
(o .:? "heightPixels") <*> (o .:? "offsetYPixels")
<*> (o .:? "anchorCell")
<*> (o .:? "widthPixels")
<*> (o .:? "offsetXPixels"))
instance ToJSON OverlayPosition where
toJSON OverlayPosition'{..}
= object
(catMaybes
[("heightPixels" .=) <$> _opHeightPixels,
("offsetYPixels" .=) <$> _opOffSetYPixels,
("anchorCell" .=) <$> _opAnchorCell,
("widthPixels" .=) <$> _opWidthPixels,
("offsetXPixels" .=) <$> _opOffSetXPixels])
newtype DeleteEmbeddedObjectRequest = DeleteEmbeddedObjectRequest'
{ _deorObjectId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
deleteEmbeddedObjectRequest
:: DeleteEmbeddedObjectRequest
deleteEmbeddedObjectRequest =
DeleteEmbeddedObjectRequest'
{ _deorObjectId = Nothing
}
deorObjectId :: Lens' DeleteEmbeddedObjectRequest (Maybe Int32)
deorObjectId
= lens _deorObjectId (\ s a -> s{_deorObjectId = a})
. mapping _Coerce
instance FromJSON DeleteEmbeddedObjectRequest where
parseJSON
= withObject "DeleteEmbeddedObjectRequest"
(\ o ->
DeleteEmbeddedObjectRequest' <$> (o .:? "objectId"))
instance ToJSON DeleteEmbeddedObjectRequest where
toJSON DeleteEmbeddedObjectRequest'{..}
= object
(catMaybes [("objectId" .=) <$> _deorObjectId])
data DeveloperMetadataLocation = DeveloperMetadataLocation'
{ _dmlSpreadsheet :: !(Maybe Bool)
, _dmlDimensionRange :: !(Maybe DimensionRange)
, _dmlSheetId :: !(Maybe (Textual Int32))
, _dmlLocationType :: !(Maybe DeveloperMetadataLocationLocationType)
} deriving (Eq,Show,Data,Typeable,Generic)
developerMetadataLocation
:: DeveloperMetadataLocation
developerMetadataLocation =
DeveloperMetadataLocation'
{ _dmlSpreadsheet = Nothing
, _dmlDimensionRange = Nothing
, _dmlSheetId = Nothing
, _dmlLocationType = Nothing
}
dmlSpreadsheet :: Lens' DeveloperMetadataLocation (Maybe Bool)
dmlSpreadsheet
= lens _dmlSpreadsheet
(\ s a -> s{_dmlSpreadsheet = a})
dmlDimensionRange :: Lens' DeveloperMetadataLocation (Maybe DimensionRange)
dmlDimensionRange
= lens _dmlDimensionRange
(\ s a -> s{_dmlDimensionRange = a})
dmlSheetId :: Lens' DeveloperMetadataLocation (Maybe Int32)
dmlSheetId
= lens _dmlSheetId (\ s a -> s{_dmlSheetId = a}) .
mapping _Coerce
dmlLocationType :: Lens' DeveloperMetadataLocation (Maybe DeveloperMetadataLocationLocationType)
dmlLocationType
= lens _dmlLocationType
(\ s a -> s{_dmlLocationType = a})
instance FromJSON DeveloperMetadataLocation where
parseJSON
= withObject "DeveloperMetadataLocation"
(\ o ->
DeveloperMetadataLocation' <$>
(o .:? "spreadsheet") <*> (o .:? "dimensionRange")
<*> (o .:? "sheetId")
<*> (o .:? "locationType"))
instance ToJSON DeveloperMetadataLocation where
toJSON DeveloperMetadataLocation'{..}
= object
(catMaybes
[("spreadsheet" .=) <$> _dmlSpreadsheet,
("dimensionRange" .=) <$> _dmlDimensionRange,
("sheetId" .=) <$> _dmlSheetId,
("locationType" .=) <$> _dmlLocationType])
data SheetProperties = SheetProperties'
{ _sTabColor :: !(Maybe Color)
, _sGridProperties :: !(Maybe GridProperties)
, _sSheetType :: !(Maybe SheetPropertiesSheetType)
, _sHidden :: !(Maybe Bool)
, _sSheetId :: !(Maybe (Textual Int32))
, _sTitle :: !(Maybe Text)
, _sRightToLeft :: !(Maybe Bool)
, _sIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
sheetProperties
:: SheetProperties
sheetProperties =
SheetProperties'
{ _sTabColor = Nothing
, _sGridProperties = Nothing
, _sSheetType = Nothing
, _sHidden = Nothing
, _sSheetId = Nothing
, _sTitle = Nothing
, _sRightToLeft = Nothing
, _sIndex = Nothing
}
sTabColor :: Lens' SheetProperties (Maybe Color)
sTabColor
= lens _sTabColor (\ s a -> s{_sTabColor = a})
sGridProperties :: Lens' SheetProperties (Maybe GridProperties)
sGridProperties
= lens _sGridProperties
(\ s a -> s{_sGridProperties = a})
sSheetType :: Lens' SheetProperties (Maybe SheetPropertiesSheetType)
sSheetType
= lens _sSheetType (\ s a -> s{_sSheetType = a})
sHidden :: Lens' SheetProperties (Maybe Bool)
sHidden = lens _sHidden (\ s a -> s{_sHidden = a})
sSheetId :: Lens' SheetProperties (Maybe Int32)
sSheetId
= lens _sSheetId (\ s a -> s{_sSheetId = a}) .
mapping _Coerce
sTitle :: Lens' SheetProperties (Maybe Text)
sTitle = lens _sTitle (\ s a -> s{_sTitle = a})
sRightToLeft :: Lens' SheetProperties (Maybe Bool)
sRightToLeft
= lens _sRightToLeft (\ s a -> s{_sRightToLeft = a})
sIndex :: Lens' SheetProperties (Maybe Int32)
sIndex
= lens _sIndex (\ s a -> s{_sIndex = a}) .
mapping _Coerce
instance FromJSON SheetProperties where
parseJSON
= withObject "SheetProperties"
(\ o ->
SheetProperties' <$>
(o .:? "tabColor") <*> (o .:? "gridProperties") <*>
(o .:? "sheetType")
<*> (o .:? "hidden")
<*> (o .:? "sheetId")
<*> (o .:? "title")
<*> (o .:? "rightToLeft")
<*> (o .:? "index"))
instance ToJSON SheetProperties where
toJSON SheetProperties'{..}
= object
(catMaybes
[("tabColor" .=) <$> _sTabColor,
("gridProperties" .=) <$> _sGridProperties,
("sheetType" .=) <$> _sSheetType,
("hidden" .=) <$> _sHidden,
("sheetId" .=) <$> _sSheetId,
("title" .=) <$> _sTitle,
("rightToLeft" .=) <$> _sRightToLeft,
("index" .=) <$> _sIndex])
newtype FilterViewCriteria = FilterViewCriteria'
{ _fvcAddtional :: HashMap Text FilterCriteria
} deriving (Eq,Show,Data,Typeable,Generic)
filterViewCriteria
:: HashMap Text FilterCriteria
-> FilterViewCriteria
filterViewCriteria pFvcAddtional_ =
FilterViewCriteria'
{ _fvcAddtional = _Coerce # pFvcAddtional_
}
fvcAddtional :: Lens' FilterViewCriteria (HashMap Text FilterCriteria)
fvcAddtional
= lens _fvcAddtional (\ s a -> s{_fvcAddtional = a})
. _Coerce
instance FromJSON FilterViewCriteria where
parseJSON
= withObject "FilterViewCriteria"
(\ o -> FilterViewCriteria' <$> (parseJSONObject o))
instance ToJSON FilterViewCriteria where
toJSON = toJSON . _fvcAddtional
data BatchUpdateValuesResponse = BatchUpdateValuesResponse'
{ _buvrTotalUpdatedColumns :: !(Maybe (Textual Int32))
, _buvrResponses :: !(Maybe [UpdateValuesResponse])
, _buvrSpreadsheetId :: !(Maybe Text)
, _buvrTotalUpdatedSheets :: !(Maybe (Textual Int32))
, _buvrTotalUpdatedCells :: !(Maybe (Textual Int32))
, _buvrTotalUpdatedRows :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdateValuesResponse
:: BatchUpdateValuesResponse
batchUpdateValuesResponse =
BatchUpdateValuesResponse'
{ _buvrTotalUpdatedColumns = Nothing
, _buvrResponses = Nothing
, _buvrSpreadsheetId = Nothing
, _buvrTotalUpdatedSheets = Nothing
, _buvrTotalUpdatedCells = Nothing
, _buvrTotalUpdatedRows = Nothing
}
buvrTotalUpdatedColumns :: Lens' BatchUpdateValuesResponse (Maybe Int32)
buvrTotalUpdatedColumns
= lens _buvrTotalUpdatedColumns
(\ s a -> s{_buvrTotalUpdatedColumns = a})
. mapping _Coerce
buvrResponses :: Lens' BatchUpdateValuesResponse [UpdateValuesResponse]
buvrResponses
= lens _buvrResponses
(\ s a -> s{_buvrResponses = a})
. _Default
. _Coerce
buvrSpreadsheetId :: Lens' BatchUpdateValuesResponse (Maybe Text)
buvrSpreadsheetId
= lens _buvrSpreadsheetId
(\ s a -> s{_buvrSpreadsheetId = a})
buvrTotalUpdatedSheets :: Lens' BatchUpdateValuesResponse (Maybe Int32)
buvrTotalUpdatedSheets
= lens _buvrTotalUpdatedSheets
(\ s a -> s{_buvrTotalUpdatedSheets = a})
. mapping _Coerce
buvrTotalUpdatedCells :: Lens' BatchUpdateValuesResponse (Maybe Int32)
buvrTotalUpdatedCells
= lens _buvrTotalUpdatedCells
(\ s a -> s{_buvrTotalUpdatedCells = a})
. mapping _Coerce
buvrTotalUpdatedRows :: Lens' BatchUpdateValuesResponse (Maybe Int32)
buvrTotalUpdatedRows
= lens _buvrTotalUpdatedRows
(\ s a -> s{_buvrTotalUpdatedRows = a})
. mapping _Coerce
instance FromJSON BatchUpdateValuesResponse where
parseJSON
= withObject "BatchUpdateValuesResponse"
(\ o ->
BatchUpdateValuesResponse' <$>
(o .:? "totalUpdatedColumns") <*>
(o .:? "responses" .!= mempty)
<*> (o .:? "spreadsheetId")
<*> (o .:? "totalUpdatedSheets")
<*> (o .:? "totalUpdatedCells")
<*> (o .:? "totalUpdatedRows"))
instance ToJSON BatchUpdateValuesResponse where
toJSON BatchUpdateValuesResponse'{..}
= object
(catMaybes
[("totalUpdatedColumns" .=) <$>
_buvrTotalUpdatedColumns,
("responses" .=) <$> _buvrResponses,
("spreadsheetId" .=) <$> _buvrSpreadsheetId,
("totalUpdatedSheets" .=) <$>
_buvrTotalUpdatedSheets,
("totalUpdatedCells" .=) <$> _buvrTotalUpdatedCells,
("totalUpdatedRows" .=) <$> _buvrTotalUpdatedRows])
data UpdateSheetPropertiesRequest = UpdateSheetPropertiesRequest'
{ _usprFields :: !(Maybe GFieldMask)
, _usprProperties :: !(Maybe SheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
updateSheetPropertiesRequest
:: UpdateSheetPropertiesRequest
updateSheetPropertiesRequest =
UpdateSheetPropertiesRequest'
{ _usprFields = Nothing
, _usprProperties = Nothing
}
usprFields :: Lens' UpdateSheetPropertiesRequest (Maybe GFieldMask)
usprFields
= lens _usprFields (\ s a -> s{_usprFields = a})
usprProperties :: Lens' UpdateSheetPropertiesRequest (Maybe SheetProperties)
usprProperties
= lens _usprProperties
(\ s a -> s{_usprProperties = a})
instance FromJSON UpdateSheetPropertiesRequest where
parseJSON
= withObject "UpdateSheetPropertiesRequest"
(\ o ->
UpdateSheetPropertiesRequest' <$>
(o .:? "fields") <*> (o .:? "properties"))
instance ToJSON UpdateSheetPropertiesRequest where
toJSON UpdateSheetPropertiesRequest'{..}
= object
(catMaybes
[("fields" .=) <$> _usprFields,
("properties" .=) <$> _usprProperties])
data Spreadsheet = Spreadsheet'
{ _sprSheets :: !(Maybe [Sheet])
, _sprNamedRanges :: !(Maybe [NamedRange])
, _sprSpreadsheetId :: !(Maybe Text)
, _sprSpreadsheetURL :: !(Maybe Text)
, _sprDeveloperMetadata :: !(Maybe [DeveloperMetadata])
, _sprProperties :: !(Maybe SpreadsheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
spreadsheet
:: Spreadsheet
spreadsheet =
Spreadsheet'
{ _sprSheets = Nothing
, _sprNamedRanges = Nothing
, _sprSpreadsheetId = Nothing
, _sprSpreadsheetURL = Nothing
, _sprDeveloperMetadata = Nothing
, _sprProperties = Nothing
}
sprSheets :: Lens' Spreadsheet [Sheet]
sprSheets
= lens _sprSheets (\ s a -> s{_sprSheets = a}) .
_Default
. _Coerce
sprNamedRanges :: Lens' Spreadsheet [NamedRange]
sprNamedRanges
= lens _sprNamedRanges
(\ s a -> s{_sprNamedRanges = a})
. _Default
. _Coerce
sprSpreadsheetId :: Lens' Spreadsheet (Maybe Text)
sprSpreadsheetId
= lens _sprSpreadsheetId
(\ s a -> s{_sprSpreadsheetId = a})
sprSpreadsheetURL :: Lens' Spreadsheet (Maybe Text)
sprSpreadsheetURL
= lens _sprSpreadsheetURL
(\ s a -> s{_sprSpreadsheetURL = a})
sprDeveloperMetadata :: Lens' Spreadsheet [DeveloperMetadata]
sprDeveloperMetadata
= lens _sprDeveloperMetadata
(\ s a -> s{_sprDeveloperMetadata = a})
. _Default
. _Coerce
sprProperties :: Lens' Spreadsheet (Maybe SpreadsheetProperties)
sprProperties
= lens _sprProperties
(\ s a -> s{_sprProperties = a})
instance FromJSON Spreadsheet where
parseJSON
= withObject "Spreadsheet"
(\ o ->
Spreadsheet' <$>
(o .:? "sheets" .!= mempty) <*>
(o .:? "namedRanges" .!= mempty)
<*> (o .:? "spreadsheetId")
<*> (o .:? "spreadsheetUrl")
<*> (o .:? "developerMetadata" .!= mempty)
<*> (o .:? "properties"))
instance ToJSON Spreadsheet where
toJSON Spreadsheet'{..}
= object
(catMaybes
[("sheets" .=) <$> _sprSheets,
("namedRanges" .=) <$> _sprNamedRanges,
("spreadsheetId" .=) <$> _sprSpreadsheetId,
("spreadsheetUrl" .=) <$> _sprSpreadsheetURL,
("developerMetadata" .=) <$> _sprDeveloperMetadata,
("properties" .=) <$> _sprProperties])
data CandlestickChartSpec = CandlestickChartSpec'
{ _ccsData :: !(Maybe [CandlestickData])
, _ccsDomain :: !(Maybe CandlestickDomain)
} deriving (Eq,Show,Data,Typeable,Generic)
candlestickChartSpec
:: CandlestickChartSpec
candlestickChartSpec =
CandlestickChartSpec'
{ _ccsData = Nothing
, _ccsDomain = Nothing
}
ccsData :: Lens' CandlestickChartSpec [CandlestickData]
ccsData
= lens _ccsData (\ s a -> s{_ccsData = a}) . _Default
. _Coerce
ccsDomain :: Lens' CandlestickChartSpec (Maybe CandlestickDomain)
ccsDomain
= lens _ccsDomain (\ s a -> s{_ccsDomain = a})
instance FromJSON CandlestickChartSpec where
parseJSON
= withObject "CandlestickChartSpec"
(\ o ->
CandlestickChartSpec' <$>
(o .:? "data" .!= mempty) <*> (o .:? "domain"))
instance ToJSON CandlestickChartSpec where
toJSON CandlestickChartSpec'{..}
= object
(catMaybes
[("data" .=) <$> _ccsData,
("domain" .=) <$> _ccsDomain])
data InsertDimensionRequest = InsertDimensionRequest'
{ _idrRange :: !(Maybe DimensionRange)
, _idrInheritFromBefore :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
insertDimensionRequest
:: InsertDimensionRequest
insertDimensionRequest =
InsertDimensionRequest'
{ _idrRange = Nothing
, _idrInheritFromBefore = Nothing
}
idrRange :: Lens' InsertDimensionRequest (Maybe DimensionRange)
idrRange = lens _idrRange (\ s a -> s{_idrRange = a})
idrInheritFromBefore :: Lens' InsertDimensionRequest (Maybe Bool)
idrInheritFromBefore
= lens _idrInheritFromBefore
(\ s a -> s{_idrInheritFromBefore = a})
instance FromJSON InsertDimensionRequest where
parseJSON
= withObject "InsertDimensionRequest"
(\ o ->
InsertDimensionRequest' <$>
(o .:? "range") <*> (o .:? "inheritFromBefore"))
instance ToJSON InsertDimensionRequest where
toJSON InsertDimensionRequest'{..}
= object
(catMaybes
[("range" .=) <$> _idrRange,
("inheritFromBefore" .=) <$> _idrInheritFromBefore])
newtype SearchDeveloperMetadataResponse = SearchDeveloperMetadataResponse'
{ _sdmrMatchedDeveloperMetadata :: Maybe [MatchedDeveloperMetadata]
} deriving (Eq,Show,Data,Typeable,Generic)
searchDeveloperMetadataResponse
:: SearchDeveloperMetadataResponse
searchDeveloperMetadataResponse =
SearchDeveloperMetadataResponse'
{ _sdmrMatchedDeveloperMetadata = Nothing
}
sdmrMatchedDeveloperMetadata :: Lens' SearchDeveloperMetadataResponse [MatchedDeveloperMetadata]
sdmrMatchedDeveloperMetadata
= lens _sdmrMatchedDeveloperMetadata
(\ s a -> s{_sdmrMatchedDeveloperMetadata = a})
. _Default
. _Coerce
instance FromJSON SearchDeveloperMetadataResponse
where
parseJSON
= withObject "SearchDeveloperMetadataResponse"
(\ o ->
SearchDeveloperMetadataResponse' <$>
(o .:? "matchedDeveloperMetadata" .!= mempty))
instance ToJSON SearchDeveloperMetadataResponse where
toJSON SearchDeveloperMetadataResponse'{..}
= object
(catMaybes
[("matchedDeveloperMetadata" .=) <$>
_sdmrMatchedDeveloperMetadata])
data InterpolationPoint = InterpolationPoint'
{ _ipColor :: !(Maybe Color)
, _ipValue :: !(Maybe Text)
, _ipType :: !(Maybe InterpolationPointType)
} deriving (Eq,Show,Data,Typeable,Generic)
interpolationPoint
:: InterpolationPoint
interpolationPoint =
InterpolationPoint'
{ _ipColor = Nothing
, _ipValue = Nothing
, _ipType = Nothing
}
ipColor :: Lens' InterpolationPoint (Maybe Color)
ipColor = lens _ipColor (\ s a -> s{_ipColor = a})
ipValue :: Lens' InterpolationPoint (Maybe Text)
ipValue = lens _ipValue (\ s a -> s{_ipValue = a})
ipType :: Lens' InterpolationPoint (Maybe InterpolationPointType)
ipType = lens _ipType (\ s a -> s{_ipType = a})
instance FromJSON InterpolationPoint where
parseJSON
= withObject "InterpolationPoint"
(\ o ->
InterpolationPoint' <$>
(o .:? "color") <*> (o .:? "value") <*>
(o .:? "type"))
instance ToJSON InterpolationPoint where
toJSON InterpolationPoint'{..}
= object
(catMaybes
[("color" .=) <$> _ipColor,
("value" .=) <$> _ipValue, ("type" .=) <$> _ipType])
data CellData = CellData'
{ _cdTextFormatRuns :: !(Maybe [TextFormatRun])
, _cdNote :: !(Maybe Text)
, _cdUserEnteredValue :: !(Maybe ExtendedValue)
, _cdUserEnteredFormat :: !(Maybe CellFormat)
, _cdEffectiveFormat :: !(Maybe CellFormat)
, _cdPivotTable :: !(Maybe PivotTable)
, _cdFormattedValue :: !(Maybe Text)
, _cdDataValidation :: !(Maybe DataValidationRule)
, _cdHyperlink :: !(Maybe Text)
, _cdEffectiveValue :: !(Maybe ExtendedValue)
} deriving (Eq,Show,Data,Typeable,Generic)
cellData
:: CellData
cellData =
CellData'
{ _cdTextFormatRuns = Nothing
, _cdNote = Nothing
, _cdUserEnteredValue = Nothing
, _cdUserEnteredFormat = Nothing
, _cdEffectiveFormat = Nothing
, _cdPivotTable = Nothing
, _cdFormattedValue = Nothing
, _cdDataValidation = Nothing
, _cdHyperlink = Nothing
, _cdEffectiveValue = Nothing
}
cdTextFormatRuns :: Lens' CellData [TextFormatRun]
cdTextFormatRuns
= lens _cdTextFormatRuns
(\ s a -> s{_cdTextFormatRuns = a})
. _Default
. _Coerce
cdNote :: Lens' CellData (Maybe Text)
cdNote = lens _cdNote (\ s a -> s{_cdNote = a})
cdUserEnteredValue :: Lens' CellData (Maybe ExtendedValue)
cdUserEnteredValue
= lens _cdUserEnteredValue
(\ s a -> s{_cdUserEnteredValue = a})
cdUserEnteredFormat :: Lens' CellData (Maybe CellFormat)
cdUserEnteredFormat
= lens _cdUserEnteredFormat
(\ s a -> s{_cdUserEnteredFormat = a})
cdEffectiveFormat :: Lens' CellData (Maybe CellFormat)
cdEffectiveFormat
= lens _cdEffectiveFormat
(\ s a -> s{_cdEffectiveFormat = a})
cdPivotTable :: Lens' CellData (Maybe PivotTable)
cdPivotTable
= lens _cdPivotTable (\ s a -> s{_cdPivotTable = a})
cdFormattedValue :: Lens' CellData (Maybe Text)
cdFormattedValue
= lens _cdFormattedValue
(\ s a -> s{_cdFormattedValue = a})
cdDataValidation :: Lens' CellData (Maybe DataValidationRule)
cdDataValidation
= lens _cdDataValidation
(\ s a -> s{_cdDataValidation = a})
cdHyperlink :: Lens' CellData (Maybe Text)
cdHyperlink
= lens _cdHyperlink (\ s a -> s{_cdHyperlink = a})
cdEffectiveValue :: Lens' CellData (Maybe ExtendedValue)
cdEffectiveValue
= lens _cdEffectiveValue
(\ s a -> s{_cdEffectiveValue = a})
instance FromJSON CellData where
parseJSON
= withObject "CellData"
(\ o ->
CellData' <$>
(o .:? "textFormatRuns" .!= mempty) <*>
(o .:? "note")
<*> (o .:? "userEnteredValue")
<*> (o .:? "userEnteredFormat")
<*> (o .:? "effectiveFormat")
<*> (o .:? "pivotTable")
<*> (o .:? "formattedValue")
<*> (o .:? "dataValidation")
<*> (o .:? "hyperlink")
<*> (o .:? "effectiveValue"))
instance ToJSON CellData where
toJSON CellData'{..}
= object
(catMaybes
[("textFormatRuns" .=) <$> _cdTextFormatRuns,
("note" .=) <$> _cdNote,
("userEnteredValue" .=) <$> _cdUserEnteredValue,
("userEnteredFormat" .=) <$> _cdUserEnteredFormat,
("effectiveFormat" .=) <$> _cdEffectiveFormat,
("pivotTable" .=) <$> _cdPivotTable,
("formattedValue" .=) <$> _cdFormattedValue,
("dataValidation" .=) <$> _cdDataValidation,
("hyperlink" .=) <$> _cdHyperlink,
("effectiveValue" .=) <$> _cdEffectiveValue])
newtype ChartSourceRange = ChartSourceRange'
{ _csrSources :: Maybe [GridRange]
} deriving (Eq,Show,Data,Typeable,Generic)
chartSourceRange
:: ChartSourceRange
chartSourceRange =
ChartSourceRange'
{ _csrSources = Nothing
}
csrSources :: Lens' ChartSourceRange [GridRange]
csrSources
= lens _csrSources (\ s a -> s{_csrSources = a}) .
_Default
. _Coerce
instance FromJSON ChartSourceRange where
parseJSON
= withObject "ChartSourceRange"
(\ o ->
ChartSourceRange' <$> (o .:? "sources" .!= mempty))
instance ToJSON ChartSourceRange where
toJSON ChartSourceRange'{..}
= object (catMaybes [("sources" .=) <$> _csrSources])
newtype AddNamedRangeResponse = AddNamedRangeResponse'
{ _anrrNamedRange :: Maybe NamedRange
} deriving (Eq,Show,Data,Typeable,Generic)
addNamedRangeResponse
:: AddNamedRangeResponse
addNamedRangeResponse =
AddNamedRangeResponse'
{ _anrrNamedRange = Nothing
}
anrrNamedRange :: Lens' AddNamedRangeResponse (Maybe NamedRange)
anrrNamedRange
= lens _anrrNamedRange
(\ s a -> s{_anrrNamedRange = a})
instance FromJSON AddNamedRangeResponse where
parseJSON
= withObject "AddNamedRangeResponse"
(\ o ->
AddNamedRangeResponse' <$> (o .:? "namedRange"))
instance ToJSON AddNamedRangeResponse where
toJSON AddNamedRangeResponse'{..}
= object
(catMaybes [("namedRange" .=) <$> _anrrNamedRange])
data WaterfallChartDomain = WaterfallChartDomain'
{ _wcdReversed :: !(Maybe Bool)
, _wcdData :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
waterfallChartDomain
:: WaterfallChartDomain
waterfallChartDomain =
WaterfallChartDomain'
{ _wcdReversed = Nothing
, _wcdData = Nothing
}
wcdReversed :: Lens' WaterfallChartDomain (Maybe Bool)
wcdReversed
= lens _wcdReversed (\ s a -> s{_wcdReversed = a})
wcdData :: Lens' WaterfallChartDomain (Maybe ChartData)
wcdData = lens _wcdData (\ s a -> s{_wcdData = a})
instance FromJSON WaterfallChartDomain where
parseJSON
= withObject "WaterfallChartDomain"
(\ o ->
WaterfallChartDomain' <$>
(o .:? "reversed") <*> (o .:? "data"))
instance ToJSON WaterfallChartDomain where
toJSON WaterfallChartDomain'{..}
= object
(catMaybes
[("reversed" .=) <$> _wcdReversed,
("data" .=) <$> _wcdData])
newtype AddChartResponse = AddChartResponse'
{ _acrChart :: Maybe EmbeddedChart
} deriving (Eq,Show,Data,Typeable,Generic)
addChartResponse
:: AddChartResponse
addChartResponse =
AddChartResponse'
{ _acrChart = Nothing
}
acrChart :: Lens' AddChartResponse (Maybe EmbeddedChart)
acrChart = lens _acrChart (\ s a -> s{_acrChart = a})
instance FromJSON AddChartResponse where
parseJSON
= withObject "AddChartResponse"
(\ o -> AddChartResponse' <$> (o .:? "chart"))
instance ToJSON AddChartResponse where
toJSON AddChartResponse'{..}
= object (catMaybes [("chart" .=) <$> _acrChart])
data UpdateChartSpecRequest = UpdateChartSpecRequest'
{ _ucsrSpec :: !(Maybe ChartSpec)
, _ucsrChartId :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
updateChartSpecRequest
:: UpdateChartSpecRequest
updateChartSpecRequest =
UpdateChartSpecRequest'
{ _ucsrSpec = Nothing
, _ucsrChartId = Nothing
}
ucsrSpec :: Lens' UpdateChartSpecRequest (Maybe ChartSpec)
ucsrSpec = lens _ucsrSpec (\ s a -> s{_ucsrSpec = a})
ucsrChartId :: Lens' UpdateChartSpecRequest (Maybe Int32)
ucsrChartId
= lens _ucsrChartId (\ s a -> s{_ucsrChartId = a}) .
mapping _Coerce
instance FromJSON UpdateChartSpecRequest where
parseJSON
= withObject "UpdateChartSpecRequest"
(\ o ->
UpdateChartSpecRequest' <$>
(o .:? "spec") <*> (o .:? "chartId"))
instance ToJSON UpdateChartSpecRequest where
toJSON UpdateChartSpecRequest'{..}
= object
(catMaybes
[("spec" .=) <$> _ucsrSpec,
("chartId" .=) <$> _ucsrChartId])
newtype SetBasicFilterRequest = SetBasicFilterRequest'
{ _sbfrFilter :: Maybe BasicFilter
} deriving (Eq,Show,Data,Typeable,Generic)
setBasicFilterRequest
:: SetBasicFilterRequest
setBasicFilterRequest =
SetBasicFilterRequest'
{ _sbfrFilter = Nothing
}
sbfrFilter :: Lens' SetBasicFilterRequest (Maybe BasicFilter)
sbfrFilter
= lens _sbfrFilter (\ s a -> s{_sbfrFilter = a})
instance FromJSON SetBasicFilterRequest where
parseJSON
= withObject "SetBasicFilterRequest"
(\ o -> SetBasicFilterRequest' <$> (o .:? "filter"))
instance ToJSON SetBasicFilterRequest where
toJSON SetBasicFilterRequest'{..}
= object (catMaybes [("filter" .=) <$> _sbfrFilter])
data IterativeCalculationSettings = IterativeCalculationSettings'
{ _icsMaxIterations :: !(Maybe (Textual Int32))
, _icsConvergenceThreshold :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
iterativeCalculationSettings
:: IterativeCalculationSettings
iterativeCalculationSettings =
IterativeCalculationSettings'
{ _icsMaxIterations = Nothing
, _icsConvergenceThreshold = Nothing
}
icsMaxIterations :: Lens' IterativeCalculationSettings (Maybe Int32)
icsMaxIterations
= lens _icsMaxIterations
(\ s a -> s{_icsMaxIterations = a})
. mapping _Coerce
icsConvergenceThreshold :: Lens' IterativeCalculationSettings (Maybe Double)
icsConvergenceThreshold
= lens _icsConvergenceThreshold
(\ s a -> s{_icsConvergenceThreshold = a})
. mapping _Coerce
instance FromJSON IterativeCalculationSettings where
parseJSON
= withObject "IterativeCalculationSettings"
(\ o ->
IterativeCalculationSettings' <$>
(o .:? "maxIterations") <*>
(o .:? "convergenceThreshold"))
instance ToJSON IterativeCalculationSettings where
toJSON IterativeCalculationSettings'{..}
= object
(catMaybes
[("maxIterations" .=) <$> _icsMaxIterations,
("convergenceThreshold" .=) <$>
_icsConvergenceThreshold])
data UpdateValuesByDataFilterResponse = UpdateValuesByDataFilterResponse'
{ _uvbdfrUpdatedCells :: !(Maybe (Textual Int32))
, _uvbdfrUpdatedRows :: !(Maybe (Textual Int32))
, _uvbdfrUpdatedRange :: !(Maybe Text)
, _uvbdfrUpdatedData :: !(Maybe ValueRange)
, _uvbdfrUpdatedColumns :: !(Maybe (Textual Int32))
, _uvbdfrDataFilter :: !(Maybe DataFilter)
} deriving (Eq,Show,Data,Typeable,Generic)
updateValuesByDataFilterResponse
:: UpdateValuesByDataFilterResponse
updateValuesByDataFilterResponse =
UpdateValuesByDataFilterResponse'
{ _uvbdfrUpdatedCells = Nothing
, _uvbdfrUpdatedRows = Nothing
, _uvbdfrUpdatedRange = Nothing
, _uvbdfrUpdatedData = Nothing
, _uvbdfrUpdatedColumns = Nothing
, _uvbdfrDataFilter = Nothing
}
uvbdfrUpdatedCells :: Lens' UpdateValuesByDataFilterResponse (Maybe Int32)
uvbdfrUpdatedCells
= lens _uvbdfrUpdatedCells
(\ s a -> s{_uvbdfrUpdatedCells = a})
. mapping _Coerce
uvbdfrUpdatedRows :: Lens' UpdateValuesByDataFilterResponse (Maybe Int32)
uvbdfrUpdatedRows
= lens _uvbdfrUpdatedRows
(\ s a -> s{_uvbdfrUpdatedRows = a})
. mapping _Coerce
uvbdfrUpdatedRange :: Lens' UpdateValuesByDataFilterResponse (Maybe Text)
uvbdfrUpdatedRange
= lens _uvbdfrUpdatedRange
(\ s a -> s{_uvbdfrUpdatedRange = a})
uvbdfrUpdatedData :: Lens' UpdateValuesByDataFilterResponse (Maybe ValueRange)
uvbdfrUpdatedData
= lens _uvbdfrUpdatedData
(\ s a -> s{_uvbdfrUpdatedData = a})
uvbdfrUpdatedColumns :: Lens' UpdateValuesByDataFilterResponse (Maybe Int32)
uvbdfrUpdatedColumns
= lens _uvbdfrUpdatedColumns
(\ s a -> s{_uvbdfrUpdatedColumns = a})
. mapping _Coerce
uvbdfrDataFilter :: Lens' UpdateValuesByDataFilterResponse (Maybe DataFilter)
uvbdfrDataFilter
= lens _uvbdfrDataFilter
(\ s a -> s{_uvbdfrDataFilter = a})
instance FromJSON UpdateValuesByDataFilterResponse
where
parseJSON
= withObject "UpdateValuesByDataFilterResponse"
(\ o ->
UpdateValuesByDataFilterResponse' <$>
(o .:? "updatedCells") <*> (o .:? "updatedRows") <*>
(o .:? "updatedRange")
<*> (o .:? "updatedData")
<*> (o .:? "updatedColumns")
<*> (o .:? "dataFilter"))
instance ToJSON UpdateValuesByDataFilterResponse
where
toJSON UpdateValuesByDataFilterResponse'{..}
= object
(catMaybes
[("updatedCells" .=) <$> _uvbdfrUpdatedCells,
("updatedRows" .=) <$> _uvbdfrUpdatedRows,
("updatedRange" .=) <$> _uvbdfrUpdatedRange,
("updatedData" .=) <$> _uvbdfrUpdatedData,
("updatedColumns" .=) <$> _uvbdfrUpdatedColumns,
("dataFilter" .=) <$> _uvbdfrDataFilter])
data GridProperties = GridProperties'
{ _gpFrozenColumnCount :: !(Maybe (Textual Int32))
, _gpColumnCount :: !(Maybe (Textual Int32))
, _gpColumnGroupControlAfter :: !(Maybe Bool)
, _gpHideGridlines :: !(Maybe Bool)
, _gpFrozenRowCount :: !(Maybe (Textual Int32))
, _gpRowGroupControlAfter :: !(Maybe Bool)
, _gpRowCount :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
gridProperties
:: GridProperties
gridProperties =
GridProperties'
{ _gpFrozenColumnCount = Nothing
, _gpColumnCount = Nothing
, _gpColumnGroupControlAfter = Nothing
, _gpHideGridlines = Nothing
, _gpFrozenRowCount = Nothing
, _gpRowGroupControlAfter = Nothing
, _gpRowCount = Nothing
}
gpFrozenColumnCount :: Lens' GridProperties (Maybe Int32)
gpFrozenColumnCount
= lens _gpFrozenColumnCount
(\ s a -> s{_gpFrozenColumnCount = a})
. mapping _Coerce
gpColumnCount :: Lens' GridProperties (Maybe Int32)
gpColumnCount
= lens _gpColumnCount
(\ s a -> s{_gpColumnCount = a})
. mapping _Coerce
gpColumnGroupControlAfter :: Lens' GridProperties (Maybe Bool)
gpColumnGroupControlAfter
= lens _gpColumnGroupControlAfter
(\ s a -> s{_gpColumnGroupControlAfter = a})
gpHideGridlines :: Lens' GridProperties (Maybe Bool)
gpHideGridlines
= lens _gpHideGridlines
(\ s a -> s{_gpHideGridlines = a})
gpFrozenRowCount :: Lens' GridProperties (Maybe Int32)
gpFrozenRowCount
= lens _gpFrozenRowCount
(\ s a -> s{_gpFrozenRowCount = a})
. mapping _Coerce
gpRowGroupControlAfter :: Lens' GridProperties (Maybe Bool)
gpRowGroupControlAfter
= lens _gpRowGroupControlAfter
(\ s a -> s{_gpRowGroupControlAfter = a})
gpRowCount :: Lens' GridProperties (Maybe Int32)
gpRowCount
= lens _gpRowCount (\ s a -> s{_gpRowCount = a}) .
mapping _Coerce
instance FromJSON GridProperties where
parseJSON
= withObject "GridProperties"
(\ o ->
GridProperties' <$>
(o .:? "frozenColumnCount") <*> (o .:? "columnCount")
<*> (o .:? "columnGroupControlAfter")
<*> (o .:? "hideGridlines")
<*> (o .:? "frozenRowCount")
<*> (o .:? "rowGroupControlAfter")
<*> (o .:? "rowCount"))
instance ToJSON GridProperties where
toJSON GridProperties'{..}
= object
(catMaybes
[("frozenColumnCount" .=) <$> _gpFrozenColumnCount,
("columnCount" .=) <$> _gpColumnCount,
("columnGroupControlAfter" .=) <$>
_gpColumnGroupControlAfter,
("hideGridlines" .=) <$> _gpHideGridlines,
("frozenRowCount" .=) <$> _gpFrozenRowCount,
("rowGroupControlAfter" .=) <$>
_gpRowGroupControlAfter,
("rowCount" .=) <$> _gpRowCount])
data HistogramChartSpec = HistogramChartSpec'
{ _hcsLegendPosition :: !(Maybe HistogramChartSpecLegendPosition)
, _hcsSeries :: !(Maybe [HistogramSeries])
, _hcsShowItemDividers :: !(Maybe Bool)
, _hcsOutlierPercentile :: !(Maybe (Textual Double))
, _hcsBucketSize :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
histogramChartSpec
:: HistogramChartSpec
histogramChartSpec =
HistogramChartSpec'
{ _hcsLegendPosition = Nothing
, _hcsSeries = Nothing
, _hcsShowItemDividers = Nothing
, _hcsOutlierPercentile = Nothing
, _hcsBucketSize = Nothing
}
hcsLegendPosition :: Lens' HistogramChartSpec (Maybe HistogramChartSpecLegendPosition)
hcsLegendPosition
= lens _hcsLegendPosition
(\ s a -> s{_hcsLegendPosition = a})
hcsSeries :: Lens' HistogramChartSpec [HistogramSeries]
hcsSeries
= lens _hcsSeries (\ s a -> s{_hcsSeries = a}) .
_Default
. _Coerce
hcsShowItemDividers :: Lens' HistogramChartSpec (Maybe Bool)
hcsShowItemDividers
= lens _hcsShowItemDividers
(\ s a -> s{_hcsShowItemDividers = a})
hcsOutlierPercentile :: Lens' HistogramChartSpec (Maybe Double)
hcsOutlierPercentile
= lens _hcsOutlierPercentile
(\ s a -> s{_hcsOutlierPercentile = a})
. mapping _Coerce
hcsBucketSize :: Lens' HistogramChartSpec (Maybe Double)
hcsBucketSize
= lens _hcsBucketSize
(\ s a -> s{_hcsBucketSize = a})
. mapping _Coerce
instance FromJSON HistogramChartSpec where
parseJSON
= withObject "HistogramChartSpec"
(\ o ->
HistogramChartSpec' <$>
(o .:? "legendPosition") <*>
(o .:? "series" .!= mempty)
<*> (o .:? "showItemDividers")
<*> (o .:? "outlierPercentile")
<*> (o .:? "bucketSize"))
instance ToJSON HistogramChartSpec where
toJSON HistogramChartSpec'{..}
= object
(catMaybes
[("legendPosition" .=) <$> _hcsLegendPosition,
("series" .=) <$> _hcsSeries,
("showItemDividers" .=) <$> _hcsShowItemDividers,
("outlierPercentile" .=) <$> _hcsOutlierPercentile,
("bucketSize" .=) <$> _hcsBucketSize])
newtype BasicFilterCriteria = BasicFilterCriteria'
{ _bfcAddtional :: HashMap Text FilterCriteria
} deriving (Eq,Show,Data,Typeable,Generic)
basicFilterCriteria
:: HashMap Text FilterCriteria
-> BasicFilterCriteria
basicFilterCriteria pBfcAddtional_ =
BasicFilterCriteria'
{ _bfcAddtional = _Coerce # pBfcAddtional_
}
bfcAddtional :: Lens' BasicFilterCriteria (HashMap Text FilterCriteria)
bfcAddtional
= lens _bfcAddtional (\ s a -> s{_bfcAddtional = a})
. _Coerce
instance FromJSON BasicFilterCriteria where
parseJSON
= withObject "BasicFilterCriteria"
(\ o -> BasicFilterCriteria' <$> (parseJSONObject o))
instance ToJSON BasicFilterCriteria where
toJSON = toJSON . _bfcAddtional
newtype AddBandingRequest = AddBandingRequest'
{ _abrBandedRange :: Maybe BandedRange
} deriving (Eq,Show,Data,Typeable,Generic)
addBandingRequest
:: AddBandingRequest
addBandingRequest =
AddBandingRequest'
{ _abrBandedRange = Nothing
}
abrBandedRange :: Lens' AddBandingRequest (Maybe BandedRange)
abrBandedRange
= lens _abrBandedRange
(\ s a -> s{_abrBandedRange = a})
instance FromJSON AddBandingRequest where
parseJSON
= withObject "AddBandingRequest"
(\ o -> AddBandingRequest' <$> (o .:? "bandedRange"))
instance ToJSON AddBandingRequest where
toJSON AddBandingRequest'{..}
= object
(catMaybes [("bandedRange" .=) <$> _abrBandedRange])
data UpdateDimensionPropertiesRequest = UpdateDimensionPropertiesRequest'
{ _udprRange :: !(Maybe DimensionRange)
, _udprFields :: !(Maybe GFieldMask)
, _udprProperties :: !(Maybe DimensionProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
updateDimensionPropertiesRequest
:: UpdateDimensionPropertiesRequest
updateDimensionPropertiesRequest =
UpdateDimensionPropertiesRequest'
{ _udprRange = Nothing
, _udprFields = Nothing
, _udprProperties = Nothing
}
udprRange :: Lens' UpdateDimensionPropertiesRequest (Maybe DimensionRange)
udprRange
= lens _udprRange (\ s a -> s{_udprRange = a})
udprFields :: Lens' UpdateDimensionPropertiesRequest (Maybe GFieldMask)
udprFields
= lens _udprFields (\ s a -> s{_udprFields = a})
udprProperties :: Lens' UpdateDimensionPropertiesRequest (Maybe DimensionProperties)
udprProperties
= lens _udprProperties
(\ s a -> s{_udprProperties = a})
instance FromJSON UpdateDimensionPropertiesRequest
where
parseJSON
= withObject "UpdateDimensionPropertiesRequest"
(\ o ->
UpdateDimensionPropertiesRequest' <$>
(o .:? "range") <*> (o .:? "fields") <*>
(o .:? "properties"))
instance ToJSON UpdateDimensionPropertiesRequest
where
toJSON UpdateDimensionPropertiesRequest'{..}
= object
(catMaybes
[("range" .=) <$> _udprRange,
("fields" .=) <$> _udprFields,
("properties" .=) <$> _udprProperties])
newtype PivotTableCriteria = PivotTableCriteria'
{ _ptcAddtional :: HashMap Text PivotFilterCriteria
} deriving (Eq,Show,Data,Typeable,Generic)
pivotTableCriteria
:: HashMap Text PivotFilterCriteria
-> PivotTableCriteria
pivotTableCriteria pPtcAddtional_ =
PivotTableCriteria'
{ _ptcAddtional = _Coerce # pPtcAddtional_
}
ptcAddtional :: Lens' PivotTableCriteria (HashMap Text PivotFilterCriteria)
ptcAddtional
= lens _ptcAddtional (\ s a -> s{_ptcAddtional = a})
. _Coerce
instance FromJSON PivotTableCriteria where
parseJSON
= withObject "PivotTableCriteria"
(\ o -> PivotTableCriteria' <$> (parseJSONObject o))
instance ToJSON PivotTableCriteria where
toJSON = toJSON . _ptcAddtional
data AutoFillRequest = AutoFillRequest'
{ _afrSourceAndDestination :: !(Maybe SourceAndDestination)
, _afrUseAlternateSeries :: !(Maybe Bool)
, _afrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
autoFillRequest
:: AutoFillRequest
autoFillRequest =
AutoFillRequest'
{ _afrSourceAndDestination = Nothing
, _afrUseAlternateSeries = Nothing
, _afrRange = Nothing
}
afrSourceAndDestination :: Lens' AutoFillRequest (Maybe SourceAndDestination)
afrSourceAndDestination
= lens _afrSourceAndDestination
(\ s a -> s{_afrSourceAndDestination = a})
afrUseAlternateSeries :: Lens' AutoFillRequest (Maybe Bool)
afrUseAlternateSeries
= lens _afrUseAlternateSeries
(\ s a -> s{_afrUseAlternateSeries = a})
afrRange :: Lens' AutoFillRequest (Maybe GridRange)
afrRange = lens _afrRange (\ s a -> s{_afrRange = a})
instance FromJSON AutoFillRequest where
parseJSON
= withObject "AutoFillRequest"
(\ o ->
AutoFillRequest' <$>
(o .:? "sourceAndDestination") <*>
(o .:? "useAlternateSeries")
<*> (o .:? "range"))
instance ToJSON AutoFillRequest where
toJSON AutoFillRequest'{..}
= object
(catMaybes
[("sourceAndDestination" .=) <$>
_afrSourceAndDestination,
("useAlternateSeries" .=) <$> _afrUseAlternateSeries,
("range" .=) <$> _afrRange])
data DeveloperMetadataLookup = DeveloperMetadataLookup'
{ _dLocationMatchingStrategy :: !(Maybe DeveloperMetadataLookupLocationMatchingStrategy)
, _dMetadataId :: !(Maybe (Textual Int32))
, _dVisibility :: !(Maybe DeveloperMetadataLookupVisibility)
, _dMetadataKey :: !(Maybe Text)
, _dLocationType :: !(Maybe DeveloperMetadataLookupLocationType)
, _dMetadataLocation :: !(Maybe DeveloperMetadataLocation)
, _dMetadataValue :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
developerMetadataLookup
:: DeveloperMetadataLookup
developerMetadataLookup =
DeveloperMetadataLookup'
{ _dLocationMatchingStrategy = Nothing
, _dMetadataId = Nothing
, _dVisibility = Nothing
, _dMetadataKey = Nothing
, _dLocationType = Nothing
, _dMetadataLocation = Nothing
, _dMetadataValue = Nothing
}
dLocationMatchingStrategy :: Lens' DeveloperMetadataLookup (Maybe DeveloperMetadataLookupLocationMatchingStrategy)
dLocationMatchingStrategy
= lens _dLocationMatchingStrategy
(\ s a -> s{_dLocationMatchingStrategy = a})
dMetadataId :: Lens' DeveloperMetadataLookup (Maybe Int32)
dMetadataId
= lens _dMetadataId (\ s a -> s{_dMetadataId = a}) .
mapping _Coerce
dVisibility :: Lens' DeveloperMetadataLookup (Maybe DeveloperMetadataLookupVisibility)
dVisibility
= lens _dVisibility (\ s a -> s{_dVisibility = a})
dMetadataKey :: Lens' DeveloperMetadataLookup (Maybe Text)
dMetadataKey
= lens _dMetadataKey (\ s a -> s{_dMetadataKey = a})
dLocationType :: Lens' DeveloperMetadataLookup (Maybe DeveloperMetadataLookupLocationType)
dLocationType
= lens _dLocationType
(\ s a -> s{_dLocationType = a})
dMetadataLocation :: Lens' DeveloperMetadataLookup (Maybe DeveloperMetadataLocation)
dMetadataLocation
= lens _dMetadataLocation
(\ s a -> s{_dMetadataLocation = a})
dMetadataValue :: Lens' DeveloperMetadataLookup (Maybe Text)
dMetadataValue
= lens _dMetadataValue
(\ s a -> s{_dMetadataValue = a})
instance FromJSON DeveloperMetadataLookup where
parseJSON
= withObject "DeveloperMetadataLookup"
(\ o ->
DeveloperMetadataLookup' <$>
(o .:? "locationMatchingStrategy") <*>
(o .:? "metadataId")
<*> (o .:? "visibility")
<*> (o .:? "metadataKey")
<*> (o .:? "locationType")
<*> (o .:? "metadataLocation")
<*> (o .:? "metadataValue"))
instance ToJSON DeveloperMetadataLookup where
toJSON DeveloperMetadataLookup'{..}
= object
(catMaybes
[("locationMatchingStrategy" .=) <$>
_dLocationMatchingStrategy,
("metadataId" .=) <$> _dMetadataId,
("visibility" .=) <$> _dVisibility,
("metadataKey" .=) <$> _dMetadataKey,
("locationType" .=) <$> _dLocationType,
("metadataLocation" .=) <$> _dMetadataLocation,
("metadataValue" .=) <$> _dMetadataValue])
data DuplicateSheetRequest = DuplicateSheetRequest'
{ _dsrNewSheetName :: !(Maybe Text)
, _dsrInsertSheetIndex :: !(Maybe (Textual Int32))
, _dsrSourceSheetId :: !(Maybe (Textual Int32))
, _dsrNewSheetId :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
duplicateSheetRequest
:: DuplicateSheetRequest
duplicateSheetRequest =
DuplicateSheetRequest'
{ _dsrNewSheetName = Nothing
, _dsrInsertSheetIndex = Nothing
, _dsrSourceSheetId = Nothing
, _dsrNewSheetId = Nothing
}
dsrNewSheetName :: Lens' DuplicateSheetRequest (Maybe Text)
dsrNewSheetName
= lens _dsrNewSheetName
(\ s a -> s{_dsrNewSheetName = a})
dsrInsertSheetIndex :: Lens' DuplicateSheetRequest (Maybe Int32)
dsrInsertSheetIndex
= lens _dsrInsertSheetIndex
(\ s a -> s{_dsrInsertSheetIndex = a})
. mapping _Coerce
dsrSourceSheetId :: Lens' DuplicateSheetRequest (Maybe Int32)
dsrSourceSheetId
= lens _dsrSourceSheetId
(\ s a -> s{_dsrSourceSheetId = a})
. mapping _Coerce
dsrNewSheetId :: Lens' DuplicateSheetRequest (Maybe Int32)
dsrNewSheetId
= lens _dsrNewSheetId
(\ s a -> s{_dsrNewSheetId = a})
. mapping _Coerce
instance FromJSON DuplicateSheetRequest where
parseJSON
= withObject "DuplicateSheetRequest"
(\ o ->
DuplicateSheetRequest' <$>
(o .:? "newSheetName") <*> (o .:? "insertSheetIndex")
<*> (o .:? "sourceSheetId")
<*> (o .:? "newSheetId"))
instance ToJSON DuplicateSheetRequest where
toJSON DuplicateSheetRequest'{..}
= object
(catMaybes
[("newSheetName" .=) <$> _dsrNewSheetName,
("insertSheetIndex" .=) <$> _dsrInsertSheetIndex,
("sourceSheetId" .=) <$> _dsrSourceSheetId,
("newSheetId" .=) <$> _dsrNewSheetId])
data TextRotation = TextRotation'
{ _trAngle :: !(Maybe (Textual Int32))
, _trVertical :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
textRotation
:: TextRotation
textRotation =
TextRotation'
{ _trAngle = Nothing
, _trVertical = Nothing
}
trAngle :: Lens' TextRotation (Maybe Int32)
trAngle
= lens _trAngle (\ s a -> s{_trAngle = a}) .
mapping _Coerce
trVertical :: Lens' TextRotation (Maybe Bool)
trVertical
= lens _trVertical (\ s a -> s{_trVertical = a})
instance FromJSON TextRotation where
parseJSON
= withObject "TextRotation"
(\ o ->
TextRotation' <$>
(o .:? "angle") <*> (o .:? "vertical"))
instance ToJSON TextRotation where
toJSON TextRotation'{..}
= object
(catMaybes
[("angle" .=) <$> _trAngle,
("vertical" .=) <$> _trVertical])
newtype DuplicateFilterViewResponse = DuplicateFilterViewResponse'
{ _dfvrFilter :: Maybe FilterView
} deriving (Eq,Show,Data,Typeable,Generic)
duplicateFilterViewResponse
:: DuplicateFilterViewResponse
duplicateFilterViewResponse =
DuplicateFilterViewResponse'
{ _dfvrFilter = Nothing
}
dfvrFilter :: Lens' DuplicateFilterViewResponse (Maybe FilterView)
dfvrFilter
= lens _dfvrFilter (\ s a -> s{_dfvrFilter = a})
instance FromJSON DuplicateFilterViewResponse where
parseJSON
= withObject "DuplicateFilterViewResponse"
(\ o ->
DuplicateFilterViewResponse' <$> (o .:? "filter"))
instance ToJSON DuplicateFilterViewResponse where
toJSON DuplicateFilterViewResponse'{..}
= object (catMaybes [("filter" .=) <$> _dfvrFilter])
data BatchUpdateValuesRequest = BatchUpdateValuesRequest'
{ _buvrData :: !(Maybe [ValueRange])
, _buvrValueInputOption :: !(Maybe BatchUpdateValuesRequestValueInputOption)
, _buvrIncludeValuesInResponse :: !(Maybe Bool)
, _buvrResponseDateTimeRenderOption :: !(Maybe BatchUpdateValuesRequestResponseDateTimeRenderOption)
, _buvrResponseValueRenderOption :: !(Maybe BatchUpdateValuesRequestResponseValueRenderOption)
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdateValuesRequest
:: BatchUpdateValuesRequest
batchUpdateValuesRequest =
BatchUpdateValuesRequest'
{ _buvrData = Nothing
, _buvrValueInputOption = Nothing
, _buvrIncludeValuesInResponse = Nothing
, _buvrResponseDateTimeRenderOption = Nothing
, _buvrResponseValueRenderOption = Nothing
}
buvrData :: Lens' BatchUpdateValuesRequest [ValueRange]
buvrData
= lens _buvrData (\ s a -> s{_buvrData = a}) .
_Default
. _Coerce
buvrValueInputOption :: Lens' BatchUpdateValuesRequest (Maybe BatchUpdateValuesRequestValueInputOption)
buvrValueInputOption
= lens _buvrValueInputOption
(\ s a -> s{_buvrValueInputOption = a})
buvrIncludeValuesInResponse :: Lens' BatchUpdateValuesRequest (Maybe Bool)
buvrIncludeValuesInResponse
= lens _buvrIncludeValuesInResponse
(\ s a -> s{_buvrIncludeValuesInResponse = a})
buvrResponseDateTimeRenderOption :: Lens' BatchUpdateValuesRequest (Maybe BatchUpdateValuesRequestResponseDateTimeRenderOption)
buvrResponseDateTimeRenderOption
= lens _buvrResponseDateTimeRenderOption
(\ s a -> s{_buvrResponseDateTimeRenderOption = a})
buvrResponseValueRenderOption :: Lens' BatchUpdateValuesRequest (Maybe BatchUpdateValuesRequestResponseValueRenderOption)
buvrResponseValueRenderOption
= lens _buvrResponseValueRenderOption
(\ s a -> s{_buvrResponseValueRenderOption = a})
instance FromJSON BatchUpdateValuesRequest where
parseJSON
= withObject "BatchUpdateValuesRequest"
(\ o ->
BatchUpdateValuesRequest' <$>
(o .:? "data" .!= mempty) <*>
(o .:? "valueInputOption")
<*> (o .:? "includeValuesInResponse")
<*> (o .:? "responseDateTimeRenderOption")
<*> (o .:? "responseValueRenderOption"))
instance ToJSON BatchUpdateValuesRequest where
toJSON BatchUpdateValuesRequest'{..}
= object
(catMaybes
[("data" .=) <$> _buvrData,
("valueInputOption" .=) <$> _buvrValueInputOption,
("includeValuesInResponse" .=) <$>
_buvrIncludeValuesInResponse,
("responseDateTimeRenderOption" .=) <$>
_buvrResponseDateTimeRenderOption,
("responseValueRenderOption" .=) <$>
_buvrResponseValueRenderOption])
data DataFilterValueRange = DataFilterValueRange'
{ _dfvrValues :: !(Maybe [[JSONValue]])
, _dfvrDataFilter :: !(Maybe DataFilter)
, _dfvrMajorDimension :: !(Maybe DataFilterValueRangeMajorDimension)
} deriving (Eq,Show,Data,Typeable,Generic)
dataFilterValueRange
:: DataFilterValueRange
dataFilterValueRange =
DataFilterValueRange'
{ _dfvrValues = Nothing
, _dfvrDataFilter = Nothing
, _dfvrMajorDimension = Nothing
}
dfvrValues :: Lens' DataFilterValueRange [[JSONValue]]
dfvrValues
= lens _dfvrValues (\ s a -> s{_dfvrValues = a}) .
_Default
. _Coerce
dfvrDataFilter :: Lens' DataFilterValueRange (Maybe DataFilter)
dfvrDataFilter
= lens _dfvrDataFilter
(\ s a -> s{_dfvrDataFilter = a})
dfvrMajorDimension :: Lens' DataFilterValueRange (Maybe DataFilterValueRangeMajorDimension)
dfvrMajorDimension
= lens _dfvrMajorDimension
(\ s a -> s{_dfvrMajorDimension = a})
instance FromJSON DataFilterValueRange where
parseJSON
= withObject "DataFilterValueRange"
(\ o ->
DataFilterValueRange' <$>
(o .:? "values" .!= mempty) <*> (o .:? "dataFilter")
<*> (o .:? "majorDimension"))
instance ToJSON DataFilterValueRange where
toJSON DataFilterValueRange'{..}
= object
(catMaybes
[("values" .=) <$> _dfvrValues,
("dataFilter" .=) <$> _dfvrDataFilter,
("majorDimension" .=) <$> _dfvrMajorDimension])
newtype AddChartRequest = AddChartRequest'
{ _aChart :: Maybe EmbeddedChart
} deriving (Eq,Show,Data,Typeable,Generic)
addChartRequest
:: AddChartRequest
addChartRequest =
AddChartRequest'
{ _aChart = Nothing
}
aChart :: Lens' AddChartRequest (Maybe EmbeddedChart)
aChart = lens _aChart (\ s a -> s{_aChart = a})
instance FromJSON AddChartRequest where
parseJSON
= withObject "AddChartRequest"
(\ o -> AddChartRequest' <$> (o .:? "chart"))
instance ToJSON AddChartRequest where
toJSON AddChartRequest'{..}
= object (catMaybes [("chart" .=) <$> _aChart])
data NamedRange = NamedRange'
{ _nrNamedRangeId :: !(Maybe Text)
, _nrName :: !(Maybe Text)
, _nrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
namedRange
:: NamedRange
namedRange =
NamedRange'
{ _nrNamedRangeId = Nothing
, _nrName = Nothing
, _nrRange = Nothing
}
nrNamedRangeId :: Lens' NamedRange (Maybe Text)
nrNamedRangeId
= lens _nrNamedRangeId
(\ s a -> s{_nrNamedRangeId = a})
nrName :: Lens' NamedRange (Maybe Text)
nrName = lens _nrName (\ s a -> s{_nrName = a})
nrRange :: Lens' NamedRange (Maybe GridRange)
nrRange = lens _nrRange (\ s a -> s{_nrRange = a})
instance FromJSON NamedRange where
parseJSON
= withObject "NamedRange"
(\ o ->
NamedRange' <$>
(o .:? "namedRangeId") <*> (o .:? "name") <*>
(o .:? "range"))
instance ToJSON NamedRange where
toJSON NamedRange'{..}
= object
(catMaybes
[("namedRangeId" .=) <$> _nrNamedRangeId,
("name" .=) <$> _nrName, ("range" .=) <$> _nrRange])
data MergeCellsRequest = MergeCellsRequest'
{ _mcrMergeType :: !(Maybe MergeCellsRequestMergeType)
, _mcrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
mergeCellsRequest
:: MergeCellsRequest
mergeCellsRequest =
MergeCellsRequest'
{ _mcrMergeType = Nothing
, _mcrRange = Nothing
}
mcrMergeType :: Lens' MergeCellsRequest (Maybe MergeCellsRequestMergeType)
mcrMergeType
= lens _mcrMergeType (\ s a -> s{_mcrMergeType = a})
mcrRange :: Lens' MergeCellsRequest (Maybe GridRange)
mcrRange = lens _mcrRange (\ s a -> s{_mcrRange = a})
instance FromJSON MergeCellsRequest where
parseJSON
= withObject "MergeCellsRequest"
(\ o ->
MergeCellsRequest' <$>
(o .:? "mergeType") <*> (o .:? "range"))
instance ToJSON MergeCellsRequest where
toJSON MergeCellsRequest'{..}
= object
(catMaybes
[("mergeType" .=) <$> _mcrMergeType,
("range" .=) <$> _mcrRange])
newtype ManualRule = ManualRule'
{ _mrGroups :: Maybe [ManualRuleGroup]
} deriving (Eq,Show,Data,Typeable,Generic)
manualRule
:: ManualRule
manualRule =
ManualRule'
{ _mrGroups = Nothing
}
mrGroups :: Lens' ManualRule [ManualRuleGroup]
mrGroups
= lens _mrGroups (\ s a -> s{_mrGroups = a}) .
_Default
. _Coerce
instance FromJSON ManualRule where
parseJSON
= withObject "ManualRule"
(\ o -> ManualRule' <$> (o .:? "groups" .!= mempty))
instance ToJSON ManualRule where
toJSON ManualRule'{..}
= object (catMaybes [("groups" .=) <$> _mrGroups])
newtype TextPosition = TextPosition'
{ _tpHorizontalAlignment :: Maybe TextPositionHorizontalAlignment
} deriving (Eq,Show,Data,Typeable,Generic)
textPosition
:: TextPosition
textPosition =
TextPosition'
{ _tpHorizontalAlignment = Nothing
}
tpHorizontalAlignment :: Lens' TextPosition (Maybe TextPositionHorizontalAlignment)
tpHorizontalAlignment
= lens _tpHorizontalAlignment
(\ s a -> s{_tpHorizontalAlignment = a})
instance FromJSON TextPosition where
parseJSON
= withObject "TextPosition"
(\ o ->
TextPosition' <$> (o .:? "horizontalAlignment"))
instance ToJSON TextPosition where
toJSON TextPosition'{..}
= object
(catMaybes
[("horizontalAlignment" .=) <$>
_tpHorizontalAlignment])
data BOrder = BOrder'
{ _boStyle :: !(Maybe BOrderStyle)
, _boColor :: !(Maybe Color)
, _boWidth :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
bOrder
:: BOrder
bOrder =
BOrder'
{ _boStyle = Nothing
, _boColor = Nothing
, _boWidth = Nothing
}
boStyle :: Lens' BOrder (Maybe BOrderStyle)
boStyle = lens _boStyle (\ s a -> s{_boStyle = a})
boColor :: Lens' BOrder (Maybe Color)
boColor = lens _boColor (\ s a -> s{_boColor = a})
boWidth :: Lens' BOrder (Maybe Int32)
boWidth
= lens _boWidth (\ s a -> s{_boWidth = a}) .
mapping _Coerce
instance FromJSON BOrder where
parseJSON
= withObject "BOrder"
(\ o ->
BOrder' <$>
(o .:? "style") <*> (o .:? "color") <*>
(o .:? "width"))
instance ToJSON BOrder where
toJSON BOrder'{..}
= object
(catMaybes
[("style" .=) <$> _boStyle,
("color" .=) <$> _boColor,
("width" .=) <$> _boWidth])
newtype SearchDeveloperMetadataRequest = SearchDeveloperMetadataRequest'
{ _sdmrDataFilters :: Maybe [DataFilter]
} deriving (Eq,Show,Data,Typeable,Generic)
searchDeveloperMetadataRequest
:: SearchDeveloperMetadataRequest
searchDeveloperMetadataRequest =
SearchDeveloperMetadataRequest'
{ _sdmrDataFilters = Nothing
}
sdmrDataFilters :: Lens' SearchDeveloperMetadataRequest [DataFilter]
sdmrDataFilters
= lens _sdmrDataFilters
(\ s a -> s{_sdmrDataFilters = a})
. _Default
. _Coerce
instance FromJSON SearchDeveloperMetadataRequest
where
parseJSON
= withObject "SearchDeveloperMetadataRequest"
(\ o ->
SearchDeveloperMetadataRequest' <$>
(o .:? "dataFilters" .!= mempty))
instance ToJSON SearchDeveloperMetadataRequest where
toJSON SearchDeveloperMetadataRequest'{..}
= object
(catMaybes [("dataFilters" .=) <$> _sdmrDataFilters])
newtype CandlestickSeries = CandlestickSeries'
{ _csData :: Maybe ChartData
} deriving (Eq,Show,Data,Typeable,Generic)
candlestickSeries
:: CandlestickSeries
candlestickSeries =
CandlestickSeries'
{ _csData = Nothing
}
csData :: Lens' CandlestickSeries (Maybe ChartData)
csData = lens _csData (\ s a -> s{_csData = a})
instance FromJSON CandlestickSeries where
parseJSON
= withObject "CandlestickSeries"
(\ o -> CandlestickSeries' <$> (o .:? "data"))
instance ToJSON CandlestickSeries where
toJSON CandlestickSeries'{..}
= object (catMaybes [("data" .=) <$> _csData])
data ExtendedValue = ExtendedValue'
{ _evBoolValue :: !(Maybe Bool)
, _evNumberValue :: !(Maybe (Textual Double))
, _evErrorValue :: !(Maybe ErrorValue)
, _evStringValue :: !(Maybe Text)
, _evFormulaValue :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
extendedValue
:: ExtendedValue
extendedValue =
ExtendedValue'
{ _evBoolValue = Nothing
, _evNumberValue = Nothing
, _evErrorValue = Nothing
, _evStringValue = Nothing
, _evFormulaValue = Nothing
}
evBoolValue :: Lens' ExtendedValue (Maybe Bool)
evBoolValue
= lens _evBoolValue (\ s a -> s{_evBoolValue = a})
evNumberValue :: Lens' ExtendedValue (Maybe Double)
evNumberValue
= lens _evNumberValue
(\ s a -> s{_evNumberValue = a})
. mapping _Coerce
evErrorValue :: Lens' ExtendedValue (Maybe ErrorValue)
evErrorValue
= lens _evErrorValue (\ s a -> s{_evErrorValue = a})
evStringValue :: Lens' ExtendedValue (Maybe Text)
evStringValue
= lens _evStringValue
(\ s a -> s{_evStringValue = a})
evFormulaValue :: Lens' ExtendedValue (Maybe Text)
evFormulaValue
= lens _evFormulaValue
(\ s a -> s{_evFormulaValue = a})
instance FromJSON ExtendedValue where
parseJSON
= withObject "ExtendedValue"
(\ o ->
ExtendedValue' <$>
(o .:? "boolValue") <*> (o .:? "numberValue") <*>
(o .:? "errorValue")
<*> (o .:? "stringValue")
<*> (o .:? "formulaValue"))
instance ToJSON ExtendedValue where
toJSON ExtendedValue'{..}
= object
(catMaybes
[("boolValue" .=) <$> _evBoolValue,
("numberValue" .=) <$> _evNumberValue,
("errorValue" .=) <$> _evErrorValue,
("stringValue" .=) <$> _evStringValue,
("formulaValue" .=) <$> _evFormulaValue])
newtype AddNamedRangeRequest = AddNamedRangeRequest'
{ _aNamedRange :: Maybe NamedRange
} deriving (Eq,Show,Data,Typeable,Generic)
addNamedRangeRequest
:: AddNamedRangeRequest
addNamedRangeRequest =
AddNamedRangeRequest'
{ _aNamedRange = Nothing
}
aNamedRange :: Lens' AddNamedRangeRequest (Maybe NamedRange)
aNamedRange
= lens _aNamedRange (\ s a -> s{_aNamedRange = a})
instance FromJSON AddNamedRangeRequest where
parseJSON
= withObject "AddNamedRangeRequest"
(\ o ->
AddNamedRangeRequest' <$> (o .:? "namedRange"))
instance ToJSON AddNamedRangeRequest where
toJSON AddNamedRangeRequest'{..}
= object
(catMaybes [("namedRange" .=) <$> _aNamedRange])
newtype PivotFilterCriteria = PivotFilterCriteria'
{ _pfcVisibleValues :: Maybe [Text]
} deriving (Eq,Show,Data,Typeable,Generic)
pivotFilterCriteria
:: PivotFilterCriteria
pivotFilterCriteria =
PivotFilterCriteria'
{ _pfcVisibleValues = Nothing
}
pfcVisibleValues :: Lens' PivotFilterCriteria [Text]
pfcVisibleValues
= lens _pfcVisibleValues
(\ s a -> s{_pfcVisibleValues = a})
. _Default
. _Coerce
instance FromJSON PivotFilterCriteria where
parseJSON
= withObject "PivotFilterCriteria"
(\ o ->
PivotFilterCriteria' <$>
(o .:? "visibleValues" .!= mempty))
instance ToJSON PivotFilterCriteria where
toJSON PivotFilterCriteria'{..}
= object
(catMaybes
[("visibleValues" .=) <$> _pfcVisibleValues])
data DimensionRange = DimensionRange'
{ _drDimension :: !(Maybe DimensionRangeDimension)
, _drEndIndex :: !(Maybe (Textual Int32))
, _drSheetId :: !(Maybe (Textual Int32))
, _drStartIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
dimensionRange
:: DimensionRange
dimensionRange =
DimensionRange'
{ _drDimension = Nothing
, _drEndIndex = Nothing
, _drSheetId = Nothing
, _drStartIndex = Nothing
}
drDimension :: Lens' DimensionRange (Maybe DimensionRangeDimension)
drDimension
= lens _drDimension (\ s a -> s{_drDimension = a})
drEndIndex :: Lens' DimensionRange (Maybe Int32)
drEndIndex
= lens _drEndIndex (\ s a -> s{_drEndIndex = a}) .
mapping _Coerce
drSheetId :: Lens' DimensionRange (Maybe Int32)
drSheetId
= lens _drSheetId (\ s a -> s{_drSheetId = a}) .
mapping _Coerce
drStartIndex :: Lens' DimensionRange (Maybe Int32)
drStartIndex
= lens _drStartIndex (\ s a -> s{_drStartIndex = a})
. mapping _Coerce
instance FromJSON DimensionRange where
parseJSON
= withObject "DimensionRange"
(\ o ->
DimensionRange' <$>
(o .:? "dimension") <*> (o .:? "endIndex") <*>
(o .:? "sheetId")
<*> (o .:? "startIndex"))
instance ToJSON DimensionRange where
toJSON DimensionRange'{..}
= object
(catMaybes
[("dimension" .=) <$> _drDimension,
("endIndex" .=) <$> _drEndIndex,
("sheetId" .=) <$> _drSheetId,
("startIndex" .=) <$> _drStartIndex])
data UpdateSpreadsheetPropertiesRequest = UpdateSpreadsheetPropertiesRequest'
{ _uFields :: !(Maybe GFieldMask)
, _uProperties :: !(Maybe SpreadsheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
updateSpreadsheetPropertiesRequest
:: UpdateSpreadsheetPropertiesRequest
updateSpreadsheetPropertiesRequest =
UpdateSpreadsheetPropertiesRequest'
{ _uFields = Nothing
, _uProperties = Nothing
}
uFields :: Lens' UpdateSpreadsheetPropertiesRequest (Maybe GFieldMask)
uFields = lens _uFields (\ s a -> s{_uFields = a})
uProperties :: Lens' UpdateSpreadsheetPropertiesRequest (Maybe SpreadsheetProperties)
uProperties
= lens _uProperties (\ s a -> s{_uProperties = a})
instance FromJSON UpdateSpreadsheetPropertiesRequest
where
parseJSON
= withObject "UpdateSpreadsheetPropertiesRequest"
(\ o ->
UpdateSpreadsheetPropertiesRequest' <$>
(o .:? "fields") <*> (o .:? "properties"))
instance ToJSON UpdateSpreadsheetPropertiesRequest
where
toJSON UpdateSpreadsheetPropertiesRequest'{..}
= object
(catMaybes
[("fields" .=) <$> _uFields,
("properties" .=) <$> _uProperties])
data CandlestickDomain = CandlestickDomain'
{ _cdReversed :: !(Maybe Bool)
, _cdData :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
candlestickDomain
:: CandlestickDomain
candlestickDomain =
CandlestickDomain'
{ _cdReversed = Nothing
, _cdData = Nothing
}
cdReversed :: Lens' CandlestickDomain (Maybe Bool)
cdReversed
= lens _cdReversed (\ s a -> s{_cdReversed = a})
cdData :: Lens' CandlestickDomain (Maybe ChartData)
cdData = lens _cdData (\ s a -> s{_cdData = a})
instance FromJSON CandlestickDomain where
parseJSON
= withObject "CandlestickDomain"
(\ o ->
CandlestickDomain' <$>
(o .:? "reversed") <*> (o .:? "data"))
instance ToJSON CandlestickDomain where
toJSON CandlestickDomain'{..}
= object
(catMaybes
[("reversed" .=) <$> _cdReversed,
("data" .=) <$> _cdData])
newtype AddProtectedRangeResponse = AddProtectedRangeResponse'
{ _aProtectedRange :: Maybe ProtectedRange
} deriving (Eq,Show,Data,Typeable,Generic)
addProtectedRangeResponse
:: AddProtectedRangeResponse
addProtectedRangeResponse =
AddProtectedRangeResponse'
{ _aProtectedRange = Nothing
}
aProtectedRange :: Lens' AddProtectedRangeResponse (Maybe ProtectedRange)
aProtectedRange
= lens _aProtectedRange
(\ s a -> s{_aProtectedRange = a})
instance FromJSON AddProtectedRangeResponse where
parseJSON
= withObject "AddProtectedRangeResponse"
(\ o ->
AddProtectedRangeResponse' <$>
(o .:? "protectedRange"))
instance ToJSON AddProtectedRangeResponse where
toJSON AddProtectedRangeResponse'{..}
= object
(catMaybes
[("protectedRange" .=) <$> _aProtectedRange])
data AppendDimensionRequest = AppendDimensionRequest'
{ _adrLength :: !(Maybe (Textual Int32))
, _adrDimension :: !(Maybe AppendDimensionRequestDimension)
, _adrSheetId :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
appendDimensionRequest
:: AppendDimensionRequest
appendDimensionRequest =
AppendDimensionRequest'
{ _adrLength = Nothing
, _adrDimension = Nothing
, _adrSheetId = Nothing
}
adrLength :: Lens' AppendDimensionRequest (Maybe Int32)
adrLength
= lens _adrLength (\ s a -> s{_adrLength = a}) .
mapping _Coerce
adrDimension :: Lens' AppendDimensionRequest (Maybe AppendDimensionRequestDimension)
adrDimension
= lens _adrDimension (\ s a -> s{_adrDimension = a})
adrSheetId :: Lens' AppendDimensionRequest (Maybe Int32)
adrSheetId
= lens _adrSheetId (\ s a -> s{_adrSheetId = a}) .
mapping _Coerce
instance FromJSON AppendDimensionRequest where
parseJSON
= withObject "AppendDimensionRequest"
(\ o ->
AppendDimensionRequest' <$>
(o .:? "length") <*> (o .:? "dimension") <*>
(o .:? "sheetId"))
instance ToJSON AppendDimensionRequest where
toJSON AppendDimensionRequest'{..}
= object
(catMaybes
[("length" .=) <$> _adrLength,
("dimension" .=) <$> _adrDimension,
("sheetId" .=) <$> _adrSheetId])
data PivotValue = PivotValue'
{ _pvSourceColumnOffSet :: !(Maybe (Textual Int32))
, _pvFormula :: !(Maybe Text)
, _pvName :: !(Maybe Text)
, _pvCalculatedDisplayType :: !(Maybe PivotValueCalculatedDisplayType)
, _pvSummarizeFunction :: !(Maybe PivotValueSummarizeFunction)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotValue
:: PivotValue
pivotValue =
PivotValue'
{ _pvSourceColumnOffSet = Nothing
, _pvFormula = Nothing
, _pvName = Nothing
, _pvCalculatedDisplayType = Nothing
, _pvSummarizeFunction = Nothing
}
pvSourceColumnOffSet :: Lens' PivotValue (Maybe Int32)
pvSourceColumnOffSet
= lens _pvSourceColumnOffSet
(\ s a -> s{_pvSourceColumnOffSet = a})
. mapping _Coerce
pvFormula :: Lens' PivotValue (Maybe Text)
pvFormula
= lens _pvFormula (\ s a -> s{_pvFormula = a})
pvName :: Lens' PivotValue (Maybe Text)
pvName = lens _pvName (\ s a -> s{_pvName = a})
pvCalculatedDisplayType :: Lens' PivotValue (Maybe PivotValueCalculatedDisplayType)
pvCalculatedDisplayType
= lens _pvCalculatedDisplayType
(\ s a -> s{_pvCalculatedDisplayType = a})
pvSummarizeFunction :: Lens' PivotValue (Maybe PivotValueSummarizeFunction)
pvSummarizeFunction
= lens _pvSummarizeFunction
(\ s a -> s{_pvSummarizeFunction = a})
instance FromJSON PivotValue where
parseJSON
= withObject "PivotValue"
(\ o ->
PivotValue' <$>
(o .:? "sourceColumnOffset") <*> (o .:? "formula")
<*> (o .:? "name")
<*> (o .:? "calculatedDisplayType")
<*> (o .:? "summarizeFunction"))
instance ToJSON PivotValue where
toJSON PivotValue'{..}
= object
(catMaybes
[("sourceColumnOffset" .=) <$> _pvSourceColumnOffSet,
("formula" .=) <$> _pvFormula,
("name" .=) <$> _pvName,
("calculatedDisplayType" .=) <$>
_pvCalculatedDisplayType,
("summarizeFunction" .=) <$> _pvSummarizeFunction])
newtype UnmergeCellsRequest = UnmergeCellsRequest'
{ _ucrRange :: Maybe GridRange
} deriving (Eq,Show,Data,Typeable,Generic)
unmergeCellsRequest
:: UnmergeCellsRequest
unmergeCellsRequest =
UnmergeCellsRequest'
{ _ucrRange = Nothing
}
ucrRange :: Lens' UnmergeCellsRequest (Maybe GridRange)
ucrRange = lens _ucrRange (\ s a -> s{_ucrRange = a})
instance FromJSON UnmergeCellsRequest where
parseJSON
= withObject "UnmergeCellsRequest"
(\ o -> UnmergeCellsRequest' <$> (o .:? "range"))
instance ToJSON UnmergeCellsRequest where
toJSON UnmergeCellsRequest'{..}
= object (catMaybes [("range" .=) <$> _ucrRange])
newtype DeleteSheetRequest = DeleteSheetRequest'
{ _dsrSheetId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
deleteSheetRequest
:: DeleteSheetRequest
deleteSheetRequest =
DeleteSheetRequest'
{ _dsrSheetId = Nothing
}
dsrSheetId :: Lens' DeleteSheetRequest (Maybe Int32)
dsrSheetId
= lens _dsrSheetId (\ s a -> s{_dsrSheetId = a}) .
mapping _Coerce
instance FromJSON DeleteSheetRequest where
parseJSON
= withObject "DeleteSheetRequest"
(\ o -> DeleteSheetRequest' <$> (o .:? "sheetId"))
instance ToJSON DeleteSheetRequest where
toJSON DeleteSheetRequest'{..}
= object (catMaybes [("sheetId" .=) <$> _dsrSheetId])
newtype AddDimensionGroupRequest = AddDimensionGroupRequest'
{ _adgrRange :: Maybe DimensionRange
} deriving (Eq,Show,Data,Typeable,Generic)
addDimensionGroupRequest
:: AddDimensionGroupRequest
addDimensionGroupRequest =
AddDimensionGroupRequest'
{ _adgrRange = Nothing
}
adgrRange :: Lens' AddDimensionGroupRequest (Maybe DimensionRange)
adgrRange
= lens _adgrRange (\ s a -> s{_adgrRange = a})
instance FromJSON AddDimensionGroupRequest where
parseJSON
= withObject "AddDimensionGroupRequest"
(\ o ->
AddDimensionGroupRequest' <$> (o .:? "range"))
instance ToJSON AddDimensionGroupRequest where
toJSON AddDimensionGroupRequest'{..}
= object (catMaybes [("range" .=) <$> _adgrRange])
data WaterfallChartColumnStyle = WaterfallChartColumnStyle'
{ _wColor :: !(Maybe Color)
, _wLabel :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
waterfallChartColumnStyle
:: WaterfallChartColumnStyle
waterfallChartColumnStyle =
WaterfallChartColumnStyle'
{ _wColor = Nothing
, _wLabel = Nothing
}
wColor :: Lens' WaterfallChartColumnStyle (Maybe Color)
wColor = lens _wColor (\ s a -> s{_wColor = a})
wLabel :: Lens' WaterfallChartColumnStyle (Maybe Text)
wLabel = lens _wLabel (\ s a -> s{_wLabel = a})
instance FromJSON WaterfallChartColumnStyle where
parseJSON
= withObject "WaterfallChartColumnStyle"
(\ o ->
WaterfallChartColumnStyle' <$>
(o .:? "color") <*> (o .:? "label"))
instance ToJSON WaterfallChartColumnStyle where
toJSON WaterfallChartColumnStyle'{..}
= object
(catMaybes
[("color" .=) <$> _wColor, ("label" .=) <$> _wLabel])
data CandlestickData = CandlestickData'
{ _cdLowSeries :: !(Maybe CandlestickSeries)
, _cdHighSeries :: !(Maybe CandlestickSeries)
, _cdOpenSeries :: !(Maybe CandlestickSeries)
, _cdCloseSeries :: !(Maybe CandlestickSeries)
} deriving (Eq,Show,Data,Typeable,Generic)
candlestickData
:: CandlestickData
candlestickData =
CandlestickData'
{ _cdLowSeries = Nothing
, _cdHighSeries = Nothing
, _cdOpenSeries = Nothing
, _cdCloseSeries = Nothing
}
cdLowSeries :: Lens' CandlestickData (Maybe CandlestickSeries)
cdLowSeries
= lens _cdLowSeries (\ s a -> s{_cdLowSeries = a})
cdHighSeries :: Lens' CandlestickData (Maybe CandlestickSeries)
cdHighSeries
= lens _cdHighSeries (\ s a -> s{_cdHighSeries = a})
cdOpenSeries :: Lens' CandlestickData (Maybe CandlestickSeries)
cdOpenSeries
= lens _cdOpenSeries (\ s a -> s{_cdOpenSeries = a})
cdCloseSeries :: Lens' CandlestickData (Maybe CandlestickSeries)
cdCloseSeries
= lens _cdCloseSeries
(\ s a -> s{_cdCloseSeries = a})
instance FromJSON CandlestickData where
parseJSON
= withObject "CandlestickData"
(\ o ->
CandlestickData' <$>
(o .:? "lowSeries") <*> (o .:? "highSeries") <*>
(o .:? "openSeries")
<*> (o .:? "closeSeries"))
instance ToJSON CandlestickData where
toJSON CandlestickData'{..}
= object
(catMaybes
[("lowSeries" .=) <$> _cdLowSeries,
("highSeries" .=) <$> _cdHighSeries,
("openSeries" .=) <$> _cdOpenSeries,
("closeSeries" .=) <$> _cdCloseSeries])
data BandedRange = BandedRange'
{ _brBandedRangeId :: !(Maybe (Textual Int32))
, _brRowProperties :: !(Maybe BandingProperties)
, _brRange :: !(Maybe GridRange)
, _brColumnProperties :: !(Maybe BandingProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
bandedRange
:: BandedRange
bandedRange =
BandedRange'
{ _brBandedRangeId = Nothing
, _brRowProperties = Nothing
, _brRange = Nothing
, _brColumnProperties = Nothing
}
brBandedRangeId :: Lens' BandedRange (Maybe Int32)
brBandedRangeId
= lens _brBandedRangeId
(\ s a -> s{_brBandedRangeId = a})
. mapping _Coerce
brRowProperties :: Lens' BandedRange (Maybe BandingProperties)
brRowProperties
= lens _brRowProperties
(\ s a -> s{_brRowProperties = a})
brRange :: Lens' BandedRange (Maybe GridRange)
brRange = lens _brRange (\ s a -> s{_brRange = a})
brColumnProperties :: Lens' BandedRange (Maybe BandingProperties)
brColumnProperties
= lens _brColumnProperties
(\ s a -> s{_brColumnProperties = a})
instance FromJSON BandedRange where
parseJSON
= withObject "BandedRange"
(\ o ->
BandedRange' <$>
(o .:? "bandedRangeId") <*> (o .:? "rowProperties")
<*> (o .:? "range")
<*> (o .:? "columnProperties"))
instance ToJSON BandedRange where
toJSON BandedRange'{..}
= object
(catMaybes
[("bandedRangeId" .=) <$> _brBandedRangeId,
("rowProperties" .=) <$> _brRowProperties,
("range" .=) <$> _brRange,
("columnProperties" .=) <$> _brColumnProperties])
data UpdateBOrdersRequest = UpdateBOrdersRequest'
{ _uborBottom :: !(Maybe BOrder)
, _uborInnerHorizontal :: !(Maybe BOrder)
, _uborLeft :: !(Maybe BOrder)
, _uborInnerVertical :: !(Maybe BOrder)
, _uborRange :: !(Maybe GridRange)
, _uborRight :: !(Maybe BOrder)
, _uborTop :: !(Maybe BOrder)
} deriving (Eq,Show,Data,Typeable,Generic)
updateBOrdersRequest
:: UpdateBOrdersRequest
updateBOrdersRequest =
UpdateBOrdersRequest'
{ _uborBottom = Nothing
, _uborInnerHorizontal = Nothing
, _uborLeft = Nothing
, _uborInnerVertical = Nothing
, _uborRange = Nothing
, _uborRight = Nothing
, _uborTop = Nothing
}
uborBottom :: Lens' UpdateBOrdersRequest (Maybe BOrder)
uborBottom
= lens _uborBottom (\ s a -> s{_uborBottom = a})
uborInnerHorizontal :: Lens' UpdateBOrdersRequest (Maybe BOrder)
uborInnerHorizontal
= lens _uborInnerHorizontal
(\ s a -> s{_uborInnerHorizontal = a})
uborLeft :: Lens' UpdateBOrdersRequest (Maybe BOrder)
uborLeft = lens _uborLeft (\ s a -> s{_uborLeft = a})
uborInnerVertical :: Lens' UpdateBOrdersRequest (Maybe BOrder)
uborInnerVertical
= lens _uborInnerVertical
(\ s a -> s{_uborInnerVertical = a})
uborRange :: Lens' UpdateBOrdersRequest (Maybe GridRange)
uborRange
= lens _uborRange (\ s a -> s{_uborRange = a})
uborRight :: Lens' UpdateBOrdersRequest (Maybe BOrder)
uborRight
= lens _uborRight (\ s a -> s{_uborRight = a})
uborTop :: Lens' UpdateBOrdersRequest (Maybe BOrder)
uborTop = lens _uborTop (\ s a -> s{_uborTop = a})
instance FromJSON UpdateBOrdersRequest where
parseJSON
= withObject "UpdateBOrdersRequest"
(\ o ->
UpdateBOrdersRequest' <$>
(o .:? "bottom") <*> (o .:? "innerHorizontal") <*>
(o .:? "left")
<*> (o .:? "innerVertical")
<*> (o .:? "range")
<*> (o .:? "right")
<*> (o .:? "top"))
instance ToJSON UpdateBOrdersRequest where
toJSON UpdateBOrdersRequest'{..}
= object
(catMaybes
[("bottom" .=) <$> _uborBottom,
("innerHorizontal" .=) <$> _uborInnerHorizontal,
("left" .=) <$> _uborLeft,
("innerVertical" .=) <$> _uborInnerVertical,
("range" .=) <$> _uborRange,
("right" .=) <$> _uborRight,
("top" .=) <$> _uborTop])
data BatchUpdateValuesByDataFilterRequest = BatchUpdateValuesByDataFilterRequest'
{ _buvbdfrData :: !(Maybe [DataFilterValueRange])
, _buvbdfrValueInputOption :: !(Maybe BatchUpdateValuesByDataFilterRequestValueInputOption)
, _buvbdfrIncludeValuesInResponse :: !(Maybe Bool)
, _buvbdfrResponseDateTimeRenderOption :: !(Maybe BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption)
, _buvbdfrResponseValueRenderOption :: !(Maybe BatchUpdateValuesByDataFilterRequestResponseValueRenderOption)
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdateValuesByDataFilterRequest
:: BatchUpdateValuesByDataFilterRequest
batchUpdateValuesByDataFilterRequest =
BatchUpdateValuesByDataFilterRequest'
{ _buvbdfrData = Nothing
, _buvbdfrValueInputOption = Nothing
, _buvbdfrIncludeValuesInResponse = Nothing
, _buvbdfrResponseDateTimeRenderOption = Nothing
, _buvbdfrResponseValueRenderOption = Nothing
}
buvbdfrData :: Lens' BatchUpdateValuesByDataFilterRequest [DataFilterValueRange]
buvbdfrData
= lens _buvbdfrData (\ s a -> s{_buvbdfrData = a}) .
_Default
. _Coerce
buvbdfrValueInputOption :: Lens' BatchUpdateValuesByDataFilterRequest (Maybe BatchUpdateValuesByDataFilterRequestValueInputOption)
buvbdfrValueInputOption
= lens _buvbdfrValueInputOption
(\ s a -> s{_buvbdfrValueInputOption = a})
buvbdfrIncludeValuesInResponse :: Lens' BatchUpdateValuesByDataFilterRequest (Maybe Bool)
buvbdfrIncludeValuesInResponse
= lens _buvbdfrIncludeValuesInResponse
(\ s a -> s{_buvbdfrIncludeValuesInResponse = a})
buvbdfrResponseDateTimeRenderOption :: Lens' BatchUpdateValuesByDataFilterRequest (Maybe BatchUpdateValuesByDataFilterRequestResponseDateTimeRenderOption)
buvbdfrResponseDateTimeRenderOption
= lens _buvbdfrResponseDateTimeRenderOption
(\ s a ->
s{_buvbdfrResponseDateTimeRenderOption = a})
buvbdfrResponseValueRenderOption :: Lens' BatchUpdateValuesByDataFilterRequest (Maybe BatchUpdateValuesByDataFilterRequestResponseValueRenderOption)
buvbdfrResponseValueRenderOption
= lens _buvbdfrResponseValueRenderOption
(\ s a -> s{_buvbdfrResponseValueRenderOption = a})
instance FromJSON
BatchUpdateValuesByDataFilterRequest where
parseJSON
= withObject "BatchUpdateValuesByDataFilterRequest"
(\ o ->
BatchUpdateValuesByDataFilterRequest' <$>
(o .:? "data" .!= mempty) <*>
(o .:? "valueInputOption")
<*> (o .:? "includeValuesInResponse")
<*> (o .:? "responseDateTimeRenderOption")
<*> (o .:? "responseValueRenderOption"))
instance ToJSON BatchUpdateValuesByDataFilterRequest
where
toJSON BatchUpdateValuesByDataFilterRequest'{..}
= object
(catMaybes
[("data" .=) <$> _buvbdfrData,
("valueInputOption" .=) <$> _buvbdfrValueInputOption,
("includeValuesInResponse" .=) <$>
_buvbdfrIncludeValuesInResponse,
("responseDateTimeRenderOption" .=) <$>
_buvbdfrResponseDateTimeRenderOption,
("responseValueRenderOption" .=) <$>
_buvbdfrResponseValueRenderOption])
data EmbeddedChart = EmbeddedChart'
{ _ecSpec :: !(Maybe ChartSpec)
, _ecPosition :: !(Maybe EmbeddedObjectPosition)
, _ecChartId :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
embeddedChart
:: EmbeddedChart
embeddedChart =
EmbeddedChart'
{ _ecSpec = Nothing
, _ecPosition = Nothing
, _ecChartId = Nothing
}
ecSpec :: Lens' EmbeddedChart (Maybe ChartSpec)
ecSpec = lens _ecSpec (\ s a -> s{_ecSpec = a})
ecPosition :: Lens' EmbeddedChart (Maybe EmbeddedObjectPosition)
ecPosition
= lens _ecPosition (\ s a -> s{_ecPosition = a})
ecChartId :: Lens' EmbeddedChart (Maybe Int32)
ecChartId
= lens _ecChartId (\ s a -> s{_ecChartId = a}) .
mapping _Coerce
instance FromJSON EmbeddedChart where
parseJSON
= withObject "EmbeddedChart"
(\ o ->
EmbeddedChart' <$>
(o .:? "spec") <*> (o .:? "position") <*>
(o .:? "chartId"))
instance ToJSON EmbeddedChart where
toJSON EmbeddedChart'{..}
= object
(catMaybes
[("spec" .=) <$> _ecSpec,
("position" .=) <$> _ecPosition,
("chartId" .=) <$> _ecChartId])
newtype RowData = RowData'
{ _rdValues :: Maybe [CellData]
} deriving (Eq,Show,Data,Typeable,Generic)
rowData
:: RowData
rowData =
RowData'
{ _rdValues = Nothing
}
rdValues :: Lens' RowData [CellData]
rdValues
= lens _rdValues (\ s a -> s{_rdValues = a}) .
_Default
. _Coerce
instance FromJSON RowData where
parseJSON
= withObject "RowData"
(\ o -> RowData' <$> (o .:? "values" .!= mempty))
instance ToJSON RowData where
toJSON RowData'{..}
= object (catMaybes [("values" .=) <$> _rdValues])
data Editors = Editors'
{ _eGroups :: !(Maybe [Text])
, _eUsers :: !(Maybe [Text])
, _eDomainUsersCanEdit :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
editors
:: Editors
editors =
Editors'
{ _eGroups = Nothing
, _eUsers = Nothing
, _eDomainUsersCanEdit = Nothing
}
eGroups :: Lens' Editors [Text]
eGroups
= lens _eGroups (\ s a -> s{_eGroups = a}) . _Default
. _Coerce
eUsers :: Lens' Editors [Text]
eUsers
= lens _eUsers (\ s a -> s{_eUsers = a}) . _Default .
_Coerce
eDomainUsersCanEdit :: Lens' Editors (Maybe Bool)
eDomainUsersCanEdit
= lens _eDomainUsersCanEdit
(\ s a -> s{_eDomainUsersCanEdit = a})
instance FromJSON Editors where
parseJSON
= withObject "Editors"
(\ o ->
Editors' <$>
(o .:? "groups" .!= mempty) <*>
(o .:? "users" .!= mempty)
<*> (o .:? "domainUsersCanEdit"))
instance ToJSON Editors where
toJSON Editors'{..}
= object
(catMaybes
[("groups" .=) <$> _eGroups,
("users" .=) <$> _eUsers,
("domainUsersCanEdit" .=) <$> _eDomainUsersCanEdit])
data PivotTable = PivotTable'
{ _ptValues :: !(Maybe [PivotValue])
, _ptValueLayout :: !(Maybe PivotTableValueLayout)
, _ptRows :: !(Maybe [PivotGroup])
, _ptSource :: !(Maybe GridRange)
, _ptColumns :: !(Maybe [PivotGroup])
, _ptCriteria :: !(Maybe PivotTableCriteria)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotTable
:: PivotTable
pivotTable =
PivotTable'
{ _ptValues = Nothing
, _ptValueLayout = Nothing
, _ptRows = Nothing
, _ptSource = Nothing
, _ptColumns = Nothing
, _ptCriteria = Nothing
}
ptValues :: Lens' PivotTable [PivotValue]
ptValues
= lens _ptValues (\ s a -> s{_ptValues = a}) .
_Default
. _Coerce
ptValueLayout :: Lens' PivotTable (Maybe PivotTableValueLayout)
ptValueLayout
= lens _ptValueLayout
(\ s a -> s{_ptValueLayout = a})
ptRows :: Lens' PivotTable [PivotGroup]
ptRows
= lens _ptRows (\ s a -> s{_ptRows = a}) . _Default .
_Coerce
ptSource :: Lens' PivotTable (Maybe GridRange)
ptSource = lens _ptSource (\ s a -> s{_ptSource = a})
ptColumns :: Lens' PivotTable [PivotGroup]
ptColumns
= lens _ptColumns (\ s a -> s{_ptColumns = a}) .
_Default
. _Coerce
ptCriteria :: Lens' PivotTable (Maybe PivotTableCriteria)
ptCriteria
= lens _ptCriteria (\ s a -> s{_ptCriteria = a})
instance FromJSON PivotTable where
parseJSON
= withObject "PivotTable"
(\ o ->
PivotTable' <$>
(o .:? "values" .!= mempty) <*> (o .:? "valueLayout")
<*> (o .:? "rows" .!= mempty)
<*> (o .:? "source")
<*> (o .:? "columns" .!= mempty)
<*> (o .:? "criteria"))
instance ToJSON PivotTable where
toJSON PivotTable'{..}
= object
(catMaybes
[("values" .=) <$> _ptValues,
("valueLayout" .=) <$> _ptValueLayout,
("rows" .=) <$> _ptRows, ("source" .=) <$> _ptSource,
("columns" .=) <$> _ptColumns,
("criteria" .=) <$> _ptCriteria])
data EmbeddedObjectPosition = EmbeddedObjectPosition'
{ _eopOverlayPosition :: !(Maybe OverlayPosition)
, _eopSheetId :: !(Maybe (Textual Int32))
, _eopNewSheet :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
embeddedObjectPosition
:: EmbeddedObjectPosition
embeddedObjectPosition =
EmbeddedObjectPosition'
{ _eopOverlayPosition = Nothing
, _eopSheetId = Nothing
, _eopNewSheet = Nothing
}
eopOverlayPosition :: Lens' EmbeddedObjectPosition (Maybe OverlayPosition)
eopOverlayPosition
= lens _eopOverlayPosition
(\ s a -> s{_eopOverlayPosition = a})
eopSheetId :: Lens' EmbeddedObjectPosition (Maybe Int32)
eopSheetId
= lens _eopSheetId (\ s a -> s{_eopSheetId = a}) .
mapping _Coerce
eopNewSheet :: Lens' EmbeddedObjectPosition (Maybe Bool)
eopNewSheet
= lens _eopNewSheet (\ s a -> s{_eopNewSheet = a})
instance FromJSON EmbeddedObjectPosition where
parseJSON
= withObject "EmbeddedObjectPosition"
(\ o ->
EmbeddedObjectPosition' <$>
(o .:? "overlayPosition") <*> (o .:? "sheetId") <*>
(o .:? "newSheet"))
instance ToJSON EmbeddedObjectPosition where
toJSON EmbeddedObjectPosition'{..}
= object
(catMaybes
[("overlayPosition" .=) <$> _eopOverlayPosition,
("sheetId" .=) <$> _eopSheetId,
("newSheet" .=) <$> _eopNewSheet])
data BasicFilter = BasicFilter'
{ _bfSortSpecs :: !(Maybe [SortSpec])
, _bfRange :: !(Maybe GridRange)
, _bfCriteria :: !(Maybe BasicFilterCriteria)
} deriving (Eq,Show,Data,Typeable,Generic)
basicFilter
:: BasicFilter
basicFilter =
BasicFilter'
{ _bfSortSpecs = Nothing
, _bfRange = Nothing
, _bfCriteria = Nothing
}
bfSortSpecs :: Lens' BasicFilter [SortSpec]
bfSortSpecs
= lens _bfSortSpecs (\ s a -> s{_bfSortSpecs = a}) .
_Default
. _Coerce
bfRange :: Lens' BasicFilter (Maybe GridRange)
bfRange = lens _bfRange (\ s a -> s{_bfRange = a})
bfCriteria :: Lens' BasicFilter (Maybe BasicFilterCriteria)
bfCriteria
= lens _bfCriteria (\ s a -> s{_bfCriteria = a})
instance FromJSON BasicFilter where
parseJSON
= withObject "BasicFilter"
(\ o ->
BasicFilter' <$>
(o .:? "sortSpecs" .!= mempty) <*> (o .:? "range")
<*> (o .:? "criteria"))
instance ToJSON BasicFilter where
toJSON BasicFilter'{..}
= object
(catMaybes
[("sortSpecs" .=) <$> _bfSortSpecs,
("range" .=) <$> _bfRange,
("criteria" .=) <$> _bfCriteria])
data TextToColumnsRequest = TextToColumnsRequest'
{ _ttcrDelimiterType :: !(Maybe TextToColumnsRequestDelimiterType)
, _ttcrSource :: !(Maybe GridRange)
, _ttcrDelimiter :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
textToColumnsRequest
:: TextToColumnsRequest
textToColumnsRequest =
TextToColumnsRequest'
{ _ttcrDelimiterType = Nothing
, _ttcrSource = Nothing
, _ttcrDelimiter = Nothing
}
ttcrDelimiterType :: Lens' TextToColumnsRequest (Maybe TextToColumnsRequestDelimiterType)
ttcrDelimiterType
= lens _ttcrDelimiterType
(\ s a -> s{_ttcrDelimiterType = a})
ttcrSource :: Lens' TextToColumnsRequest (Maybe GridRange)
ttcrSource
= lens _ttcrSource (\ s a -> s{_ttcrSource = a})
ttcrDelimiter :: Lens' TextToColumnsRequest (Maybe Text)
ttcrDelimiter
= lens _ttcrDelimiter
(\ s a -> s{_ttcrDelimiter = a})
instance FromJSON TextToColumnsRequest where
parseJSON
= withObject "TextToColumnsRequest"
(\ o ->
TextToColumnsRequest' <$>
(o .:? "delimiterType") <*> (o .:? "source") <*>
(o .:? "delimiter"))
instance ToJSON TextToColumnsRequest where
toJSON TextToColumnsRequest'{..}
= object
(catMaybes
[("delimiterType" .=) <$> _ttcrDelimiterType,
("source" .=) <$> _ttcrSource,
("delimiter" .=) <$> _ttcrDelimiter])
data GetSpreadsheetByDataFilterRequest = GetSpreadsheetByDataFilterRequest'
{ _gsbdfrDataFilters :: !(Maybe [DataFilter])
, _gsbdfrIncludeGridData :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
getSpreadsheetByDataFilterRequest
:: GetSpreadsheetByDataFilterRequest
getSpreadsheetByDataFilterRequest =
GetSpreadsheetByDataFilterRequest'
{ _gsbdfrDataFilters = Nothing
, _gsbdfrIncludeGridData = Nothing
}
gsbdfrDataFilters :: Lens' GetSpreadsheetByDataFilterRequest [DataFilter]
gsbdfrDataFilters
= lens _gsbdfrDataFilters
(\ s a -> s{_gsbdfrDataFilters = a})
. _Default
. _Coerce
gsbdfrIncludeGridData :: Lens' GetSpreadsheetByDataFilterRequest (Maybe Bool)
gsbdfrIncludeGridData
= lens _gsbdfrIncludeGridData
(\ s a -> s{_gsbdfrIncludeGridData = a})
instance FromJSON GetSpreadsheetByDataFilterRequest
where
parseJSON
= withObject "GetSpreadsheetByDataFilterRequest"
(\ o ->
GetSpreadsheetByDataFilterRequest' <$>
(o .:? "dataFilters" .!= mempty) <*>
(o .:? "includeGridData"))
instance ToJSON GetSpreadsheetByDataFilterRequest
where
toJSON GetSpreadsheetByDataFilterRequest'{..}
= object
(catMaybes
[("dataFilters" .=) <$> _gsbdfrDataFilters,
("includeGridData" .=) <$> _gsbdfrIncludeGridData])
data BatchUpdateSpreadsheetRequest = BatchUpdateSpreadsheetRequest'
{ _busrResponseIncludeGridData :: !(Maybe Bool)
, _busrResponseRanges :: !(Maybe [Text])
, _busrRequests :: !(Maybe [Request'])
, _busrIncludeSpreadsheetInResponse :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdateSpreadsheetRequest
:: BatchUpdateSpreadsheetRequest
batchUpdateSpreadsheetRequest =
BatchUpdateSpreadsheetRequest'
{ _busrResponseIncludeGridData = Nothing
, _busrResponseRanges = Nothing
, _busrRequests = Nothing
, _busrIncludeSpreadsheetInResponse = Nothing
}
busrResponseIncludeGridData :: Lens' BatchUpdateSpreadsheetRequest (Maybe Bool)
busrResponseIncludeGridData
= lens _busrResponseIncludeGridData
(\ s a -> s{_busrResponseIncludeGridData = a})
busrResponseRanges :: Lens' BatchUpdateSpreadsheetRequest [Text]
busrResponseRanges
= lens _busrResponseRanges
(\ s a -> s{_busrResponseRanges = a})
. _Default
. _Coerce
busrRequests :: Lens' BatchUpdateSpreadsheetRequest [Request']
busrRequests
= lens _busrRequests (\ s a -> s{_busrRequests = a})
. _Default
. _Coerce
busrIncludeSpreadsheetInResponse :: Lens' BatchUpdateSpreadsheetRequest (Maybe Bool)
busrIncludeSpreadsheetInResponse
= lens _busrIncludeSpreadsheetInResponse
(\ s a -> s{_busrIncludeSpreadsheetInResponse = a})
instance FromJSON BatchUpdateSpreadsheetRequest where
parseJSON
= withObject "BatchUpdateSpreadsheetRequest"
(\ o ->
BatchUpdateSpreadsheetRequest' <$>
(o .:? "responseIncludeGridData") <*>
(o .:? "responseRanges" .!= mempty)
<*> (o .:? "requests" .!= mempty)
<*> (o .:? "includeSpreadsheetInResponse"))
instance ToJSON BatchUpdateSpreadsheetRequest where
toJSON BatchUpdateSpreadsheetRequest'{..}
= object
(catMaybes
[("responseIncludeGridData" .=) <$>
_busrResponseIncludeGridData,
("responseRanges" .=) <$> _busrResponseRanges,
("requests" .=) <$> _busrRequests,
("includeSpreadsheetInResponse" .=) <$>
_busrIncludeSpreadsheetInResponse])
data UpdateValuesResponse = UpdateValuesResponse'
{ _uvrUpdatedCells :: !(Maybe (Textual Int32))
, _uvrSpreadsheetId :: !(Maybe Text)
, _uvrUpdatedRows :: !(Maybe (Textual Int32))
, _uvrUpdatedRange :: !(Maybe Text)
, _uvrUpdatedData :: !(Maybe ValueRange)
, _uvrUpdatedColumns :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
updateValuesResponse
:: UpdateValuesResponse
updateValuesResponse =
UpdateValuesResponse'
{ _uvrUpdatedCells = Nothing
, _uvrSpreadsheetId = Nothing
, _uvrUpdatedRows = Nothing
, _uvrUpdatedRange = Nothing
, _uvrUpdatedData = Nothing
, _uvrUpdatedColumns = Nothing
}
uvrUpdatedCells :: Lens' UpdateValuesResponse (Maybe Int32)
uvrUpdatedCells
= lens _uvrUpdatedCells
(\ s a -> s{_uvrUpdatedCells = a})
. mapping _Coerce
uvrSpreadsheetId :: Lens' UpdateValuesResponse (Maybe Text)
uvrSpreadsheetId
= lens _uvrSpreadsheetId
(\ s a -> s{_uvrSpreadsheetId = a})
uvrUpdatedRows :: Lens' UpdateValuesResponse (Maybe Int32)
uvrUpdatedRows
= lens _uvrUpdatedRows
(\ s a -> s{_uvrUpdatedRows = a})
. mapping _Coerce
uvrUpdatedRange :: Lens' UpdateValuesResponse (Maybe Text)
uvrUpdatedRange
= lens _uvrUpdatedRange
(\ s a -> s{_uvrUpdatedRange = a})
uvrUpdatedData :: Lens' UpdateValuesResponse (Maybe ValueRange)
uvrUpdatedData
= lens _uvrUpdatedData
(\ s a -> s{_uvrUpdatedData = a})
uvrUpdatedColumns :: Lens' UpdateValuesResponse (Maybe Int32)
uvrUpdatedColumns
= lens _uvrUpdatedColumns
(\ s a -> s{_uvrUpdatedColumns = a})
. mapping _Coerce
instance FromJSON UpdateValuesResponse where
parseJSON
= withObject "UpdateValuesResponse"
(\ o ->
UpdateValuesResponse' <$>
(o .:? "updatedCells") <*> (o .:? "spreadsheetId")
<*> (o .:? "updatedRows")
<*> (o .:? "updatedRange")
<*> (o .:? "updatedData")
<*> (o .:? "updatedColumns"))
instance ToJSON UpdateValuesResponse where
toJSON UpdateValuesResponse'{..}
= object
(catMaybes
[("updatedCells" .=) <$> _uvrUpdatedCells,
("spreadsheetId" .=) <$> _uvrSpreadsheetId,
("updatedRows" .=) <$> _uvrUpdatedRows,
("updatedRange" .=) <$> _uvrUpdatedRange,
("updatedData" .=) <$> _uvrUpdatedData,
("updatedColumns" .=) <$> _uvrUpdatedColumns])
newtype DeleteDimensionGroupResponse = DeleteDimensionGroupResponse'
{ _ddgrDimensionGroups :: Maybe [DimensionGroup]
} deriving (Eq,Show,Data,Typeable,Generic)
deleteDimensionGroupResponse
:: DeleteDimensionGroupResponse
deleteDimensionGroupResponse =
DeleteDimensionGroupResponse'
{ _ddgrDimensionGroups = Nothing
}
ddgrDimensionGroups :: Lens' DeleteDimensionGroupResponse [DimensionGroup]
ddgrDimensionGroups
= lens _ddgrDimensionGroups
(\ s a -> s{_ddgrDimensionGroups = a})
. _Default
. _Coerce
instance FromJSON DeleteDimensionGroupResponse where
parseJSON
= withObject "DeleteDimensionGroupResponse"
(\ o ->
DeleteDimensionGroupResponse' <$>
(o .:? "dimensionGroups" .!= mempty))
instance ToJSON DeleteDimensionGroupResponse where
toJSON DeleteDimensionGroupResponse'{..}
= object
(catMaybes
[("dimensionGroups" .=) <$> _ddgrDimensionGroups])
newtype CopySheetToAnotherSpreadsheetRequest = CopySheetToAnotherSpreadsheetRequest'
{ _cstasrDestinationSpreadsheetId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
copySheetToAnotherSpreadsheetRequest
:: CopySheetToAnotherSpreadsheetRequest
copySheetToAnotherSpreadsheetRequest =
CopySheetToAnotherSpreadsheetRequest'
{ _cstasrDestinationSpreadsheetId = Nothing
}
cstasrDestinationSpreadsheetId :: Lens' CopySheetToAnotherSpreadsheetRequest (Maybe Text)
cstasrDestinationSpreadsheetId
= lens _cstasrDestinationSpreadsheetId
(\ s a -> s{_cstasrDestinationSpreadsheetId = a})
instance FromJSON
CopySheetToAnotherSpreadsheetRequest where
parseJSON
= withObject "CopySheetToAnotherSpreadsheetRequest"
(\ o ->
CopySheetToAnotherSpreadsheetRequest' <$>
(o .:? "destinationSpreadsheetId"))
instance ToJSON CopySheetToAnotherSpreadsheetRequest
where
toJSON CopySheetToAnotherSpreadsheetRequest'{..}
= object
(catMaybes
[("destinationSpreadsheetId" .=) <$>
_cstasrDestinationSpreadsheetId])
newtype AddFilterViewRequest = AddFilterViewRequest'
{ _aFilter :: Maybe FilterView
} deriving (Eq,Show,Data,Typeable,Generic)
addFilterViewRequest
:: AddFilterViewRequest
addFilterViewRequest =
AddFilterViewRequest'
{ _aFilter = Nothing
}
aFilter :: Lens' AddFilterViewRequest (Maybe FilterView)
aFilter = lens _aFilter (\ s a -> s{_aFilter = a})
instance FromJSON AddFilterViewRequest where
parseJSON
= withObject "AddFilterViewRequest"
(\ o -> AddFilterViewRequest' <$> (o .:? "filter"))
instance ToJSON AddFilterViewRequest where
toJSON AddFilterViewRequest'{..}
= object (catMaybes [("filter" .=) <$> _aFilter])
data PivotGroupValueMetadata = PivotGroupValueMetadata'
{ _pgvmValue :: !(Maybe ExtendedValue)
, _pgvmCollapsed :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotGroupValueMetadata
:: PivotGroupValueMetadata
pivotGroupValueMetadata =
PivotGroupValueMetadata'
{ _pgvmValue = Nothing
, _pgvmCollapsed = Nothing
}
pgvmValue :: Lens' PivotGroupValueMetadata (Maybe ExtendedValue)
pgvmValue
= lens _pgvmValue (\ s a -> s{_pgvmValue = a})
pgvmCollapsed :: Lens' PivotGroupValueMetadata (Maybe Bool)
pgvmCollapsed
= lens _pgvmCollapsed
(\ s a -> s{_pgvmCollapsed = a})
instance FromJSON PivotGroupValueMetadata where
parseJSON
= withObject "PivotGroupValueMetadata"
(\ o ->
PivotGroupValueMetadata' <$>
(o .:? "value") <*> (o .:? "collapsed"))
instance ToJSON PivotGroupValueMetadata where
toJSON PivotGroupValueMetadata'{..}
= object
(catMaybes
[("value" .=) <$> _pgvmValue,
("collapsed" .=) <$> _pgvmCollapsed])
data BatchClearValuesByDataFilterResponse = BatchClearValuesByDataFilterResponse'
{ _bcvbdfrClearedRanges :: !(Maybe [Text])
, _bcvbdfrSpreadsheetId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
batchClearValuesByDataFilterResponse
:: BatchClearValuesByDataFilterResponse
batchClearValuesByDataFilterResponse =
BatchClearValuesByDataFilterResponse'
{ _bcvbdfrClearedRanges = Nothing
, _bcvbdfrSpreadsheetId = Nothing
}
bcvbdfrClearedRanges :: Lens' BatchClearValuesByDataFilterResponse [Text]
bcvbdfrClearedRanges
= lens _bcvbdfrClearedRanges
(\ s a -> s{_bcvbdfrClearedRanges = a})
. _Default
. _Coerce
bcvbdfrSpreadsheetId :: Lens' BatchClearValuesByDataFilterResponse (Maybe Text)
bcvbdfrSpreadsheetId
= lens _bcvbdfrSpreadsheetId
(\ s a -> s{_bcvbdfrSpreadsheetId = a})
instance FromJSON
BatchClearValuesByDataFilterResponse where
parseJSON
= withObject "BatchClearValuesByDataFilterResponse"
(\ o ->
BatchClearValuesByDataFilterResponse' <$>
(o .:? "clearedRanges" .!= mempty) <*>
(o .:? "spreadsheetId"))
instance ToJSON BatchClearValuesByDataFilterResponse
where
toJSON BatchClearValuesByDataFilterResponse'{..}
= object
(catMaybes
[("clearedRanges" .=) <$> _bcvbdfrClearedRanges,
("spreadsheetId" .=) <$> _bcvbdfrSpreadsheetId])
data WaterfallChartSeries = WaterfallChartSeries'
{ _wcsData :: !(Maybe ChartData)
, _wcsCustomSubtotals :: !(Maybe [WaterfallChartCustomSubtotal])
, _wcsNegativeColumnsStyle :: !(Maybe WaterfallChartColumnStyle)
, _wcsHideTrailingSubtotal :: !(Maybe Bool)
, _wcsSubtotalColumnsStyle :: !(Maybe WaterfallChartColumnStyle)
, _wcsPositiveColumnsStyle :: !(Maybe WaterfallChartColumnStyle)
} deriving (Eq,Show,Data,Typeable,Generic)
waterfallChartSeries
:: WaterfallChartSeries
waterfallChartSeries =
WaterfallChartSeries'
{ _wcsData = Nothing
, _wcsCustomSubtotals = Nothing
, _wcsNegativeColumnsStyle = Nothing
, _wcsHideTrailingSubtotal = Nothing
, _wcsSubtotalColumnsStyle = Nothing
, _wcsPositiveColumnsStyle = Nothing
}
wcsData :: Lens' WaterfallChartSeries (Maybe ChartData)
wcsData = lens _wcsData (\ s a -> s{_wcsData = a})
wcsCustomSubtotals :: Lens' WaterfallChartSeries [WaterfallChartCustomSubtotal]
wcsCustomSubtotals
= lens _wcsCustomSubtotals
(\ s a -> s{_wcsCustomSubtotals = a})
. _Default
. _Coerce
wcsNegativeColumnsStyle :: Lens' WaterfallChartSeries (Maybe WaterfallChartColumnStyle)
wcsNegativeColumnsStyle
= lens _wcsNegativeColumnsStyle
(\ s a -> s{_wcsNegativeColumnsStyle = a})
wcsHideTrailingSubtotal :: Lens' WaterfallChartSeries (Maybe Bool)
wcsHideTrailingSubtotal
= lens _wcsHideTrailingSubtotal
(\ s a -> s{_wcsHideTrailingSubtotal = a})
wcsSubtotalColumnsStyle :: Lens' WaterfallChartSeries (Maybe WaterfallChartColumnStyle)
wcsSubtotalColumnsStyle
= lens _wcsSubtotalColumnsStyle
(\ s a -> s{_wcsSubtotalColumnsStyle = a})
wcsPositiveColumnsStyle :: Lens' WaterfallChartSeries (Maybe WaterfallChartColumnStyle)
wcsPositiveColumnsStyle
= lens _wcsPositiveColumnsStyle
(\ s a -> s{_wcsPositiveColumnsStyle = a})
instance FromJSON WaterfallChartSeries where
parseJSON
= withObject "WaterfallChartSeries"
(\ o ->
WaterfallChartSeries' <$>
(o .:? "data") <*>
(o .:? "customSubtotals" .!= mempty)
<*> (o .:? "negativeColumnsStyle")
<*> (o .:? "hideTrailingSubtotal")
<*> (o .:? "subtotalColumnsStyle")
<*> (o .:? "positiveColumnsStyle"))
instance ToJSON WaterfallChartSeries where
toJSON WaterfallChartSeries'{..}
= object
(catMaybes
[("data" .=) <$> _wcsData,
("customSubtotals" .=) <$> _wcsCustomSubtotals,
("negativeColumnsStyle" .=) <$>
_wcsNegativeColumnsStyle,
("hideTrailingSubtotal" .=) <$>
_wcsHideTrailingSubtotal,
("subtotalColumnsStyle" .=) <$>
_wcsSubtotalColumnsStyle,
("positiveColumnsStyle" .=) <$>
_wcsPositiveColumnsStyle])
data UpdateCellsRequest = UpdateCellsRequest'
{ _updStart :: !(Maybe GridCoordinate)
, _updRows :: !(Maybe [RowData])
, _updRange :: !(Maybe GridRange)
, _updFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateCellsRequest
:: UpdateCellsRequest
updateCellsRequest =
UpdateCellsRequest'
{ _updStart = Nothing
, _updRows = Nothing
, _updRange = Nothing
, _updFields = Nothing
}
updStart :: Lens' UpdateCellsRequest (Maybe GridCoordinate)
updStart = lens _updStart (\ s a -> s{_updStart = a})
updRows :: Lens' UpdateCellsRequest [RowData]
updRows
= lens _updRows (\ s a -> s{_updRows = a}) . _Default
. _Coerce
updRange :: Lens' UpdateCellsRequest (Maybe GridRange)
updRange = lens _updRange (\ s a -> s{_updRange = a})
updFields :: Lens' UpdateCellsRequest (Maybe GFieldMask)
updFields
= lens _updFields (\ s a -> s{_updFields = a})
instance FromJSON UpdateCellsRequest where
parseJSON
= withObject "UpdateCellsRequest"
(\ o ->
UpdateCellsRequest' <$>
(o .:? "start") <*> (o .:? "rows" .!= mempty) <*>
(o .:? "range")
<*> (o .:? "fields"))
instance ToJSON UpdateCellsRequest where
toJSON UpdateCellsRequest'{..}
= object
(catMaybes
[("start" .=) <$> _updStart,
("rows" .=) <$> _updRows, ("range" .=) <$> _updRange,
("fields" .=) <$> _updFields])
data CellFormat = CellFormat'
{ _cfBOrders :: !(Maybe BOrders)
, _cfVerticalAlignment :: !(Maybe CellFormatVerticalAlignment)
, _cfBackgRoundColor :: !(Maybe Color)
, _cfTextRotation :: !(Maybe TextRotation)
, _cfHyperlinkDisplayType :: !(Maybe CellFormatHyperlinkDisplayType)
, _cfWrapStrategy :: !(Maybe CellFormatWrapStrategy)
, _cfNumberFormat :: !(Maybe NumberFormat)
, _cfTextDirection :: !(Maybe CellFormatTextDirection)
, _cfTextFormat :: !(Maybe TextFormat)
, _cfHorizontalAlignment :: !(Maybe CellFormatHorizontalAlignment)
, _cfPadding :: !(Maybe Padding)
} deriving (Eq,Show,Data,Typeable,Generic)
cellFormat
:: CellFormat
cellFormat =
CellFormat'
{ _cfBOrders = Nothing
, _cfVerticalAlignment = Nothing
, _cfBackgRoundColor = Nothing
, _cfTextRotation = Nothing
, _cfHyperlinkDisplayType = Nothing
, _cfWrapStrategy = Nothing
, _cfNumberFormat = Nothing
, _cfTextDirection = Nothing
, _cfTextFormat = Nothing
, _cfHorizontalAlignment = Nothing
, _cfPadding = Nothing
}
cfBOrders :: Lens' CellFormat (Maybe BOrders)
cfBOrders
= lens _cfBOrders (\ s a -> s{_cfBOrders = a})
cfVerticalAlignment :: Lens' CellFormat (Maybe CellFormatVerticalAlignment)
cfVerticalAlignment
= lens _cfVerticalAlignment
(\ s a -> s{_cfVerticalAlignment = a})
cfBackgRoundColor :: Lens' CellFormat (Maybe Color)
cfBackgRoundColor
= lens _cfBackgRoundColor
(\ s a -> s{_cfBackgRoundColor = a})
cfTextRotation :: Lens' CellFormat (Maybe TextRotation)
cfTextRotation
= lens _cfTextRotation
(\ s a -> s{_cfTextRotation = a})
cfHyperlinkDisplayType :: Lens' CellFormat (Maybe CellFormatHyperlinkDisplayType)
cfHyperlinkDisplayType
= lens _cfHyperlinkDisplayType
(\ s a -> s{_cfHyperlinkDisplayType = a})
cfWrapStrategy :: Lens' CellFormat (Maybe CellFormatWrapStrategy)
cfWrapStrategy
= lens _cfWrapStrategy
(\ s a -> s{_cfWrapStrategy = a})
cfNumberFormat :: Lens' CellFormat (Maybe NumberFormat)
cfNumberFormat
= lens _cfNumberFormat
(\ s a -> s{_cfNumberFormat = a})
cfTextDirection :: Lens' CellFormat (Maybe CellFormatTextDirection)
cfTextDirection
= lens _cfTextDirection
(\ s a -> s{_cfTextDirection = a})
cfTextFormat :: Lens' CellFormat (Maybe TextFormat)
cfTextFormat
= lens _cfTextFormat (\ s a -> s{_cfTextFormat = a})
cfHorizontalAlignment :: Lens' CellFormat (Maybe CellFormatHorizontalAlignment)
cfHorizontalAlignment
= lens _cfHorizontalAlignment
(\ s a -> s{_cfHorizontalAlignment = a})
cfPadding :: Lens' CellFormat (Maybe Padding)
cfPadding
= lens _cfPadding (\ s a -> s{_cfPadding = a})
instance FromJSON CellFormat where
parseJSON
= withObject "CellFormat"
(\ o ->
CellFormat' <$>
(o .:? "borders") <*> (o .:? "verticalAlignment") <*>
(o .:? "backgroundColor")
<*> (o .:? "textRotation")
<*> (o .:? "hyperlinkDisplayType")
<*> (o .:? "wrapStrategy")
<*> (o .:? "numberFormat")
<*> (o .:? "textDirection")
<*> (o .:? "textFormat")
<*> (o .:? "horizontalAlignment")
<*> (o .:? "padding"))
instance ToJSON CellFormat where
toJSON CellFormat'{..}
= object
(catMaybes
[("borders" .=) <$> _cfBOrders,
("verticalAlignment" .=) <$> _cfVerticalAlignment,
("backgroundColor" .=) <$> _cfBackgRoundColor,
("textRotation" .=) <$> _cfTextRotation,
("hyperlinkDisplayType" .=) <$>
_cfHyperlinkDisplayType,
("wrapStrategy" .=) <$> _cfWrapStrategy,
("numberFormat" .=) <$> _cfNumberFormat,
("textDirection" .=) <$> _cfTextDirection,
("textFormat" .=) <$> _cfTextFormat,
("horizontalAlignment" .=) <$>
_cfHorizontalAlignment,
("padding" .=) <$> _cfPadding])
newtype DeleteProtectedRangeRequest = DeleteProtectedRangeRequest'
{ _dprrProtectedRangeId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
deleteProtectedRangeRequest
:: DeleteProtectedRangeRequest
deleteProtectedRangeRequest =
DeleteProtectedRangeRequest'
{ _dprrProtectedRangeId = Nothing
}
dprrProtectedRangeId :: Lens' DeleteProtectedRangeRequest (Maybe Int32)
dprrProtectedRangeId
= lens _dprrProtectedRangeId
(\ s a -> s{_dprrProtectedRangeId = a})
. mapping _Coerce
instance FromJSON DeleteProtectedRangeRequest where
parseJSON
= withObject "DeleteProtectedRangeRequest"
(\ o ->
DeleteProtectedRangeRequest' <$>
(o .:? "protectedRangeId"))
instance ToJSON DeleteProtectedRangeRequest where
toJSON DeleteProtectedRangeRequest'{..}
= object
(catMaybes
[("protectedRangeId" .=) <$> _dprrProtectedRangeId])
data UpdateProtectedRangeRequest = UpdateProtectedRangeRequest'
{ _uprrProtectedRange :: !(Maybe ProtectedRange)
, _uprrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateProtectedRangeRequest
:: UpdateProtectedRangeRequest
updateProtectedRangeRequest =
UpdateProtectedRangeRequest'
{ _uprrProtectedRange = Nothing
, _uprrFields = Nothing
}
uprrProtectedRange :: Lens' UpdateProtectedRangeRequest (Maybe ProtectedRange)
uprrProtectedRange
= lens _uprrProtectedRange
(\ s a -> s{_uprrProtectedRange = a})
uprrFields :: Lens' UpdateProtectedRangeRequest (Maybe GFieldMask)
uprrFields
= lens _uprrFields (\ s a -> s{_uprrFields = a})
instance FromJSON UpdateProtectedRangeRequest where
parseJSON
= withObject "UpdateProtectedRangeRequest"
(\ o ->
UpdateProtectedRangeRequest' <$>
(o .:? "protectedRange") <*> (o .:? "fields"))
instance ToJSON UpdateProtectedRangeRequest where
toJSON UpdateProtectedRangeRequest'{..}
= object
(catMaybes
[("protectedRange" .=) <$> _uprrProtectedRange,
("fields" .=) <$> _uprrFields])
newtype AddSheetResponse = AddSheetResponse'
{ _aProperties :: Maybe SheetProperties
} deriving (Eq,Show,Data,Typeable,Generic)
addSheetResponse
:: AddSheetResponse
addSheetResponse =
AddSheetResponse'
{ _aProperties = Nothing
}
aProperties :: Lens' AddSheetResponse (Maybe SheetProperties)
aProperties
= lens _aProperties (\ s a -> s{_aProperties = a})
instance FromJSON AddSheetResponse where
parseJSON
= withObject "AddSheetResponse"
(\ o -> AddSheetResponse' <$> (o .:? "properties"))
instance ToJSON AddSheetResponse where
toJSON AddSheetResponse'{..}
= object
(catMaybes [("properties" .=) <$> _aProperties])
data ProtectedRange = ProtectedRange'
{ _prProtectedRangeId :: !(Maybe (Textual Int32))
, _prWarningOnly :: !(Maybe Bool)
, _prNamedRangeId :: !(Maybe Text)
, _prRange :: !(Maybe GridRange)
, _prEditors :: !(Maybe Editors)
, _prUnprotectedRanges :: !(Maybe [GridRange])
, _prRequestingUserCanEdit :: !(Maybe Bool)
, _prDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
protectedRange
:: ProtectedRange
protectedRange =
ProtectedRange'
{ _prProtectedRangeId = Nothing
, _prWarningOnly = Nothing
, _prNamedRangeId = Nothing
, _prRange = Nothing
, _prEditors = Nothing
, _prUnprotectedRanges = Nothing
, _prRequestingUserCanEdit = Nothing
, _prDescription = Nothing
}
prProtectedRangeId :: Lens' ProtectedRange (Maybe Int32)
prProtectedRangeId
= lens _prProtectedRangeId
(\ s a -> s{_prProtectedRangeId = a})
. mapping _Coerce
prWarningOnly :: Lens' ProtectedRange (Maybe Bool)
prWarningOnly
= lens _prWarningOnly
(\ s a -> s{_prWarningOnly = a})
prNamedRangeId :: Lens' ProtectedRange (Maybe Text)
prNamedRangeId
= lens _prNamedRangeId
(\ s a -> s{_prNamedRangeId = a})
prRange :: Lens' ProtectedRange (Maybe GridRange)
prRange = lens _prRange (\ s a -> s{_prRange = a})
prEditors :: Lens' ProtectedRange (Maybe Editors)
prEditors
= lens _prEditors (\ s a -> s{_prEditors = a})
prUnprotectedRanges :: Lens' ProtectedRange [GridRange]
prUnprotectedRanges
= lens _prUnprotectedRanges
(\ s a -> s{_prUnprotectedRanges = a})
. _Default
. _Coerce
prRequestingUserCanEdit :: Lens' ProtectedRange (Maybe Bool)
prRequestingUserCanEdit
= lens _prRequestingUserCanEdit
(\ s a -> s{_prRequestingUserCanEdit = a})
prDescription :: Lens' ProtectedRange (Maybe Text)
prDescription
= lens _prDescription
(\ s a -> s{_prDescription = a})
instance FromJSON ProtectedRange where
parseJSON
= withObject "ProtectedRange"
(\ o ->
ProtectedRange' <$>
(o .:? "protectedRangeId") <*> (o .:? "warningOnly")
<*> (o .:? "namedRangeId")
<*> (o .:? "range")
<*> (o .:? "editors")
<*> (o .:? "unprotectedRanges" .!= mempty)
<*> (o .:? "requestingUserCanEdit")
<*> (o .:? "description"))
instance ToJSON ProtectedRange where
toJSON ProtectedRange'{..}
= object
(catMaybes
[("protectedRangeId" .=) <$> _prProtectedRangeId,
("warningOnly" .=) <$> _prWarningOnly,
("namedRangeId" .=) <$> _prNamedRangeId,
("range" .=) <$> _prRange,
("editors" .=) <$> _prEditors,
("unprotectedRanges" .=) <$> _prUnprotectedRanges,
("requestingUserCanEdit" .=) <$>
_prRequestingUserCanEdit,
("description" .=) <$> _prDescription])
data BasicChartAxis = BasicChartAxis'
{ _bcaTitleTextPosition :: !(Maybe TextPosition)
, _bcaFormat :: !(Maybe TextFormat)
, _bcaTitle :: !(Maybe Text)
, _bcaPosition :: !(Maybe BasicChartAxisPosition)
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartAxis
:: BasicChartAxis
basicChartAxis =
BasicChartAxis'
{ _bcaTitleTextPosition = Nothing
, _bcaFormat = Nothing
, _bcaTitle = Nothing
, _bcaPosition = Nothing
}
bcaTitleTextPosition :: Lens' BasicChartAxis (Maybe TextPosition)
bcaTitleTextPosition
= lens _bcaTitleTextPosition
(\ s a -> s{_bcaTitleTextPosition = a})
bcaFormat :: Lens' BasicChartAxis (Maybe TextFormat)
bcaFormat
= lens _bcaFormat (\ s a -> s{_bcaFormat = a})
bcaTitle :: Lens' BasicChartAxis (Maybe Text)
bcaTitle = lens _bcaTitle (\ s a -> s{_bcaTitle = a})
bcaPosition :: Lens' BasicChartAxis (Maybe BasicChartAxisPosition)
bcaPosition
= lens _bcaPosition (\ s a -> s{_bcaPosition = a})
instance FromJSON BasicChartAxis where
parseJSON
= withObject "BasicChartAxis"
(\ o ->
BasicChartAxis' <$>
(o .:? "titleTextPosition") <*> (o .:? "format") <*>
(o .:? "title")
<*> (o .:? "position"))
instance ToJSON BasicChartAxis where
toJSON BasicChartAxis'{..}
= object
(catMaybes
[("titleTextPosition" .=) <$> _bcaTitleTextPosition,
("format" .=) <$> _bcaFormat,
("title" .=) <$> _bcaTitle,
("position" .=) <$> _bcaPosition])
data GridData = GridData'
{ _gdRowMetadata :: !(Maybe [DimensionProperties])
, _gdStartRow :: !(Maybe (Textual Int32))
, _gdRowData :: !(Maybe [RowData])
, _gdColumnMetadata :: !(Maybe [DimensionProperties])
, _gdStartColumn :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
gridData
:: GridData
gridData =
GridData'
{ _gdRowMetadata = Nothing
, _gdStartRow = Nothing
, _gdRowData = Nothing
, _gdColumnMetadata = Nothing
, _gdStartColumn = Nothing
}
gdRowMetadata :: Lens' GridData [DimensionProperties]
gdRowMetadata
= lens _gdRowMetadata
(\ s a -> s{_gdRowMetadata = a})
. _Default
. _Coerce
gdStartRow :: Lens' GridData (Maybe Int32)
gdStartRow
= lens _gdStartRow (\ s a -> s{_gdStartRow = a}) .
mapping _Coerce
gdRowData :: Lens' GridData [RowData]
gdRowData
= lens _gdRowData (\ s a -> s{_gdRowData = a}) .
_Default
. _Coerce
gdColumnMetadata :: Lens' GridData [DimensionProperties]
gdColumnMetadata
= lens _gdColumnMetadata
(\ s a -> s{_gdColumnMetadata = a})
. _Default
. _Coerce
gdStartColumn :: Lens' GridData (Maybe Int32)
gdStartColumn
= lens _gdStartColumn
(\ s a -> s{_gdStartColumn = a})
. mapping _Coerce
instance FromJSON GridData where
parseJSON
= withObject "GridData"
(\ o ->
GridData' <$>
(o .:? "rowMetadata" .!= mempty) <*>
(o .:? "startRow")
<*> (o .:? "rowData" .!= mempty)
<*> (o .:? "columnMetadata" .!= mempty)
<*> (o .:? "startColumn"))
instance ToJSON GridData where
toJSON GridData'{..}
= object
(catMaybes
[("rowMetadata" .=) <$> _gdRowMetadata,
("startRow" .=) <$> _gdStartRow,
("rowData" .=) <$> _gdRowData,
("columnMetadata" .=) <$> _gdColumnMetadata,
("startColumn" .=) <$> _gdStartColumn])
data NumberFormat = NumberFormat'
{ _nfPattern :: !(Maybe Text)
, _nfType :: !(Maybe NumberFormatType)
} deriving (Eq,Show,Data,Typeable,Generic)
numberFormat
:: NumberFormat
numberFormat =
NumberFormat'
{ _nfPattern = Nothing
, _nfType = Nothing
}
nfPattern :: Lens' NumberFormat (Maybe Text)
nfPattern
= lens _nfPattern (\ s a -> s{_nfPattern = a})
nfType :: Lens' NumberFormat (Maybe NumberFormatType)
nfType = lens _nfType (\ s a -> s{_nfType = a})
instance FromJSON NumberFormat where
parseJSON
= withObject "NumberFormat"
(\ o ->
NumberFormat' <$>
(o .:? "pattern") <*> (o .:? "type"))
instance ToJSON NumberFormat where
toJSON NumberFormat'{..}
= object
(catMaybes
[("pattern" .=) <$> _nfPattern,
("type" .=) <$> _nfType])
data BatchUpdateSpreadsheetResponse = BatchUpdateSpreadsheetResponse'
{ _busrSpreadsheetId :: !(Maybe Text)
, _busrReplies :: !(Maybe [Response])
, _busrUpdatedSpreadsheet :: !(Maybe Spreadsheet)
} deriving (Eq,Show,Data,Typeable,Generic)
batchUpdateSpreadsheetResponse
:: BatchUpdateSpreadsheetResponse
batchUpdateSpreadsheetResponse =
BatchUpdateSpreadsheetResponse'
{ _busrSpreadsheetId = Nothing
, _busrReplies = Nothing
, _busrUpdatedSpreadsheet = Nothing
}
busrSpreadsheetId :: Lens' BatchUpdateSpreadsheetResponse (Maybe Text)
busrSpreadsheetId
= lens _busrSpreadsheetId
(\ s a -> s{_busrSpreadsheetId = a})
busrReplies :: Lens' BatchUpdateSpreadsheetResponse [Response]
busrReplies
= lens _busrReplies (\ s a -> s{_busrReplies = a}) .
_Default
. _Coerce
busrUpdatedSpreadsheet :: Lens' BatchUpdateSpreadsheetResponse (Maybe Spreadsheet)
busrUpdatedSpreadsheet
= lens _busrUpdatedSpreadsheet
(\ s a -> s{_busrUpdatedSpreadsheet = a})
instance FromJSON BatchUpdateSpreadsheetResponse
where
parseJSON
= withObject "BatchUpdateSpreadsheetResponse"
(\ o ->
BatchUpdateSpreadsheetResponse' <$>
(o .:? "spreadsheetId") <*>
(o .:? "replies" .!= mempty)
<*> (o .:? "updatedSpreadsheet"))
instance ToJSON BatchUpdateSpreadsheetResponse where
toJSON BatchUpdateSpreadsheetResponse'{..}
= object
(catMaybes
[("spreadsheetId" .=) <$> _busrSpreadsheetId,
("replies" .=) <$> _busrReplies,
("updatedSpreadsheet" .=) <$>
_busrUpdatedSpreadsheet])
data DataFilter = DataFilter'
{ _dfGridRange :: !(Maybe GridRange)
, _dfA1Range :: !(Maybe Text)
, _dfDeveloperMetadataLookup :: !(Maybe DeveloperMetadataLookup)
} deriving (Eq,Show,Data,Typeable,Generic)
dataFilter
:: DataFilter
dataFilter =
DataFilter'
{ _dfGridRange = Nothing
, _dfA1Range = Nothing
, _dfDeveloperMetadataLookup = Nothing
}
dfGridRange :: Lens' DataFilter (Maybe GridRange)
dfGridRange
= lens _dfGridRange (\ s a -> s{_dfGridRange = a})
dfA1Range :: Lens' DataFilter (Maybe Text)
dfA1Range
= lens _dfA1Range (\ s a -> s{_dfA1Range = a})
dfDeveloperMetadataLookup :: Lens' DataFilter (Maybe DeveloperMetadataLookup)
dfDeveloperMetadataLookup
= lens _dfDeveloperMetadataLookup
(\ s a -> s{_dfDeveloperMetadataLookup = a})
instance FromJSON DataFilter where
parseJSON
= withObject "DataFilter"
(\ o ->
DataFilter' <$>
(o .:? "gridRange") <*> (o .:? "a1Range") <*>
(o .:? "developerMetadataLookup"))
instance ToJSON DataFilter where
toJSON DataFilter'{..}
= object
(catMaybes
[("gridRange" .=) <$> _dfGridRange,
("a1Range" .=) <$> _dfA1Range,
("developerMetadataLookup" .=) <$>
_dfDeveloperMetadataLookup])
data SetDataValidationRequest = SetDataValidationRequest'
{ _sdvrRule :: !(Maybe DataValidationRule)
, _sdvrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
setDataValidationRequest
:: SetDataValidationRequest
setDataValidationRequest =
SetDataValidationRequest'
{ _sdvrRule = Nothing
, _sdvrRange = Nothing
}
sdvrRule :: Lens' SetDataValidationRequest (Maybe DataValidationRule)
sdvrRule = lens _sdvrRule (\ s a -> s{_sdvrRule = a})
sdvrRange :: Lens' SetDataValidationRequest (Maybe GridRange)
sdvrRange
= lens _sdvrRange (\ s a -> s{_sdvrRange = a})
instance FromJSON SetDataValidationRequest where
parseJSON
= withObject "SetDataValidationRequest"
(\ o ->
SetDataValidationRequest' <$>
(o .:? "rule") <*> (o .:? "range"))
instance ToJSON SetDataValidationRequest where
toJSON SetDataValidationRequest'{..}
= object
(catMaybes
[("rule" .=) <$> _sdvrRule,
("range" .=) <$> _sdvrRange])
data BandingProperties = BandingProperties'
{ _bpSecondBandColor :: !(Maybe Color)
, _bpHeaderColor :: !(Maybe Color)
, _bpFooterColor :: !(Maybe Color)
, _bpFirstBandColor :: !(Maybe Color)
} deriving (Eq,Show,Data,Typeable,Generic)
bandingProperties
:: BandingProperties
bandingProperties =
BandingProperties'
{ _bpSecondBandColor = Nothing
, _bpHeaderColor = Nothing
, _bpFooterColor = Nothing
, _bpFirstBandColor = Nothing
}
bpSecondBandColor :: Lens' BandingProperties (Maybe Color)
bpSecondBandColor
= lens _bpSecondBandColor
(\ s a -> s{_bpSecondBandColor = a})
bpHeaderColor :: Lens' BandingProperties (Maybe Color)
bpHeaderColor
= lens _bpHeaderColor
(\ s a -> s{_bpHeaderColor = a})
bpFooterColor :: Lens' BandingProperties (Maybe Color)
bpFooterColor
= lens _bpFooterColor
(\ s a -> s{_bpFooterColor = a})
bpFirstBandColor :: Lens' BandingProperties (Maybe Color)
bpFirstBandColor
= lens _bpFirstBandColor
(\ s a -> s{_bpFirstBandColor = a})
instance FromJSON BandingProperties where
parseJSON
= withObject "BandingProperties"
(\ o ->
BandingProperties' <$>
(o .:? "secondBandColor") <*> (o .:? "headerColor")
<*> (o .:? "footerColor")
<*> (o .:? "firstBandColor"))
instance ToJSON BandingProperties where
toJSON BandingProperties'{..}
= object
(catMaybes
[("secondBandColor" .=) <$> _bpSecondBandColor,
("headerColor" .=) <$> _bpHeaderColor,
("footerColor" .=) <$> _bpFooterColor,
("firstBandColor" .=) <$> _bpFirstBandColor])
newtype DuplicateFilterViewRequest = DuplicateFilterViewRequest'
{ _dFilterId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
duplicateFilterViewRequest
:: DuplicateFilterViewRequest
duplicateFilterViewRequest =
DuplicateFilterViewRequest'
{ _dFilterId = Nothing
}
dFilterId :: Lens' DuplicateFilterViewRequest (Maybe Int32)
dFilterId
= lens _dFilterId (\ s a -> s{_dFilterId = a}) .
mapping _Coerce
instance FromJSON DuplicateFilterViewRequest where
parseJSON
= withObject "DuplicateFilterViewRequest"
(\ o ->
DuplicateFilterViewRequest' <$> (o .:? "filterId"))
instance ToJSON DuplicateFilterViewRequest where
toJSON DuplicateFilterViewRequest'{..}
= object (catMaybes [("filterId" .=) <$> _dFilterId])
data PivotGroup = PivotGroup'
{ _pgRepeatHeadings :: !(Maybe Bool)
, _pgValueMetadata :: !(Maybe [PivotGroupValueMetadata])
, _pgSourceColumnOffSet :: !(Maybe (Textual Int32))
, _pgSortOrder :: !(Maybe PivotGroupSortOrder)
, _pgShowTotals :: !(Maybe Bool)
, _pgValueBucket :: !(Maybe PivotGroupSortValueBucket)
, _pgLabel :: !(Maybe Text)
, _pgGroupRule :: !(Maybe PivotGroupRule)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotGroup
:: PivotGroup
pivotGroup =
PivotGroup'
{ _pgRepeatHeadings = Nothing
, _pgValueMetadata = Nothing
, _pgSourceColumnOffSet = Nothing
, _pgSortOrder = Nothing
, _pgShowTotals = Nothing
, _pgValueBucket = Nothing
, _pgLabel = Nothing
, _pgGroupRule = Nothing
}
pgRepeatHeadings :: Lens' PivotGroup (Maybe Bool)
pgRepeatHeadings
= lens _pgRepeatHeadings
(\ s a -> s{_pgRepeatHeadings = a})
pgValueMetadata :: Lens' PivotGroup [PivotGroupValueMetadata]
pgValueMetadata
= lens _pgValueMetadata
(\ s a -> s{_pgValueMetadata = a})
. _Default
. _Coerce
pgSourceColumnOffSet :: Lens' PivotGroup (Maybe Int32)
pgSourceColumnOffSet
= lens _pgSourceColumnOffSet
(\ s a -> s{_pgSourceColumnOffSet = a})
. mapping _Coerce
pgSortOrder :: Lens' PivotGroup (Maybe PivotGroupSortOrder)
pgSortOrder
= lens _pgSortOrder (\ s a -> s{_pgSortOrder = a})
pgShowTotals :: Lens' PivotGroup (Maybe Bool)
pgShowTotals
= lens _pgShowTotals (\ s a -> s{_pgShowTotals = a})
pgValueBucket :: Lens' PivotGroup (Maybe PivotGroupSortValueBucket)
pgValueBucket
= lens _pgValueBucket
(\ s a -> s{_pgValueBucket = a})
pgLabel :: Lens' PivotGroup (Maybe Text)
pgLabel = lens _pgLabel (\ s a -> s{_pgLabel = a})
pgGroupRule :: Lens' PivotGroup (Maybe PivotGroupRule)
pgGroupRule
= lens _pgGroupRule (\ s a -> s{_pgGroupRule = a})
instance FromJSON PivotGroup where
parseJSON
= withObject "PivotGroup"
(\ o ->
PivotGroup' <$>
(o .:? "repeatHeadings") <*>
(o .:? "valueMetadata" .!= mempty)
<*> (o .:? "sourceColumnOffset")
<*> (o .:? "sortOrder")
<*> (o .:? "showTotals")
<*> (o .:? "valueBucket")
<*> (o .:? "label")
<*> (o .:? "groupRule"))
instance ToJSON PivotGroup where
toJSON PivotGroup'{..}
= object
(catMaybes
[("repeatHeadings" .=) <$> _pgRepeatHeadings,
("valueMetadata" .=) <$> _pgValueMetadata,
("sourceColumnOffset" .=) <$> _pgSourceColumnOffSet,
("sortOrder" .=) <$> _pgSortOrder,
("showTotals" .=) <$> _pgShowTotals,
("valueBucket" .=) <$> _pgValueBucket,
("label" .=) <$> _pgLabel,
("groupRule" .=) <$> _pgGroupRule])
newtype AddBandingResponse = AddBandingResponse'
{ _aBandedRange :: Maybe BandedRange
} deriving (Eq,Show,Data,Typeable,Generic)
addBandingResponse
:: AddBandingResponse
addBandingResponse =
AddBandingResponse'
{ _aBandedRange = Nothing
}
aBandedRange :: Lens' AddBandingResponse (Maybe BandedRange)
aBandedRange
= lens _aBandedRange (\ s a -> s{_aBandedRange = a})
instance FromJSON AddBandingResponse where
parseJSON
= withObject "AddBandingResponse"
(\ o ->
AddBandingResponse' <$> (o .:? "bandedRange"))
instance ToJSON AddBandingResponse where
toJSON AddBandingResponse'{..}
= object
(catMaybes [("bandedRange" .=) <$> _aBandedRange])
data OrgChartSpec = OrgChartSpec'
{ _ocsNodeColor :: !(Maybe Color)
, _ocsNodeSize :: !(Maybe OrgChartSpecNodeSize)
, _ocsTooltips :: !(Maybe ChartData)
, _ocsSelectedNodeColor :: !(Maybe Color)
, _ocsLabels :: !(Maybe ChartData)
, _ocsParentLabels :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
orgChartSpec
:: OrgChartSpec
orgChartSpec =
OrgChartSpec'
{ _ocsNodeColor = Nothing
, _ocsNodeSize = Nothing
, _ocsTooltips = Nothing
, _ocsSelectedNodeColor = Nothing
, _ocsLabels = Nothing
, _ocsParentLabels = Nothing
}
ocsNodeColor :: Lens' OrgChartSpec (Maybe Color)
ocsNodeColor
= lens _ocsNodeColor (\ s a -> s{_ocsNodeColor = a})
ocsNodeSize :: Lens' OrgChartSpec (Maybe OrgChartSpecNodeSize)
ocsNodeSize
= lens _ocsNodeSize (\ s a -> s{_ocsNodeSize = a})
ocsTooltips :: Lens' OrgChartSpec (Maybe ChartData)
ocsTooltips
= lens _ocsTooltips (\ s a -> s{_ocsTooltips = a})
ocsSelectedNodeColor :: Lens' OrgChartSpec (Maybe Color)
ocsSelectedNodeColor
= lens _ocsSelectedNodeColor
(\ s a -> s{_ocsSelectedNodeColor = a})
ocsLabels :: Lens' OrgChartSpec (Maybe ChartData)
ocsLabels
= lens _ocsLabels (\ s a -> s{_ocsLabels = a})
ocsParentLabels :: Lens' OrgChartSpec (Maybe ChartData)
ocsParentLabels
= lens _ocsParentLabels
(\ s a -> s{_ocsParentLabels = a})
instance FromJSON OrgChartSpec where
parseJSON
= withObject "OrgChartSpec"
(\ o ->
OrgChartSpec' <$>
(o .:? "nodeColor") <*> (o .:? "nodeSize") <*>
(o .:? "tooltips")
<*> (o .:? "selectedNodeColor")
<*> (o .:? "labels")
<*> (o .:? "parentLabels"))
instance ToJSON OrgChartSpec where
toJSON OrgChartSpec'{..}
= object
(catMaybes
[("nodeColor" .=) <$> _ocsNodeColor,
("nodeSize" .=) <$> _ocsNodeSize,
("tooltips" .=) <$> _ocsTooltips,
("selectedNodeColor" .=) <$> _ocsSelectedNodeColor,
("labels" .=) <$> _ocsLabels,
("parentLabels" .=) <$> _ocsParentLabels])
newtype RandomizeRangeRequest = RandomizeRangeRequest'
{ _rrrRange :: Maybe GridRange
} deriving (Eq,Show,Data,Typeable,Generic)
randomizeRangeRequest
:: RandomizeRangeRequest
randomizeRangeRequest =
RandomizeRangeRequest'
{ _rrrRange = Nothing
}
rrrRange :: Lens' RandomizeRangeRequest (Maybe GridRange)
rrrRange = lens _rrrRange (\ s a -> s{_rrrRange = a})
instance FromJSON RandomizeRangeRequest where
parseJSON
= withObject "RandomizeRangeRequest"
(\ o -> RandomizeRangeRequest' <$> (o .:? "range"))
instance ToJSON RandomizeRangeRequest where
toJSON RandomizeRangeRequest'{..}
= object (catMaybes [("range" .=) <$> _rrrRange])
data HistogramSeries = HistogramSeries'
{ _hsBarColor :: !(Maybe Color)
, _hsData :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
histogramSeries
:: HistogramSeries
histogramSeries =
HistogramSeries'
{ _hsBarColor = Nothing
, _hsData = Nothing
}
hsBarColor :: Lens' HistogramSeries (Maybe Color)
hsBarColor
= lens _hsBarColor (\ s a -> s{_hsBarColor = a})
hsData :: Lens' HistogramSeries (Maybe ChartData)
hsData = lens _hsData (\ s a -> s{_hsData = a})
instance FromJSON HistogramSeries where
parseJSON
= withObject "HistogramSeries"
(\ o ->
HistogramSeries' <$>
(o .:? "barColor") <*> (o .:? "data"))
instance ToJSON HistogramSeries where
toJSON HistogramSeries'{..}
= object
(catMaybes
[("barColor" .=) <$> _hsBarColor,
("data" .=) <$> _hsData])
data TreemapChartSpec = TreemapChartSpec'
{ _tcsHintedLevels :: !(Maybe (Textual Int32))
, _tcsMaxValue :: !(Maybe (Textual Double))
, _tcsHeaderColor :: !(Maybe Color)
, _tcsSizeData :: !(Maybe ChartData)
, _tcsColorData :: !(Maybe ChartData)
, _tcsHideTooltips :: !(Maybe Bool)
, _tcsLevels :: !(Maybe (Textual Int32))
, _tcsLabels :: !(Maybe ChartData)
, _tcsColorScale :: !(Maybe TreemapChartColorScale)
, _tcsTextFormat :: !(Maybe TextFormat)
, _tcsMinValue :: !(Maybe (Textual Double))
, _tcsParentLabels :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
treemapChartSpec
:: TreemapChartSpec
treemapChartSpec =
TreemapChartSpec'
{ _tcsHintedLevels = Nothing
, _tcsMaxValue = Nothing
, _tcsHeaderColor = Nothing
, _tcsSizeData = Nothing
, _tcsColorData = Nothing
, _tcsHideTooltips = Nothing
, _tcsLevels = Nothing
, _tcsLabels = Nothing
, _tcsColorScale = Nothing
, _tcsTextFormat = Nothing
, _tcsMinValue = Nothing
, _tcsParentLabels = Nothing
}
tcsHintedLevels :: Lens' TreemapChartSpec (Maybe Int32)
tcsHintedLevels
= lens _tcsHintedLevels
(\ s a -> s{_tcsHintedLevels = a})
. mapping _Coerce
tcsMaxValue :: Lens' TreemapChartSpec (Maybe Double)
tcsMaxValue
= lens _tcsMaxValue (\ s a -> s{_tcsMaxValue = a}) .
mapping _Coerce
tcsHeaderColor :: Lens' TreemapChartSpec (Maybe Color)
tcsHeaderColor
= lens _tcsHeaderColor
(\ s a -> s{_tcsHeaderColor = a})
tcsSizeData :: Lens' TreemapChartSpec (Maybe ChartData)
tcsSizeData
= lens _tcsSizeData (\ s a -> s{_tcsSizeData = a})
tcsColorData :: Lens' TreemapChartSpec (Maybe ChartData)
tcsColorData
= lens _tcsColorData (\ s a -> s{_tcsColorData = a})
tcsHideTooltips :: Lens' TreemapChartSpec (Maybe Bool)
tcsHideTooltips
= lens _tcsHideTooltips
(\ s a -> s{_tcsHideTooltips = a})
tcsLevels :: Lens' TreemapChartSpec (Maybe Int32)
tcsLevels
= lens _tcsLevels (\ s a -> s{_tcsLevels = a}) .
mapping _Coerce
tcsLabels :: Lens' TreemapChartSpec (Maybe ChartData)
tcsLabels
= lens _tcsLabels (\ s a -> s{_tcsLabels = a})
tcsColorScale :: Lens' TreemapChartSpec (Maybe TreemapChartColorScale)
tcsColorScale
= lens _tcsColorScale
(\ s a -> s{_tcsColorScale = a})
tcsTextFormat :: Lens' TreemapChartSpec (Maybe TextFormat)
tcsTextFormat
= lens _tcsTextFormat
(\ s a -> s{_tcsTextFormat = a})
tcsMinValue :: Lens' TreemapChartSpec (Maybe Double)
tcsMinValue
= lens _tcsMinValue (\ s a -> s{_tcsMinValue = a}) .
mapping _Coerce
tcsParentLabels :: Lens' TreemapChartSpec (Maybe ChartData)
tcsParentLabels
= lens _tcsParentLabels
(\ s a -> s{_tcsParentLabels = a})
instance FromJSON TreemapChartSpec where
parseJSON
= withObject "TreemapChartSpec"
(\ o ->
TreemapChartSpec' <$>
(o .:? "hintedLevels") <*> (o .:? "maxValue") <*>
(o .:? "headerColor")
<*> (o .:? "sizeData")
<*> (o .:? "colorData")
<*> (o .:? "hideTooltips")
<*> (o .:? "levels")
<*> (o .:? "labels")
<*> (o .:? "colorScale")
<*> (o .:? "textFormat")
<*> (o .:? "minValue")
<*> (o .:? "parentLabels"))
instance ToJSON TreemapChartSpec where
toJSON TreemapChartSpec'{..}
= object
(catMaybes
[("hintedLevels" .=) <$> _tcsHintedLevels,
("maxValue" .=) <$> _tcsMaxValue,
("headerColor" .=) <$> _tcsHeaderColor,
("sizeData" .=) <$> _tcsSizeData,
("colorData" .=) <$> _tcsColorData,
("hideTooltips" .=) <$> _tcsHideTooltips,
("levels" .=) <$> _tcsLevels,
("labels" .=) <$> _tcsLabels,
("colorScale" .=) <$> _tcsColorScale,
("textFormat" .=) <$> _tcsTextFormat,
("minValue" .=) <$> _tcsMinValue,
("parentLabels" .=) <$> _tcsParentLabels])
data ConditionalFormatRule = ConditionalFormatRule'
{ _cfrBooleanRule :: !(Maybe BooleanRule)
, _cfrGradientRule :: !(Maybe GradientRule)
, _cfrRanges :: !(Maybe [GridRange])
} deriving (Eq,Show,Data,Typeable,Generic)
conditionalFormatRule
:: ConditionalFormatRule
conditionalFormatRule =
ConditionalFormatRule'
{ _cfrBooleanRule = Nothing
, _cfrGradientRule = Nothing
, _cfrRanges = Nothing
}
cfrBooleanRule :: Lens' ConditionalFormatRule (Maybe BooleanRule)
cfrBooleanRule
= lens _cfrBooleanRule
(\ s a -> s{_cfrBooleanRule = a})
cfrGradientRule :: Lens' ConditionalFormatRule (Maybe GradientRule)
cfrGradientRule
= lens _cfrGradientRule
(\ s a -> s{_cfrGradientRule = a})
cfrRanges :: Lens' ConditionalFormatRule [GridRange]
cfrRanges
= lens _cfrRanges (\ s a -> s{_cfrRanges = a}) .
_Default
. _Coerce
instance FromJSON ConditionalFormatRule where
parseJSON
= withObject "ConditionalFormatRule"
(\ o ->
ConditionalFormatRule' <$>
(o .:? "booleanRule") <*> (o .:? "gradientRule") <*>
(o .:? "ranges" .!= mempty))
instance ToJSON ConditionalFormatRule where
toJSON ConditionalFormatRule'{..}
= object
(catMaybes
[("booleanRule" .=) <$> _cfrBooleanRule,
("gradientRule" .=) <$> _cfrGradientRule,
("ranges" .=) <$> _cfrRanges])
data BasicChartSpec = BasicChartSpec'
{ _basHeaderCount :: !(Maybe (Textual Int32))
, _basLineSmoothing :: !(Maybe Bool)
, _basInterpolateNulls :: !(Maybe Bool)
, _basStackedType :: !(Maybe BasicChartSpecStackedType)
, _basLegendPosition :: !(Maybe BasicChartSpecLegendPosition)
, _basSeries :: !(Maybe [BasicChartSeries])
, _basCompareMode :: !(Maybe BasicChartSpecCompareMode)
, _basChartType :: !(Maybe BasicChartSpecChartType)
, _basThreeDimensional :: !(Maybe Bool)
, _basDomains :: !(Maybe [BasicChartDomain])
, _basAxis :: !(Maybe [BasicChartAxis])
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartSpec
:: BasicChartSpec
basicChartSpec =
BasicChartSpec'
{ _basHeaderCount = Nothing
, _basLineSmoothing = Nothing
, _basInterpolateNulls = Nothing
, _basStackedType = Nothing
, _basLegendPosition = Nothing
, _basSeries = Nothing
, _basCompareMode = Nothing
, _basChartType = Nothing
, _basThreeDimensional = Nothing
, _basDomains = Nothing
, _basAxis = Nothing
}
basHeaderCount :: Lens' BasicChartSpec (Maybe Int32)
basHeaderCount
= lens _basHeaderCount
(\ s a -> s{_basHeaderCount = a})
. mapping _Coerce
basLineSmoothing :: Lens' BasicChartSpec (Maybe Bool)
basLineSmoothing
= lens _basLineSmoothing
(\ s a -> s{_basLineSmoothing = a})
basInterpolateNulls :: Lens' BasicChartSpec (Maybe Bool)
basInterpolateNulls
= lens _basInterpolateNulls
(\ s a -> s{_basInterpolateNulls = a})
basStackedType :: Lens' BasicChartSpec (Maybe BasicChartSpecStackedType)
basStackedType
= lens _basStackedType
(\ s a -> s{_basStackedType = a})
basLegendPosition :: Lens' BasicChartSpec (Maybe BasicChartSpecLegendPosition)
basLegendPosition
= lens _basLegendPosition
(\ s a -> s{_basLegendPosition = a})
basSeries :: Lens' BasicChartSpec [BasicChartSeries]
basSeries
= lens _basSeries (\ s a -> s{_basSeries = a}) .
_Default
. _Coerce
basCompareMode :: Lens' BasicChartSpec (Maybe BasicChartSpecCompareMode)
basCompareMode
= lens _basCompareMode
(\ s a -> s{_basCompareMode = a})
basChartType :: Lens' BasicChartSpec (Maybe BasicChartSpecChartType)
basChartType
= lens _basChartType (\ s a -> s{_basChartType = a})
basThreeDimensional :: Lens' BasicChartSpec (Maybe Bool)
basThreeDimensional
= lens _basThreeDimensional
(\ s a -> s{_basThreeDimensional = a})
basDomains :: Lens' BasicChartSpec [BasicChartDomain]
basDomains
= lens _basDomains (\ s a -> s{_basDomains = a}) .
_Default
. _Coerce
basAxis :: Lens' BasicChartSpec [BasicChartAxis]
basAxis
= lens _basAxis (\ s a -> s{_basAxis = a}) . _Default
. _Coerce
instance FromJSON BasicChartSpec where
parseJSON
= withObject "BasicChartSpec"
(\ o ->
BasicChartSpec' <$>
(o .:? "headerCount") <*> (o .:? "lineSmoothing") <*>
(o .:? "interpolateNulls")
<*> (o .:? "stackedType")
<*> (o .:? "legendPosition")
<*> (o .:? "series" .!= mempty)
<*> (o .:? "compareMode")
<*> (o .:? "chartType")
<*> (o .:? "threeDimensional")
<*> (o .:? "domains" .!= mempty)
<*> (o .:? "axis" .!= mempty))
instance ToJSON BasicChartSpec where
toJSON BasicChartSpec'{..}
= object
(catMaybes
[("headerCount" .=) <$> _basHeaderCount,
("lineSmoothing" .=) <$> _basLineSmoothing,
("interpolateNulls" .=) <$> _basInterpolateNulls,
("stackedType" .=) <$> _basStackedType,
("legendPosition" .=) <$> _basLegendPosition,
("series" .=) <$> _basSeries,
("compareMode" .=) <$> _basCompareMode,
("chartType" .=) <$> _basChartType,
("threeDimensional" .=) <$> _basThreeDimensional,
("domains" .=) <$> _basDomains,
("axis" .=) <$> _basAxis])
data ManualRuleGroup = ManualRuleGroup'
{ _mrgItems :: !(Maybe [ExtendedValue])
, _mrgGroupName :: !(Maybe ExtendedValue)
} deriving (Eq,Show,Data,Typeable,Generic)
manualRuleGroup
:: ManualRuleGroup
manualRuleGroup =
ManualRuleGroup'
{ _mrgItems = Nothing
, _mrgGroupName = Nothing
}
mrgItems :: Lens' ManualRuleGroup [ExtendedValue]
mrgItems
= lens _mrgItems (\ s a -> s{_mrgItems = a}) .
_Default
. _Coerce
mrgGroupName :: Lens' ManualRuleGroup (Maybe ExtendedValue)
mrgGroupName
= lens _mrgGroupName (\ s a -> s{_mrgGroupName = a})
instance FromJSON ManualRuleGroup where
parseJSON
= withObject "ManualRuleGroup"
(\ o ->
ManualRuleGroup' <$>
(o .:? "items" .!= mempty) <*> (o .:? "groupName"))
instance ToJSON ManualRuleGroup where
toJSON ManualRuleGroup'{..}
= object
(catMaybes
[("items" .=) <$> _mrgItems,
("groupName" .=) <$> _mrgGroupName])
data AddConditionalFormatRuleRequest = AddConditionalFormatRuleRequest'
{ _acfrrRule :: !(Maybe ConditionalFormatRule)
, _acfrrIndex :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
addConditionalFormatRuleRequest
:: AddConditionalFormatRuleRequest
addConditionalFormatRuleRequest =
AddConditionalFormatRuleRequest'
{ _acfrrRule = Nothing
, _acfrrIndex = Nothing
}
acfrrRule :: Lens' AddConditionalFormatRuleRequest (Maybe ConditionalFormatRule)
acfrrRule
= lens _acfrrRule (\ s a -> s{_acfrrRule = a})
acfrrIndex :: Lens' AddConditionalFormatRuleRequest (Maybe Int32)
acfrrIndex
= lens _acfrrIndex (\ s a -> s{_acfrrIndex = a}) .
mapping _Coerce
instance FromJSON AddConditionalFormatRuleRequest
where
parseJSON
= withObject "AddConditionalFormatRuleRequest"
(\ o ->
AddConditionalFormatRuleRequest' <$>
(o .:? "rule") <*> (o .:? "index"))
instance ToJSON AddConditionalFormatRuleRequest where
toJSON AddConditionalFormatRuleRequest'{..}
= object
(catMaybes
[("rule" .=) <$> _acfrrRule,
("index" .=) <$> _acfrrIndex])
data DeveloperMetadata = DeveloperMetadata'
{ _dmLocation :: !(Maybe DeveloperMetadataLocation)
, _dmMetadataId :: !(Maybe (Textual Int32))
, _dmVisibility :: !(Maybe DeveloperMetadataVisibility)
, _dmMetadataKey :: !(Maybe Text)
, _dmMetadataValue :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
developerMetadata
:: DeveloperMetadata
developerMetadata =
DeveloperMetadata'
{ _dmLocation = Nothing
, _dmMetadataId = Nothing
, _dmVisibility = Nothing
, _dmMetadataKey = Nothing
, _dmMetadataValue = Nothing
}
dmLocation :: Lens' DeveloperMetadata (Maybe DeveloperMetadataLocation)
dmLocation
= lens _dmLocation (\ s a -> s{_dmLocation = a})
dmMetadataId :: Lens' DeveloperMetadata (Maybe Int32)
dmMetadataId
= lens _dmMetadataId (\ s a -> s{_dmMetadataId = a})
. mapping _Coerce
dmVisibility :: Lens' DeveloperMetadata (Maybe DeveloperMetadataVisibility)
dmVisibility
= lens _dmVisibility (\ s a -> s{_dmVisibility = a})
dmMetadataKey :: Lens' DeveloperMetadata (Maybe Text)
dmMetadataKey
= lens _dmMetadataKey
(\ s a -> s{_dmMetadataKey = a})
dmMetadataValue :: Lens' DeveloperMetadata (Maybe Text)
dmMetadataValue
= lens _dmMetadataValue
(\ s a -> s{_dmMetadataValue = a})
instance FromJSON DeveloperMetadata where
parseJSON
= withObject "DeveloperMetadata"
(\ o ->
DeveloperMetadata' <$>
(o .:? "location") <*> (o .:? "metadataId") <*>
(o .:? "visibility")
<*> (o .:? "metadataKey")
<*> (o .:? "metadataValue"))
instance ToJSON DeveloperMetadata where
toJSON DeveloperMetadata'{..}
= object
(catMaybes
[("location" .=) <$> _dmLocation,
("metadataId" .=) <$> _dmMetadataId,
("visibility" .=) <$> _dmVisibility,
("metadataKey" .=) <$> _dmMetadataKey,
("metadataValue" .=) <$> _dmMetadataValue])
data TreemapChartColorScale = TreemapChartColorScale'
{ _tccsMinValueColor :: !(Maybe Color)
, _tccsNoDataColor :: !(Maybe Color)
, _tccsMaxValueColor :: !(Maybe Color)
, _tccsMidValueColor :: !(Maybe Color)
} deriving (Eq,Show,Data,Typeable,Generic)
treemapChartColorScale
:: TreemapChartColorScale
treemapChartColorScale =
TreemapChartColorScale'
{ _tccsMinValueColor = Nothing
, _tccsNoDataColor = Nothing
, _tccsMaxValueColor = Nothing
, _tccsMidValueColor = Nothing
}
tccsMinValueColor :: Lens' TreemapChartColorScale (Maybe Color)
tccsMinValueColor
= lens _tccsMinValueColor
(\ s a -> s{_tccsMinValueColor = a})
tccsNoDataColor :: Lens' TreemapChartColorScale (Maybe Color)
tccsNoDataColor
= lens _tccsNoDataColor
(\ s a -> s{_tccsNoDataColor = a})
tccsMaxValueColor :: Lens' TreemapChartColorScale (Maybe Color)
tccsMaxValueColor
= lens _tccsMaxValueColor
(\ s a -> s{_tccsMaxValueColor = a})
tccsMidValueColor :: Lens' TreemapChartColorScale (Maybe Color)
tccsMidValueColor
= lens _tccsMidValueColor
(\ s a -> s{_tccsMidValueColor = a})
instance FromJSON TreemapChartColorScale where
parseJSON
= withObject "TreemapChartColorScale"
(\ o ->
TreemapChartColorScale' <$>
(o .:? "minValueColor") <*> (o .:? "noDataColor") <*>
(o .:? "maxValueColor")
<*> (o .:? "midValueColor"))
instance ToJSON TreemapChartColorScale where
toJSON TreemapChartColorScale'{..}
= object
(catMaybes
[("minValueColor" .=) <$> _tccsMinValueColor,
("noDataColor" .=) <$> _tccsNoDataColor,
("maxValueColor" .=) <$> _tccsMaxValueColor,
("midValueColor" .=) <$> _tccsMidValueColor])
newtype DuplicateSheetResponse = DuplicateSheetResponse'
{ _dsrProperties :: Maybe SheetProperties
} deriving (Eq,Show,Data,Typeable,Generic)
duplicateSheetResponse
:: DuplicateSheetResponse
duplicateSheetResponse =
DuplicateSheetResponse'
{ _dsrProperties = Nothing
}
dsrProperties :: Lens' DuplicateSheetResponse (Maybe SheetProperties)
dsrProperties
= lens _dsrProperties
(\ s a -> s{_dsrProperties = a})
instance FromJSON DuplicateSheetResponse where
parseJSON
= withObject "DuplicateSheetResponse"
(\ o ->
DuplicateSheetResponse' <$> (o .:? "properties"))
instance ToJSON DuplicateSheetResponse where
toJSON DuplicateSheetResponse'{..}
= object
(catMaybes [("properties" .=) <$> _dsrProperties])
data TextFormat = TextFormat'
{ _tfFontFamily :: !(Maybe Text)
, _tfForegRoundColor :: !(Maybe Color)
, _tfFontSize :: !(Maybe (Textual Int32))
, _tfUnderline :: !(Maybe Bool)
, _tfItalic :: !(Maybe Bool)
, _tfBold :: !(Maybe Bool)
, _tfStrikethrough :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
textFormat
:: TextFormat
textFormat =
TextFormat'
{ _tfFontFamily = Nothing
, _tfForegRoundColor = Nothing
, _tfFontSize = Nothing
, _tfUnderline = Nothing
, _tfItalic = Nothing
, _tfBold = Nothing
, _tfStrikethrough = Nothing
}
tfFontFamily :: Lens' TextFormat (Maybe Text)
tfFontFamily
= lens _tfFontFamily (\ s a -> s{_tfFontFamily = a})
tfForegRoundColor :: Lens' TextFormat (Maybe Color)
tfForegRoundColor
= lens _tfForegRoundColor
(\ s a -> s{_tfForegRoundColor = a})
tfFontSize :: Lens' TextFormat (Maybe Int32)
tfFontSize
= lens _tfFontSize (\ s a -> s{_tfFontSize = a}) .
mapping _Coerce
tfUnderline :: Lens' TextFormat (Maybe Bool)
tfUnderline
= lens _tfUnderline (\ s a -> s{_tfUnderline = a})
tfItalic :: Lens' TextFormat (Maybe Bool)
tfItalic = lens _tfItalic (\ s a -> s{_tfItalic = a})
tfBold :: Lens' TextFormat (Maybe Bool)
tfBold = lens _tfBold (\ s a -> s{_tfBold = a})
tfStrikethrough :: Lens' TextFormat (Maybe Bool)
tfStrikethrough
= lens _tfStrikethrough
(\ s a -> s{_tfStrikethrough = a})
instance FromJSON TextFormat where
parseJSON
= withObject "TextFormat"
(\ o ->
TextFormat' <$>
(o .:? "fontFamily") <*> (o .:? "foregroundColor")
<*> (o .:? "fontSize")
<*> (o .:? "underline")
<*> (o .:? "italic")
<*> (o .:? "bold")
<*> (o .:? "strikethrough"))
instance ToJSON TextFormat where
toJSON TextFormat'{..}
= object
(catMaybes
[("fontFamily" .=) <$> _tfFontFamily,
("foregroundColor" .=) <$> _tfForegRoundColor,
("fontSize" .=) <$> _tfFontSize,
("underline" .=) <$> _tfUnderline,
("italic" .=) <$> _tfItalic, ("bold" .=) <$> _tfBold,
("strikethrough" .=) <$> _tfStrikethrough])
newtype CreateDeveloperMetadataRequest = CreateDeveloperMetadataRequest'
{ _cDeveloperMetadata :: Maybe DeveloperMetadata
} deriving (Eq,Show,Data,Typeable,Generic)
createDeveloperMetadataRequest
:: CreateDeveloperMetadataRequest
createDeveloperMetadataRequest =
CreateDeveloperMetadataRequest'
{ _cDeveloperMetadata = Nothing
}
cDeveloperMetadata :: Lens' CreateDeveloperMetadataRequest (Maybe DeveloperMetadata)
cDeveloperMetadata
= lens _cDeveloperMetadata
(\ s a -> s{_cDeveloperMetadata = a})
instance FromJSON CreateDeveloperMetadataRequest
where
parseJSON
= withObject "CreateDeveloperMetadataRequest"
(\ o ->
CreateDeveloperMetadataRequest' <$>
(o .:? "developerMetadata"))
instance ToJSON CreateDeveloperMetadataRequest where
toJSON CreateDeveloperMetadataRequest'{..}
= object
(catMaybes
[("developerMetadata" .=) <$> _cDeveloperMetadata])
data BatchClearValuesResponse = BatchClearValuesResponse'
{ _bcvrClearedRanges :: !(Maybe [Text])
, _bcvrSpreadsheetId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
batchClearValuesResponse
:: BatchClearValuesResponse
batchClearValuesResponse =
BatchClearValuesResponse'
{ _bcvrClearedRanges = Nothing
, _bcvrSpreadsheetId = Nothing
}
bcvrClearedRanges :: Lens' BatchClearValuesResponse [Text]
bcvrClearedRanges
= lens _bcvrClearedRanges
(\ s a -> s{_bcvrClearedRanges = a})
. _Default
. _Coerce
bcvrSpreadsheetId :: Lens' BatchClearValuesResponse (Maybe Text)
bcvrSpreadsheetId
= lens _bcvrSpreadsheetId
(\ s a -> s{_bcvrSpreadsheetId = a})
instance FromJSON BatchClearValuesResponse where
parseJSON
= withObject "BatchClearValuesResponse"
(\ o ->
BatchClearValuesResponse' <$>
(o .:? "clearedRanges" .!= mempty) <*>
(o .:? "spreadsheetId"))
instance ToJSON BatchClearValuesResponse where
toJSON BatchClearValuesResponse'{..}
= object
(catMaybes
[("clearedRanges" .=) <$> _bcvrClearedRanges,
("spreadsheetId" .=) <$> _bcvrSpreadsheetId])
data MatchedValueRange = MatchedValueRange'
{ _mvrValueRange :: !(Maybe ValueRange)
, _mvrDataFilters :: !(Maybe [DataFilter])
} deriving (Eq,Show,Data,Typeable,Generic)
matchedValueRange
:: MatchedValueRange
matchedValueRange =
MatchedValueRange'
{ _mvrValueRange = Nothing
, _mvrDataFilters = Nothing
}
mvrValueRange :: Lens' MatchedValueRange (Maybe ValueRange)
mvrValueRange
= lens _mvrValueRange
(\ s a -> s{_mvrValueRange = a})
mvrDataFilters :: Lens' MatchedValueRange [DataFilter]
mvrDataFilters
= lens _mvrDataFilters
(\ s a -> s{_mvrDataFilters = a})
. _Default
. _Coerce
instance FromJSON MatchedValueRange where
parseJSON
= withObject "MatchedValueRange"
(\ o ->
MatchedValueRange' <$>
(o .:? "valueRange") <*>
(o .:? "dataFilters" .!= mempty))
instance ToJSON MatchedValueRange where
toJSON MatchedValueRange'{..}
= object
(catMaybes
[("valueRange" .=) <$> _mvrValueRange,
("dataFilters" .=) <$> _mvrDataFilters])
data BasicChartDomain = BasicChartDomain'
{ _bcdReversed :: !(Maybe Bool)
, _bcdDomain :: !(Maybe ChartData)
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartDomain
:: BasicChartDomain
basicChartDomain =
BasicChartDomain'
{ _bcdReversed = Nothing
, _bcdDomain = Nothing
}
bcdReversed :: Lens' BasicChartDomain (Maybe Bool)
bcdReversed
= lens _bcdReversed (\ s a -> s{_bcdReversed = a})
bcdDomain :: Lens' BasicChartDomain (Maybe ChartData)
bcdDomain
= lens _bcdDomain (\ s a -> s{_bcdDomain = a})
instance FromJSON BasicChartDomain where
parseJSON
= withObject "BasicChartDomain"
(\ o ->
BasicChartDomain' <$>
(o .:? "reversed") <*> (o .:? "domain"))
instance ToJSON BasicChartDomain where
toJSON BasicChartDomain'{..}
= object
(catMaybes
[("reversed" .=) <$> _bcdReversed,
("domain" .=) <$> _bcdDomain])
data HistogramRule = HistogramRule'
{ _hrStart :: !(Maybe (Textual Double))
, _hrInterval :: !(Maybe (Textual Double))
, _hrEnd :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
histogramRule
:: HistogramRule
histogramRule =
HistogramRule'
{ _hrStart = Nothing
, _hrInterval = Nothing
, _hrEnd = Nothing
}
hrStart :: Lens' HistogramRule (Maybe Double)
hrStart
= lens _hrStart (\ s a -> s{_hrStart = a}) .
mapping _Coerce
hrInterval :: Lens' HistogramRule (Maybe Double)
hrInterval
= lens _hrInterval (\ s a -> s{_hrInterval = a}) .
mapping _Coerce
hrEnd :: Lens' HistogramRule (Maybe Double)
hrEnd
= lens _hrEnd (\ s a -> s{_hrEnd = a}) .
mapping _Coerce
instance FromJSON HistogramRule where
parseJSON
= withObject "HistogramRule"
(\ o ->
HistogramRule' <$>
(o .:? "start") <*> (o .:? "interval") <*>
(o .:? "end"))
instance ToJSON HistogramRule where
toJSON HistogramRule'{..}
= object
(catMaybes
[("start" .=) <$> _hrStart,
("interval" .=) <$> _hrInterval,
("end" .=) <$> _hrEnd])
data MatchedDeveloperMetadata = MatchedDeveloperMetadata'
{ _mdmDataFilters :: !(Maybe [DataFilter])
, _mdmDeveloperMetadata :: !(Maybe DeveloperMetadata)
} deriving (Eq,Show,Data,Typeable,Generic)
matchedDeveloperMetadata
:: MatchedDeveloperMetadata
matchedDeveloperMetadata =
MatchedDeveloperMetadata'
{ _mdmDataFilters = Nothing
, _mdmDeveloperMetadata = Nothing
}
mdmDataFilters :: Lens' MatchedDeveloperMetadata [DataFilter]
mdmDataFilters
= lens _mdmDataFilters
(\ s a -> s{_mdmDataFilters = a})
. _Default
. _Coerce
mdmDeveloperMetadata :: Lens' MatchedDeveloperMetadata (Maybe DeveloperMetadata)
mdmDeveloperMetadata
= lens _mdmDeveloperMetadata
(\ s a -> s{_mdmDeveloperMetadata = a})
instance FromJSON MatchedDeveloperMetadata where
parseJSON
= withObject "MatchedDeveloperMetadata"
(\ o ->
MatchedDeveloperMetadata' <$>
(o .:? "dataFilters" .!= mempty) <*>
(o .:? "developerMetadata"))
instance ToJSON MatchedDeveloperMetadata where
toJSON MatchedDeveloperMetadata'{..}
= object
(catMaybes
[("dataFilters" .=) <$> _mdmDataFilters,
("developerMetadata" .=) <$> _mdmDeveloperMetadata])
data InsertRangeRequest = InsertRangeRequest'
{ _irrShiftDimension :: !(Maybe InsertRangeRequestShiftDimension)
, _irrRange :: !(Maybe GridRange)
} deriving (Eq,Show,Data,Typeable,Generic)
insertRangeRequest
:: InsertRangeRequest
insertRangeRequest =
InsertRangeRequest'
{ _irrShiftDimension = Nothing
, _irrRange = Nothing
}
irrShiftDimension :: Lens' InsertRangeRequest (Maybe InsertRangeRequestShiftDimension)
irrShiftDimension
= lens _irrShiftDimension
(\ s a -> s{_irrShiftDimension = a})
irrRange :: Lens' InsertRangeRequest (Maybe GridRange)
irrRange = lens _irrRange (\ s a -> s{_irrRange = a})
instance FromJSON InsertRangeRequest where
parseJSON
= withObject "InsertRangeRequest"
(\ o ->
InsertRangeRequest' <$>
(o .:? "shiftDimension") <*> (o .:? "range"))
instance ToJSON InsertRangeRequest where
toJSON InsertRangeRequest'{..}
= object
(catMaybes
[("shiftDimension" .=) <$> _irrShiftDimension,
("range" .=) <$> _irrRange])
data Padding = Padding'
{ _pBottom :: !(Maybe (Textual Int32))
, _pLeft :: !(Maybe (Textual Int32))
, _pRight :: !(Maybe (Textual Int32))
, _pTop :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
padding
:: Padding
padding =
Padding'
{ _pBottom = Nothing
, _pLeft = Nothing
, _pRight = Nothing
, _pTop = Nothing
}
pBottom :: Lens' Padding (Maybe Int32)
pBottom
= lens _pBottom (\ s a -> s{_pBottom = a}) .
mapping _Coerce
pLeft :: Lens' Padding (Maybe Int32)
pLeft
= lens _pLeft (\ s a -> s{_pLeft = a}) .
mapping _Coerce
pRight :: Lens' Padding (Maybe Int32)
pRight
= lens _pRight (\ s a -> s{_pRight = a}) .
mapping _Coerce
pTop :: Lens' Padding (Maybe Int32)
pTop
= lens _pTop (\ s a -> s{_pTop = a}) .
mapping _Coerce
instance FromJSON Padding where
parseJSON
= withObject "Padding"
(\ o ->
Padding' <$>
(o .:? "bottom") <*> (o .:? "left") <*>
(o .:? "right")
<*> (o .:? "top"))
instance ToJSON Padding where
toJSON Padding'{..}
= object
(catMaybes
[("bottom" .=) <$> _pBottom, ("left" .=) <$> _pLeft,
("right" .=) <$> _pRight, ("top" .=) <$> _pTop])
data ChartSpec = ChartSpec'
{ _csTitleTextPosition :: !(Maybe TextPosition)
, _csFontName :: !(Maybe Text)
, _csSubtitleTextPosition :: !(Maybe TextPosition)
, _csBackgRoundColor :: !(Maybe Color)
, _csCandlestickChart :: !(Maybe CandlestickChartSpec)
, _csWaterfallChart :: !(Maybe WaterfallChartSpec)
, _csTitleTextFormat :: !(Maybe TextFormat)
, _csSubtitle :: !(Maybe Text)
, _csAltText :: !(Maybe Text)
, _csHistogramChart :: !(Maybe HistogramChartSpec)
, _csBubbleChart :: !(Maybe BubbleChartSpec)
, _csMaximized :: !(Maybe Bool)
, _csSubtitleTextFormat :: !(Maybe TextFormat)
, _csTitle :: !(Maybe Text)
, _csPieChart :: !(Maybe PieChartSpec)
, _csOrgChart :: !(Maybe OrgChartSpec)
, _csTreemapChart :: !(Maybe TreemapChartSpec)
, _csBasicChart :: !(Maybe BasicChartSpec)
, _csHiddenDimensionStrategy :: !(Maybe ChartSpecHiddenDimensionStrategy)
} deriving (Eq,Show,Data,Typeable,Generic)
chartSpec
:: ChartSpec
chartSpec =
ChartSpec'
{ _csTitleTextPosition = Nothing
, _csFontName = Nothing
, _csSubtitleTextPosition = Nothing
, _csBackgRoundColor = Nothing
, _csCandlestickChart = Nothing
, _csWaterfallChart = Nothing
, _csTitleTextFormat = Nothing
, _csSubtitle = Nothing
, _csAltText = Nothing
, _csHistogramChart = Nothing
, _csBubbleChart = Nothing
, _csMaximized = Nothing
, _csSubtitleTextFormat = Nothing
, _csTitle = Nothing
, _csPieChart = Nothing
, _csOrgChart = Nothing
, _csTreemapChart = Nothing
, _csBasicChart = Nothing
, _csHiddenDimensionStrategy = Nothing
}
csTitleTextPosition :: Lens' ChartSpec (Maybe TextPosition)
csTitleTextPosition
= lens _csTitleTextPosition
(\ s a -> s{_csTitleTextPosition = a})
csFontName :: Lens' ChartSpec (Maybe Text)
csFontName
= lens _csFontName (\ s a -> s{_csFontName = a})
csSubtitleTextPosition :: Lens' ChartSpec (Maybe TextPosition)
csSubtitleTextPosition
= lens _csSubtitleTextPosition
(\ s a -> s{_csSubtitleTextPosition = a})
csBackgRoundColor :: Lens' ChartSpec (Maybe Color)
csBackgRoundColor
= lens _csBackgRoundColor
(\ s a -> s{_csBackgRoundColor = a})
csCandlestickChart :: Lens' ChartSpec (Maybe CandlestickChartSpec)
csCandlestickChart
= lens _csCandlestickChart
(\ s a -> s{_csCandlestickChart = a})
csWaterfallChart :: Lens' ChartSpec (Maybe WaterfallChartSpec)
csWaterfallChart
= lens _csWaterfallChart
(\ s a -> s{_csWaterfallChart = a})
csTitleTextFormat :: Lens' ChartSpec (Maybe TextFormat)
csTitleTextFormat
= lens _csTitleTextFormat
(\ s a -> s{_csTitleTextFormat = a})
csSubtitle :: Lens' ChartSpec (Maybe Text)
csSubtitle
= lens _csSubtitle (\ s a -> s{_csSubtitle = a})
csAltText :: Lens' ChartSpec (Maybe Text)
csAltText
= lens _csAltText (\ s a -> s{_csAltText = a})
csHistogramChart :: Lens' ChartSpec (Maybe HistogramChartSpec)
csHistogramChart
= lens _csHistogramChart
(\ s a -> s{_csHistogramChart = a})
csBubbleChart :: Lens' ChartSpec (Maybe BubbleChartSpec)
csBubbleChart
= lens _csBubbleChart
(\ s a -> s{_csBubbleChart = a})
csMaximized :: Lens' ChartSpec (Maybe Bool)
csMaximized
= lens _csMaximized (\ s a -> s{_csMaximized = a})
csSubtitleTextFormat :: Lens' ChartSpec (Maybe TextFormat)
csSubtitleTextFormat
= lens _csSubtitleTextFormat
(\ s a -> s{_csSubtitleTextFormat = a})
csTitle :: Lens' ChartSpec (Maybe Text)
csTitle = lens _csTitle (\ s a -> s{_csTitle = a})
csPieChart :: Lens' ChartSpec (Maybe PieChartSpec)
csPieChart
= lens _csPieChart (\ s a -> s{_csPieChart = a})
csOrgChart :: Lens' ChartSpec (Maybe OrgChartSpec)
csOrgChart
= lens _csOrgChart (\ s a -> s{_csOrgChart = a})
csTreemapChart :: Lens' ChartSpec (Maybe TreemapChartSpec)
csTreemapChart
= lens _csTreemapChart
(\ s a -> s{_csTreemapChart = a})
csBasicChart :: Lens' ChartSpec (Maybe BasicChartSpec)
csBasicChart
= lens _csBasicChart (\ s a -> s{_csBasicChart = a})
csHiddenDimensionStrategy :: Lens' ChartSpec (Maybe ChartSpecHiddenDimensionStrategy)
csHiddenDimensionStrategy
= lens _csHiddenDimensionStrategy
(\ s a -> s{_csHiddenDimensionStrategy = a})
instance FromJSON ChartSpec where
parseJSON
= withObject "ChartSpec"
(\ o ->
ChartSpec' <$>
(o .:? "titleTextPosition") <*> (o .:? "fontName")
<*> (o .:? "subtitleTextPosition")
<*> (o .:? "backgroundColor")
<*> (o .:? "candlestickChart")
<*> (o .:? "waterfallChart")
<*> (o .:? "titleTextFormat")
<*> (o .:? "subtitle")
<*> (o .:? "altText")
<*> (o .:? "histogramChart")
<*> (o .:? "bubbleChart")
<*> (o .:? "maximized")
<*> (o .:? "subtitleTextFormat")
<*> (o .:? "title")
<*> (o .:? "pieChart")
<*> (o .:? "orgChart")
<*> (o .:? "treemapChart")
<*> (o .:? "basicChart")
<*> (o .:? "hiddenDimensionStrategy"))
instance ToJSON ChartSpec where
toJSON ChartSpec'{..}
= object
(catMaybes
[("titleTextPosition" .=) <$> _csTitleTextPosition,
("fontName" .=) <$> _csFontName,
("subtitleTextPosition" .=) <$>
_csSubtitleTextPosition,
("backgroundColor" .=) <$> _csBackgRoundColor,
("candlestickChart" .=) <$> _csCandlestickChart,
("waterfallChart" .=) <$> _csWaterfallChart,
("titleTextFormat" .=) <$> _csTitleTextFormat,
("subtitle" .=) <$> _csSubtitle,
("altText" .=) <$> _csAltText,
("histogramChart" .=) <$> _csHistogramChart,
("bubbleChart" .=) <$> _csBubbleChart,
("maximized" .=) <$> _csMaximized,
("subtitleTextFormat" .=) <$> _csSubtitleTextFormat,
("title" .=) <$> _csTitle,
("pieChart" .=) <$> _csPieChart,
("orgChart" .=) <$> _csOrgChart,
("treemapChart" .=) <$> _csTreemapChart,
("basicChart" .=) <$> _csBasicChart,
("hiddenDimensionStrategy" .=) <$>
_csHiddenDimensionStrategy])
data DimensionProperties = DimensionProperties'
{ _dpHiddenByFilter :: !(Maybe Bool)
, _dpPixelSize :: !(Maybe (Textual Int32))
, _dpHiddenByUser :: !(Maybe Bool)
, _dpDeveloperMetadata :: !(Maybe [DeveloperMetadata])
} deriving (Eq,Show,Data,Typeable,Generic)
dimensionProperties
:: DimensionProperties
dimensionProperties =
DimensionProperties'
{ _dpHiddenByFilter = Nothing
, _dpPixelSize = Nothing
, _dpHiddenByUser = Nothing
, _dpDeveloperMetadata = Nothing
}
dpHiddenByFilter :: Lens' DimensionProperties (Maybe Bool)
dpHiddenByFilter
= lens _dpHiddenByFilter
(\ s a -> s{_dpHiddenByFilter = a})
dpPixelSize :: Lens' DimensionProperties (Maybe Int32)
dpPixelSize
= lens _dpPixelSize (\ s a -> s{_dpPixelSize = a}) .
mapping _Coerce
dpHiddenByUser :: Lens' DimensionProperties (Maybe Bool)
dpHiddenByUser
= lens _dpHiddenByUser
(\ s a -> s{_dpHiddenByUser = a})
dpDeveloperMetadata :: Lens' DimensionProperties [DeveloperMetadata]
dpDeveloperMetadata
= lens _dpDeveloperMetadata
(\ s a -> s{_dpDeveloperMetadata = a})
. _Default
. _Coerce
instance FromJSON DimensionProperties where
parseJSON
= withObject "DimensionProperties"
(\ o ->
DimensionProperties' <$>
(o .:? "hiddenByFilter") <*> (o .:? "pixelSize") <*>
(o .:? "hiddenByUser")
<*> (o .:? "developerMetadata" .!= mempty))
instance ToJSON DimensionProperties where
toJSON DimensionProperties'{..}
= object
(catMaybes
[("hiddenByFilter" .=) <$> _dpHiddenByFilter,
("pixelSize" .=) <$> _dpPixelSize,
("hiddenByUser" .=) <$> _dpHiddenByUser,
("developerMetadata" .=) <$> _dpDeveloperMetadata])
data UpdateBandingRequest = UpdateBandingRequest'
{ _ubrBandedRange :: !(Maybe BandedRange)
, _ubrFields :: !(Maybe GFieldMask)
} deriving (Eq,Show,Data,Typeable,Generic)
updateBandingRequest
:: UpdateBandingRequest
updateBandingRequest =
UpdateBandingRequest'
{ _ubrBandedRange = Nothing
, _ubrFields = Nothing
}
ubrBandedRange :: Lens' UpdateBandingRequest (Maybe BandedRange)
ubrBandedRange
= lens _ubrBandedRange
(\ s a -> s{_ubrBandedRange = a})
ubrFields :: Lens' UpdateBandingRequest (Maybe GFieldMask)
ubrFields
= lens _ubrFields (\ s a -> s{_ubrFields = a})
instance FromJSON UpdateBandingRequest where
parseJSON
= withObject "UpdateBandingRequest"
(\ o ->
UpdateBandingRequest' <$>
(o .:? "bandedRange") <*> (o .:? "fields"))
instance ToJSON UpdateBandingRequest where
toJSON UpdateBandingRequest'{..}
= object
(catMaybes
[("bandedRange" .=) <$> _ubrBandedRange,
("fields" .=) <$> _ubrFields])
data BatchGetValuesResponse = BatchGetValuesResponse'
{ _bgvrSpreadsheetId :: !(Maybe Text)
, _bgvrValueRanges :: !(Maybe [ValueRange])
} deriving (Eq,Show,Data,Typeable,Generic)
batchGetValuesResponse
:: BatchGetValuesResponse
batchGetValuesResponse =
BatchGetValuesResponse'
{ _bgvrSpreadsheetId = Nothing
, _bgvrValueRanges = Nothing
}
bgvrSpreadsheetId :: Lens' BatchGetValuesResponse (Maybe Text)
bgvrSpreadsheetId
= lens _bgvrSpreadsheetId
(\ s a -> s{_bgvrSpreadsheetId = a})
bgvrValueRanges :: Lens' BatchGetValuesResponse [ValueRange]
bgvrValueRanges
= lens _bgvrValueRanges
(\ s a -> s{_bgvrValueRanges = a})
. _Default
. _Coerce
instance FromJSON BatchGetValuesResponse where
parseJSON
= withObject "BatchGetValuesResponse"
(\ o ->
BatchGetValuesResponse' <$>
(o .:? "spreadsheetId") <*>
(o .:? "valueRanges" .!= mempty))
instance ToJSON BatchGetValuesResponse where
toJSON BatchGetValuesResponse'{..}
= object
(catMaybes
[("spreadsheetId" .=) <$> _bgvrSpreadsheetId,
("valueRanges" .=) <$> _bgvrValueRanges])
newtype DeleteBandingRequest = DeleteBandingRequest'
{ _dbrBandedRangeId :: Maybe (Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
deleteBandingRequest
:: DeleteBandingRequest
deleteBandingRequest =
DeleteBandingRequest'
{ _dbrBandedRangeId = Nothing
}
dbrBandedRangeId :: Lens' DeleteBandingRequest (Maybe Int32)
dbrBandedRangeId
= lens _dbrBandedRangeId
(\ s a -> s{_dbrBandedRangeId = a})
. mapping _Coerce
instance FromJSON DeleteBandingRequest where
parseJSON
= withObject "DeleteBandingRequest"
(\ o ->
DeleteBandingRequest' <$> (o .:? "bandedRangeId"))
instance ToJSON DeleteBandingRequest where
toJSON DeleteBandingRequest'{..}
= object
(catMaybes
[("bandedRangeId" .=) <$> _dbrBandedRangeId])
newtype DeleteDeveloperMetadataResponse = DeleteDeveloperMetadataResponse'
{ _ddmrDeletedDeveloperMetadata :: Maybe [DeveloperMetadata]
} deriving (Eq,Show,Data,Typeable,Generic)
deleteDeveloperMetadataResponse
:: DeleteDeveloperMetadataResponse
deleteDeveloperMetadataResponse =
DeleteDeveloperMetadataResponse'
{ _ddmrDeletedDeveloperMetadata = Nothing
}
ddmrDeletedDeveloperMetadata :: Lens' DeleteDeveloperMetadataResponse [DeveloperMetadata]
ddmrDeletedDeveloperMetadata
= lens _ddmrDeletedDeveloperMetadata
(\ s a -> s{_ddmrDeletedDeveloperMetadata = a})
. _Default
. _Coerce
instance FromJSON DeleteDeveloperMetadataResponse
where
parseJSON
= withObject "DeleteDeveloperMetadataResponse"
(\ o ->
DeleteDeveloperMetadataResponse' <$>
(o .:? "deletedDeveloperMetadata" .!= mempty))
instance ToJSON DeleteDeveloperMetadataResponse where
toJSON DeleteDeveloperMetadataResponse'{..}
= object
(catMaybes
[("deletedDeveloperMetadata" .=) <$>
_ddmrDeletedDeveloperMetadata])
newtype UpdateDeveloperMetadataResponse = UpdateDeveloperMetadataResponse'
{ _uDeveloperMetadata :: Maybe [DeveloperMetadata]
} deriving (Eq,Show,Data,Typeable,Generic)
updateDeveloperMetadataResponse
:: UpdateDeveloperMetadataResponse
updateDeveloperMetadataResponse =
UpdateDeveloperMetadataResponse'
{ _uDeveloperMetadata = Nothing
}
uDeveloperMetadata :: Lens' UpdateDeveloperMetadataResponse [DeveloperMetadata]
uDeveloperMetadata
= lens _uDeveloperMetadata
(\ s a -> s{_uDeveloperMetadata = a})
. _Default
. _Coerce
instance FromJSON UpdateDeveloperMetadataResponse
where
parseJSON
= withObject "UpdateDeveloperMetadataResponse"
(\ o ->
UpdateDeveloperMetadataResponse' <$>
(o .:? "developerMetadata" .!= mempty))
instance ToJSON UpdateDeveloperMetadataResponse where
toJSON UpdateDeveloperMetadataResponse'{..}
= object
(catMaybes
[("developerMetadata" .=) <$> _uDeveloperMetadata])
data Request' = Request''
{ _reqAddFilterView :: !(Maybe AddFilterViewRequest)
, _reqDeleteProtectedRange :: !(Maybe DeleteProtectedRangeRequest)
, _reqUpdateProtectedRange :: !(Maybe UpdateProtectedRangeRequest)
, _reqUpdateCells :: !(Maybe UpdateCellsRequest)
, _reqCreateDeveloperMetadata :: !(Maybe CreateDeveloperMetadataRequest)
, _reqDuplicateFilterView :: !(Maybe DuplicateFilterViewRequest)
, _reqAddConditionalFormatRule :: !(Maybe AddConditionalFormatRuleRequest)
, _reqRandomizeRange :: !(Maybe RandomizeRangeRequest)
, _reqSortRange :: !(Maybe SortRangeRequest)
, _reqUpdateNamedRange :: !(Maybe UpdateNamedRangeRequest)
, _reqDeleteNamedRange :: !(Maybe DeleteNamedRangeRequest)
, _reqInsertRange :: !(Maybe InsertRangeRequest)
, _reqDeleteBanding :: !(Maybe DeleteBandingRequest)
, _reqUpdateBanding :: !(Maybe UpdateBandingRequest)
, _reqClearBasicFilter :: !(Maybe ClearBasicFilterRequest)
, _reqAppendCells :: !(Maybe AppendCellsRequest)
, _reqPasteData :: !(Maybe PasteDataRequest)
, _reqUpdateEmbeddedObjectPosition :: !(Maybe UpdateEmbeddedObjectPositionRequest)
, _reqDeleteRange :: !(Maybe DeleteRangeRequest)
, _reqCopyPaste :: !(Maybe CopyPasteRequest)
, _reqUpdateDimensionGroup :: !(Maybe UpdateDimensionGroupRequest)
, _reqDeleteDimensionGroup :: !(Maybe DeleteDimensionGroupRequest)
, _reqAutoResizeDimensions :: !(Maybe AutoResizeDimensionsRequest)
, _reqAddSheet :: !(Maybe AddSheetRequest)
, _reqFindReplace :: !(Maybe FindReplaceRequest)
, _reqDeleteDimension :: !(Maybe DeleteDimensionRequest)
, _reqCutPaste :: !(Maybe CutPasteRequest)
, _reqMoveDimension :: !(Maybe MoveDimensionRequest)
, _reqRepeatCell :: !(Maybe RepeatCellRequest)
, _reqAddProtectedRange :: !(Maybe AddProtectedRangeRequest)
, _reqUpdateFilterView :: !(Maybe UpdateFilterViewRequest)
, _reqDeleteFilterView :: !(Maybe DeleteFilterViewRequest)
, _reqInsertDimension :: !(Maybe InsertDimensionRequest)
, _reqUpdateSheetProperties :: !(Maybe UpdateSheetPropertiesRequest)
, _reqDeleteConditionalFormatRule :: !(Maybe DeleteConditionalFormatRuleRequest)
, _reqUpdateConditionalFormatRule :: !(Maybe UpdateConditionalFormatRuleRequest)
, _reqDeleteEmbeddedObject :: !(Maybe DeleteEmbeddedObjectRequest)
, _reqDeleteDeveloperMetadata :: !(Maybe DeleteDeveloperMetadataRequest)
, _reqUpdateDeveloperMetadata :: !(Maybe UpdateDeveloperMetadataRequest)
, _reqMergeCells :: !(Maybe MergeCellsRequest)
, _reqAddNamedRange :: !(Maybe AddNamedRangeRequest)
, _reqAddChart :: !(Maybe AddChartRequest)
, _reqAddBanding :: !(Maybe AddBandingRequest)
, _reqDuplicateSheet :: !(Maybe DuplicateSheetRequest)
, _reqAutoFill :: !(Maybe AutoFillRequest)
, _reqUpdateDimensionProperties :: !(Maybe UpdateDimensionPropertiesRequest)
, _reqUpdateChartSpec :: !(Maybe UpdateChartSpecRequest)
, _reqSetBasicFilter :: !(Maybe SetBasicFilterRequest)
, _reqTextToColumns :: !(Maybe TextToColumnsRequest)
, _reqAddDimensionGroup :: !(Maybe AddDimensionGroupRequest)
, _reqUpdateSpreadsheetProperties :: !(Maybe UpdateSpreadsheetPropertiesRequest)
, _reqDeleteSheet :: !(Maybe DeleteSheetRequest)
, _reqUnmergeCells :: !(Maybe UnmergeCellsRequest)
, _reqUpdateBOrders :: !(Maybe UpdateBOrdersRequest)
, _reqAppendDimension :: !(Maybe AppendDimensionRequest)
, _reqSetDataValidation :: !(Maybe SetDataValidationRequest)
} deriving (Eq,Show,Data,Typeable,Generic)
request'
:: Request'
request' =
Request''
{ _reqAddFilterView = Nothing
, _reqDeleteProtectedRange = Nothing
, _reqUpdateProtectedRange = Nothing
, _reqUpdateCells = Nothing
, _reqCreateDeveloperMetadata = Nothing
, _reqDuplicateFilterView = Nothing
, _reqAddConditionalFormatRule = Nothing
, _reqRandomizeRange = Nothing
, _reqSortRange = Nothing
, _reqUpdateNamedRange = Nothing
, _reqDeleteNamedRange = Nothing
, _reqInsertRange = Nothing
, _reqDeleteBanding = Nothing
, _reqUpdateBanding = Nothing
, _reqClearBasicFilter = Nothing
, _reqAppendCells = Nothing
, _reqPasteData = Nothing
, _reqUpdateEmbeddedObjectPosition = Nothing
, _reqDeleteRange = Nothing
, _reqCopyPaste = Nothing
, _reqUpdateDimensionGroup = Nothing
, _reqDeleteDimensionGroup = Nothing
, _reqAutoResizeDimensions = Nothing
, _reqAddSheet = Nothing
, _reqFindReplace = Nothing
, _reqDeleteDimension = Nothing
, _reqCutPaste = Nothing
, _reqMoveDimension = Nothing
, _reqRepeatCell = Nothing
, _reqAddProtectedRange = Nothing
, _reqUpdateFilterView = Nothing
, _reqDeleteFilterView = Nothing
, _reqInsertDimension = Nothing
, _reqUpdateSheetProperties = Nothing
, _reqDeleteConditionalFormatRule = Nothing
, _reqUpdateConditionalFormatRule = Nothing
, _reqDeleteEmbeddedObject = Nothing
, _reqDeleteDeveloperMetadata = Nothing
, _reqUpdateDeveloperMetadata = Nothing
, _reqMergeCells = Nothing
, _reqAddNamedRange = Nothing
, _reqAddChart = Nothing
, _reqAddBanding = Nothing
, _reqDuplicateSheet = Nothing
, _reqAutoFill = Nothing
, _reqUpdateDimensionProperties = Nothing
, _reqUpdateChartSpec = Nothing
, _reqSetBasicFilter = Nothing
, _reqTextToColumns = Nothing
, _reqAddDimensionGroup = Nothing
, _reqUpdateSpreadsheetProperties = Nothing
, _reqDeleteSheet = Nothing
, _reqUnmergeCells = Nothing
, _reqUpdateBOrders = Nothing
, _reqAppendDimension = Nothing
, _reqSetDataValidation = Nothing
}
reqAddFilterView :: Lens' Request' (Maybe AddFilterViewRequest)
reqAddFilterView
= lens _reqAddFilterView
(\ s a -> s{_reqAddFilterView = a})
reqDeleteProtectedRange :: Lens' Request' (Maybe DeleteProtectedRangeRequest)
reqDeleteProtectedRange
= lens _reqDeleteProtectedRange
(\ s a -> s{_reqDeleteProtectedRange = a})
reqUpdateProtectedRange :: Lens' Request' (Maybe UpdateProtectedRangeRequest)
reqUpdateProtectedRange
= lens _reqUpdateProtectedRange
(\ s a -> s{_reqUpdateProtectedRange = a})
reqUpdateCells :: Lens' Request' (Maybe UpdateCellsRequest)
reqUpdateCells
= lens _reqUpdateCells
(\ s a -> s{_reqUpdateCells = a})
reqCreateDeveloperMetadata :: Lens' Request' (Maybe CreateDeveloperMetadataRequest)
reqCreateDeveloperMetadata
= lens _reqCreateDeveloperMetadata
(\ s a -> s{_reqCreateDeveloperMetadata = a})
reqDuplicateFilterView :: Lens' Request' (Maybe DuplicateFilterViewRequest)
reqDuplicateFilterView
= lens _reqDuplicateFilterView
(\ s a -> s{_reqDuplicateFilterView = a})
reqAddConditionalFormatRule :: Lens' Request' (Maybe AddConditionalFormatRuleRequest)
reqAddConditionalFormatRule
= lens _reqAddConditionalFormatRule
(\ s a -> s{_reqAddConditionalFormatRule = a})
reqRandomizeRange :: Lens' Request' (Maybe RandomizeRangeRequest)
reqRandomizeRange
= lens _reqRandomizeRange
(\ s a -> s{_reqRandomizeRange = a})
reqSortRange :: Lens' Request' (Maybe SortRangeRequest)
reqSortRange
= lens _reqSortRange (\ s a -> s{_reqSortRange = a})
reqUpdateNamedRange :: Lens' Request' (Maybe UpdateNamedRangeRequest)
reqUpdateNamedRange
= lens _reqUpdateNamedRange
(\ s a -> s{_reqUpdateNamedRange = a})
reqDeleteNamedRange :: Lens' Request' (Maybe DeleteNamedRangeRequest)
reqDeleteNamedRange
= lens _reqDeleteNamedRange
(\ s a -> s{_reqDeleteNamedRange = a})
reqInsertRange :: Lens' Request' (Maybe InsertRangeRequest)
reqInsertRange
= lens _reqInsertRange
(\ s a -> s{_reqInsertRange = a})
reqDeleteBanding :: Lens' Request' (Maybe DeleteBandingRequest)
reqDeleteBanding
= lens _reqDeleteBanding
(\ s a -> s{_reqDeleteBanding = a})
reqUpdateBanding :: Lens' Request' (Maybe UpdateBandingRequest)
reqUpdateBanding
= lens _reqUpdateBanding
(\ s a -> s{_reqUpdateBanding = a})
reqClearBasicFilter :: Lens' Request' (Maybe ClearBasicFilterRequest)
reqClearBasicFilter
= lens _reqClearBasicFilter
(\ s a -> s{_reqClearBasicFilter = a})
reqAppendCells :: Lens' Request' (Maybe AppendCellsRequest)
reqAppendCells
= lens _reqAppendCells
(\ s a -> s{_reqAppendCells = a})
reqPasteData :: Lens' Request' (Maybe PasteDataRequest)
reqPasteData
= lens _reqPasteData (\ s a -> s{_reqPasteData = a})
reqUpdateEmbeddedObjectPosition :: Lens' Request' (Maybe UpdateEmbeddedObjectPositionRequest)
reqUpdateEmbeddedObjectPosition
= lens _reqUpdateEmbeddedObjectPosition
(\ s a -> s{_reqUpdateEmbeddedObjectPosition = a})
reqDeleteRange :: Lens' Request' (Maybe DeleteRangeRequest)
reqDeleteRange
= lens _reqDeleteRange
(\ s a -> s{_reqDeleteRange = a})
reqCopyPaste :: Lens' Request' (Maybe CopyPasteRequest)
reqCopyPaste
= lens _reqCopyPaste (\ s a -> s{_reqCopyPaste = a})
reqUpdateDimensionGroup :: Lens' Request' (Maybe UpdateDimensionGroupRequest)
reqUpdateDimensionGroup
= lens _reqUpdateDimensionGroup
(\ s a -> s{_reqUpdateDimensionGroup = a})
reqDeleteDimensionGroup :: Lens' Request' (Maybe DeleteDimensionGroupRequest)
reqDeleteDimensionGroup
= lens _reqDeleteDimensionGroup
(\ s a -> s{_reqDeleteDimensionGroup = a})
reqAutoResizeDimensions :: Lens' Request' (Maybe AutoResizeDimensionsRequest)
reqAutoResizeDimensions
= lens _reqAutoResizeDimensions
(\ s a -> s{_reqAutoResizeDimensions = a})
reqAddSheet :: Lens' Request' (Maybe AddSheetRequest)
reqAddSheet
= lens _reqAddSheet (\ s a -> s{_reqAddSheet = a})
reqFindReplace :: Lens' Request' (Maybe FindReplaceRequest)
reqFindReplace
= lens _reqFindReplace
(\ s a -> s{_reqFindReplace = a})
reqDeleteDimension :: Lens' Request' (Maybe DeleteDimensionRequest)
reqDeleteDimension
= lens _reqDeleteDimension
(\ s a -> s{_reqDeleteDimension = a})
reqCutPaste :: Lens' Request' (Maybe CutPasteRequest)
reqCutPaste
= lens _reqCutPaste (\ s a -> s{_reqCutPaste = a})
reqMoveDimension :: Lens' Request' (Maybe MoveDimensionRequest)
reqMoveDimension
= lens _reqMoveDimension
(\ s a -> s{_reqMoveDimension = a})
reqRepeatCell :: Lens' Request' (Maybe RepeatCellRequest)
reqRepeatCell
= lens _reqRepeatCell
(\ s a -> s{_reqRepeatCell = a})
reqAddProtectedRange :: Lens' Request' (Maybe AddProtectedRangeRequest)
reqAddProtectedRange
= lens _reqAddProtectedRange
(\ s a -> s{_reqAddProtectedRange = a})
reqUpdateFilterView :: Lens' Request' (Maybe UpdateFilterViewRequest)
reqUpdateFilterView
= lens _reqUpdateFilterView
(\ s a -> s{_reqUpdateFilterView = a})
reqDeleteFilterView :: Lens' Request' (Maybe DeleteFilterViewRequest)
reqDeleteFilterView
= lens _reqDeleteFilterView
(\ s a -> s{_reqDeleteFilterView = a})
reqInsertDimension :: Lens' Request' (Maybe InsertDimensionRequest)
reqInsertDimension
= lens _reqInsertDimension
(\ s a -> s{_reqInsertDimension = a})
reqUpdateSheetProperties :: Lens' Request' (Maybe UpdateSheetPropertiesRequest)
reqUpdateSheetProperties
= lens _reqUpdateSheetProperties
(\ s a -> s{_reqUpdateSheetProperties = a})
reqDeleteConditionalFormatRule :: Lens' Request' (Maybe DeleteConditionalFormatRuleRequest)
reqDeleteConditionalFormatRule
= lens _reqDeleteConditionalFormatRule
(\ s a -> s{_reqDeleteConditionalFormatRule = a})
reqUpdateConditionalFormatRule :: Lens' Request' (Maybe UpdateConditionalFormatRuleRequest)
reqUpdateConditionalFormatRule
= lens _reqUpdateConditionalFormatRule
(\ s a -> s{_reqUpdateConditionalFormatRule = a})
reqDeleteEmbeddedObject :: Lens' Request' (Maybe DeleteEmbeddedObjectRequest)
reqDeleteEmbeddedObject
= lens _reqDeleteEmbeddedObject
(\ s a -> s{_reqDeleteEmbeddedObject = a})
reqDeleteDeveloperMetadata :: Lens' Request' (Maybe DeleteDeveloperMetadataRequest)
reqDeleteDeveloperMetadata
= lens _reqDeleteDeveloperMetadata
(\ s a -> s{_reqDeleteDeveloperMetadata = a})
reqUpdateDeveloperMetadata :: Lens' Request' (Maybe UpdateDeveloperMetadataRequest)
reqUpdateDeveloperMetadata
= lens _reqUpdateDeveloperMetadata
(\ s a -> s{_reqUpdateDeveloperMetadata = a})
reqMergeCells :: Lens' Request' (Maybe MergeCellsRequest)
reqMergeCells
= lens _reqMergeCells
(\ s a -> s{_reqMergeCells = a})
reqAddNamedRange :: Lens' Request' (Maybe AddNamedRangeRequest)
reqAddNamedRange
= lens _reqAddNamedRange
(\ s a -> s{_reqAddNamedRange = a})
reqAddChart :: Lens' Request' (Maybe AddChartRequest)
reqAddChart
= lens _reqAddChart (\ s a -> s{_reqAddChart = a})
reqAddBanding :: Lens' Request' (Maybe AddBandingRequest)
reqAddBanding
= lens _reqAddBanding
(\ s a -> s{_reqAddBanding = a})
reqDuplicateSheet :: Lens' Request' (Maybe DuplicateSheetRequest)
reqDuplicateSheet
= lens _reqDuplicateSheet
(\ s a -> s{_reqDuplicateSheet = a})
reqAutoFill :: Lens' Request' (Maybe AutoFillRequest)
reqAutoFill
= lens _reqAutoFill (\ s a -> s{_reqAutoFill = a})
reqUpdateDimensionProperties :: Lens' Request' (Maybe UpdateDimensionPropertiesRequest)
reqUpdateDimensionProperties
= lens _reqUpdateDimensionProperties
(\ s a -> s{_reqUpdateDimensionProperties = a})
reqUpdateChartSpec :: Lens' Request' (Maybe UpdateChartSpecRequest)
reqUpdateChartSpec
= lens _reqUpdateChartSpec
(\ s a -> s{_reqUpdateChartSpec = a})
reqSetBasicFilter :: Lens' Request' (Maybe SetBasicFilterRequest)
reqSetBasicFilter
= lens _reqSetBasicFilter
(\ s a -> s{_reqSetBasicFilter = a})
reqTextToColumns :: Lens' Request' (Maybe TextToColumnsRequest)
reqTextToColumns
= lens _reqTextToColumns
(\ s a -> s{_reqTextToColumns = a})
reqAddDimensionGroup :: Lens' Request' (Maybe AddDimensionGroupRequest)
reqAddDimensionGroup
= lens _reqAddDimensionGroup
(\ s a -> s{_reqAddDimensionGroup = a})
reqUpdateSpreadsheetProperties :: Lens' Request' (Maybe UpdateSpreadsheetPropertiesRequest)
reqUpdateSpreadsheetProperties
= lens _reqUpdateSpreadsheetProperties
(\ s a -> s{_reqUpdateSpreadsheetProperties = a})
reqDeleteSheet :: Lens' Request' (Maybe DeleteSheetRequest)
reqDeleteSheet
= lens _reqDeleteSheet
(\ s a -> s{_reqDeleteSheet = a})
reqUnmergeCells :: Lens' Request' (Maybe UnmergeCellsRequest)
reqUnmergeCells
= lens _reqUnmergeCells
(\ s a -> s{_reqUnmergeCells = a})
reqUpdateBOrders :: Lens' Request' (Maybe UpdateBOrdersRequest)
reqUpdateBOrders
= lens _reqUpdateBOrders
(\ s a -> s{_reqUpdateBOrders = a})
reqAppendDimension :: Lens' Request' (Maybe AppendDimensionRequest)
reqAppendDimension
= lens _reqAppendDimension
(\ s a -> s{_reqAppendDimension = a})
reqSetDataValidation :: Lens' Request' (Maybe SetDataValidationRequest)
reqSetDataValidation
= lens _reqSetDataValidation
(\ s a -> s{_reqSetDataValidation = a})
instance FromJSON Request' where
parseJSON
= withObject "Request"
(\ o ->
Request'' <$>
(o .:? "addFilterView") <*>
(o .:? "deleteProtectedRange")
<*> (o .:? "updateProtectedRange")
<*> (o .:? "updateCells")
<*> (o .:? "createDeveloperMetadata")
<*> (o .:? "duplicateFilterView")
<*> (o .:? "addConditionalFormatRule")
<*> (o .:? "randomizeRange")
<*> (o .:? "sortRange")
<*> (o .:? "updateNamedRange")
<*> (o .:? "deleteNamedRange")
<*> (o .:? "insertRange")
<*> (o .:? "deleteBanding")
<*> (o .:? "updateBanding")
<*> (o .:? "clearBasicFilter")
<*> (o .:? "appendCells")
<*> (o .:? "pasteData")
<*> (o .:? "updateEmbeddedObjectPosition")
<*> (o .:? "deleteRange")
<*> (o .:? "copyPaste")
<*> (o .:? "updateDimensionGroup")
<*> (o .:? "deleteDimensionGroup")
<*> (o .:? "autoResizeDimensions")
<*> (o .:? "addSheet")
<*> (o .:? "findReplace")
<*> (o .:? "deleteDimension")
<*> (o .:? "cutPaste")
<*> (o .:? "moveDimension")
<*> (o .:? "repeatCell")
<*> (o .:? "addProtectedRange")
<*> (o .:? "updateFilterView")
<*> (o .:? "deleteFilterView")
<*> (o .:? "insertDimension")
<*> (o .:? "updateSheetProperties")
<*> (o .:? "deleteConditionalFormatRule")
<*> (o .:? "updateConditionalFormatRule")
<*> (o .:? "deleteEmbeddedObject")
<*> (o .:? "deleteDeveloperMetadata")
<*> (o .:? "updateDeveloperMetadata")
<*> (o .:? "mergeCells")
<*> (o .:? "addNamedRange")
<*> (o .:? "addChart")
<*> (o .:? "addBanding")
<*> (o .:? "duplicateSheet")
<*> (o .:? "autoFill")
<*> (o .:? "updateDimensionProperties")
<*> (o .:? "updateChartSpec")
<*> (o .:? "setBasicFilter")
<*> (o .:? "textToColumns")
<*> (o .:? "addDimensionGroup")
<*> (o .:? "updateSpreadsheetProperties")
<*> (o .:? "deleteSheet")
<*> (o .:? "unmergeCells")
<*> (o .:? "updateBorders")
<*> (o .:? "appendDimension")
<*> (o .:? "setDataValidation"))
instance ToJSON Request' where
toJSON Request''{..}
= object
(catMaybes
[("addFilterView" .=) <$> _reqAddFilterView,
("deleteProtectedRange" .=) <$>
_reqDeleteProtectedRange,
("updateProtectedRange" .=) <$>
_reqUpdateProtectedRange,
("updateCells" .=) <$> _reqUpdateCells,
("createDeveloperMetadata" .=) <$>
_reqCreateDeveloperMetadata,
("duplicateFilterView" .=) <$>
_reqDuplicateFilterView,
("addConditionalFormatRule" .=) <$>
_reqAddConditionalFormatRule,
("randomizeRange" .=) <$> _reqRandomizeRange,
("sortRange" .=) <$> _reqSortRange,
("updateNamedRange" .=) <$> _reqUpdateNamedRange,
("deleteNamedRange" .=) <$> _reqDeleteNamedRange,
("insertRange" .=) <$> _reqInsertRange,
("deleteBanding" .=) <$> _reqDeleteBanding,
("updateBanding" .=) <$> _reqUpdateBanding,
("clearBasicFilter" .=) <$> _reqClearBasicFilter,
("appendCells" .=) <$> _reqAppendCells,
("pasteData" .=) <$> _reqPasteData,
("updateEmbeddedObjectPosition" .=) <$>
_reqUpdateEmbeddedObjectPosition,
("deleteRange" .=) <$> _reqDeleteRange,
("copyPaste" .=) <$> _reqCopyPaste,
("updateDimensionGroup" .=) <$>
_reqUpdateDimensionGroup,
("deleteDimensionGroup" .=) <$>
_reqDeleteDimensionGroup,
("autoResizeDimensions" .=) <$>
_reqAutoResizeDimensions,
("addSheet" .=) <$> _reqAddSheet,
("findReplace" .=) <$> _reqFindReplace,
("deleteDimension" .=) <$> _reqDeleteDimension,
("cutPaste" .=) <$> _reqCutPaste,
("moveDimension" .=) <$> _reqMoveDimension,
("repeatCell" .=) <$> _reqRepeatCell,
("addProtectedRange" .=) <$> _reqAddProtectedRange,
("updateFilterView" .=) <$> _reqUpdateFilterView,
("deleteFilterView" .=) <$> _reqDeleteFilterView,
("insertDimension" .=) <$> _reqInsertDimension,
("updateSheetProperties" .=) <$>
_reqUpdateSheetProperties,
("deleteConditionalFormatRule" .=) <$>
_reqDeleteConditionalFormatRule,
("updateConditionalFormatRule" .=) <$>
_reqUpdateConditionalFormatRule,
("deleteEmbeddedObject" .=) <$>
_reqDeleteEmbeddedObject,
("deleteDeveloperMetadata" .=) <$>
_reqDeleteDeveloperMetadata,
("updateDeveloperMetadata" .=) <$>
_reqUpdateDeveloperMetadata,
("mergeCells" .=) <$> _reqMergeCells,
("addNamedRange" .=) <$> _reqAddNamedRange,
("addChart" .=) <$> _reqAddChart,
("addBanding" .=) <$> _reqAddBanding,
("duplicateSheet" .=) <$> _reqDuplicateSheet,
("autoFill" .=) <$> _reqAutoFill,
("updateDimensionProperties" .=) <$>
_reqUpdateDimensionProperties,
("updateChartSpec" .=) <$> _reqUpdateChartSpec,
("setBasicFilter" .=) <$> _reqSetBasicFilter,
("textToColumns" .=) <$> _reqTextToColumns,
("addDimensionGroup" .=) <$> _reqAddDimensionGroup,
("updateSpreadsheetProperties" .=) <$>
_reqUpdateSpreadsheetProperties,
("deleteSheet" .=) <$> _reqDeleteSheet,
("unmergeCells" .=) <$> _reqUnmergeCells,
("updateBorders" .=) <$> _reqUpdateBOrders,
("appendDimension" .=) <$> _reqAppendDimension,
("setDataValidation" .=) <$> _reqSetDataValidation])
data LineStyle = LineStyle'
{ _lsWidth :: !(Maybe (Textual Int32))
, _lsType :: !(Maybe LineStyleType)
} deriving (Eq,Show,Data,Typeable,Generic)
lineStyle
:: LineStyle
lineStyle =
LineStyle'
{ _lsWidth = Nothing
, _lsType = Nothing
}
lsWidth :: Lens' LineStyle (Maybe Int32)
lsWidth
= lens _lsWidth (\ s a -> s{_lsWidth = a}) .
mapping _Coerce
lsType :: Lens' LineStyle (Maybe LineStyleType)
lsType = lens _lsType (\ s a -> s{_lsType = a})
instance FromJSON LineStyle where
parseJSON
= withObject "LineStyle"
(\ o ->
LineStyle' <$> (o .:? "width") <*> (o .:? "type"))
instance ToJSON LineStyle where
toJSON LineStyle'{..}
= object
(catMaybes
[("width" .=) <$> _lsWidth, ("type" .=) <$> _lsType])
newtype DeleteConditionalFormatRuleResponse = DeleteConditionalFormatRuleResponse'
{ _dcfrrRule :: Maybe ConditionalFormatRule
} deriving (Eq,Show,Data,Typeable,Generic)
deleteConditionalFormatRuleResponse
:: DeleteConditionalFormatRuleResponse
deleteConditionalFormatRuleResponse =
DeleteConditionalFormatRuleResponse'
{ _dcfrrRule = Nothing
}
dcfrrRule :: Lens' DeleteConditionalFormatRuleResponse (Maybe ConditionalFormatRule)
dcfrrRule
= lens _dcfrrRule (\ s a -> s{_dcfrrRule = a})
instance FromJSON DeleteConditionalFormatRuleResponse
where
parseJSON
= withObject "DeleteConditionalFormatRuleResponse"
(\ o ->
DeleteConditionalFormatRuleResponse' <$>
(o .:? "rule"))
instance ToJSON DeleteConditionalFormatRuleResponse
where
toJSON DeleteConditionalFormatRuleResponse'{..}
= object (catMaybes [("rule" .=) <$> _dcfrrRule])
data UpdateConditionalFormatRuleResponse = UpdateConditionalFormatRuleResponse'
{ _uNewRule :: !(Maybe ConditionalFormatRule)
, _uNewIndex :: !(Maybe (Textual Int32))
, _uOldIndex :: !(Maybe (Textual Int32))
, _uOldRule :: !(Maybe ConditionalFormatRule)
} deriving (Eq,Show,Data,Typeable,Generic)
updateConditionalFormatRuleResponse
:: UpdateConditionalFormatRuleResponse
updateConditionalFormatRuleResponse =
UpdateConditionalFormatRuleResponse'
{ _uNewRule = Nothing
, _uNewIndex = Nothing
, _uOldIndex = Nothing
, _uOldRule = Nothing
}
uNewRule :: Lens' UpdateConditionalFormatRuleResponse (Maybe ConditionalFormatRule)
uNewRule = lens _uNewRule (\ s a -> s{_uNewRule = a})
uNewIndex :: Lens' UpdateConditionalFormatRuleResponse (Maybe Int32)
uNewIndex
= lens _uNewIndex (\ s a -> s{_uNewIndex = a}) .
mapping _Coerce
uOldIndex :: Lens' UpdateConditionalFormatRuleResponse (Maybe Int32)
uOldIndex
= lens _uOldIndex (\ s a -> s{_uOldIndex = a}) .
mapping _Coerce
uOldRule :: Lens' UpdateConditionalFormatRuleResponse (Maybe ConditionalFormatRule)
uOldRule = lens _uOldRule (\ s a -> s{_uOldRule = a})
instance FromJSON UpdateConditionalFormatRuleResponse
where
parseJSON
= withObject "UpdateConditionalFormatRuleResponse"
(\ o ->
UpdateConditionalFormatRuleResponse' <$>
(o .:? "newRule") <*> (o .:? "newIndex") <*>
(o .:? "oldIndex")
<*> (o .:? "oldRule"))
instance ToJSON UpdateConditionalFormatRuleResponse
where
toJSON UpdateConditionalFormatRuleResponse'{..}
= object
(catMaybes
[("newRule" .=) <$> _uNewRule,
("newIndex" .=) <$> _uNewIndex,
("oldIndex" .=) <$> _uOldIndex,
("oldRule" .=) <$> _uOldRule])