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 FieldMask)
} 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 FieldMask)
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])
data SpreadsheetProperties = SpreadsheetProperties'
{ _spDefaultFormat :: !(Maybe CellFormat)
, _spLocale :: !(Maybe Text)
, _spAutoRecalc :: !(Maybe SpreadsheetPropertiesAutoRecalc)
, _spTitle :: !(Maybe Text)
, _spTimeZone :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
spreadsheetProperties
:: SpreadsheetProperties
spreadsheetProperties =
SpreadsheetProperties'
{ _spDefaultFormat = Nothing
, _spLocale = 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})
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 .:? "autoRecalc")
<*> (o .:? "title")
<*> (o .:? "timeZone"))
instance ToJSON SpreadsheetProperties where
toJSON SpreadsheetProperties'{..}
= object
(catMaybes
[("defaultFormat" .=) <$> _spDefaultFormat,
("locale" .=) <$> _spLocale,
("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])
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 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 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 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'
{ _sData :: !(Maybe [GridData])
, _sMerges :: !(Maybe [GridRange])
, _sProtectedRanges :: !(Maybe [ProtectedRange])
, _sBandedRanges :: !(Maybe [BandedRange])
, _sCharts :: !(Maybe [EmbeddedChart])
, _sBasicFilter :: !(Maybe BasicFilter)
, _sConditionalFormats :: !(Maybe [ConditionalFormatRule])
, _sFilterViews :: !(Maybe [FilterView])
, _sProperties :: !(Maybe SheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
sheet
:: Sheet
sheet =
Sheet'
{ _sData = Nothing
, _sMerges = Nothing
, _sProtectedRanges = Nothing
, _sBandedRanges = Nothing
, _sCharts = Nothing
, _sBasicFilter = Nothing
, _sConditionalFormats = Nothing
, _sFilterViews = Nothing
, _sProperties = Nothing
}
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
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})
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 .:? "data" .!= mempty) <*>
(o .:? "merges" .!= mempty)
<*> (o .:? "protectedRanges" .!= mempty)
<*> (o .:? "bandedRanges" .!= mempty)
<*> (o .:? "charts" .!= mempty)
<*> (o .:? "basicFilter")
<*> (o .:? "conditionalFormats" .!= mempty)
<*> (o .:? "filterViews" .!= mempty)
<*> (o .:? "properties"))
instance ToJSON Sheet where
toJSON Sheet'{..}
= object
(catMaybes
[("data" .=) <$> _sData, ("merges" .=) <$> _sMerges,
("protectedRanges" .=) <$> _sProtectedRanges,
("bandedRanges" .=) <$> _sBandedRanges,
("charts" .=) <$> _sCharts,
("basicFilter" .=) <$> _sBasicFilter,
("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 FieldMask)
} 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 FieldMask)
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 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 FieldMask)
} 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 FieldMask)
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])
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 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 FieldMask)
} 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 FieldMask)
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'
{ _bcsTargetAxis :: !(Maybe BasicChartSeriesTargetAxis)
, _bcsSeries :: !(Maybe ChartData)
, _bcsType :: !(Maybe BasicChartSeriesType)
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartSeries
:: BasicChartSeries
basicChartSeries =
BasicChartSeries'
{ _bcsTargetAxis = Nothing
, _bcsSeries = Nothing
, _bcsType = Nothing
}
bcsTargetAxis :: Lens' BasicChartSeries (Maybe BasicChartSeriesTargetAxis)
bcsTargetAxis
= lens _bcsTargetAxis
(\ s a -> s{_bcsTargetAxis = a})
bcsSeries :: Lens' BasicChartSeries (Maybe ChartData)
bcsSeries
= lens _bcsSeries (\ s a -> s{_bcsSeries = a})
bcsType :: Lens' BasicChartSeries (Maybe BasicChartSeriesType)
bcsType = lens _bcsType (\ s a -> s{_bcsType = a})
instance FromJSON BasicChartSeries where
parseJSON
= withObject "BasicChartSeries"
(\ o ->
BasicChartSeries' <$>
(o .:? "targetAxis") <*> (o .:? "series") <*>
(o .:? "type"))
instance ToJSON BasicChartSeries where
toJSON BasicChartSeries'{..}
= object
(catMaybes
[("targetAxis" .=) <$> _bcsTargetAxis,
("series" .=) <$> _bcsSeries,
("type" .=) <$> _bcsType])
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 FieldMask)
} 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 FieldMask)
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 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 Response = Response'
{ _rAddFilterView :: !(Maybe AddFilterViewResponse)
, _rDuplicateFilterView :: !(Maybe DuplicateFilterViewResponse)
, _rUpdateEmbeddedObjectPosition :: !(Maybe UpdateEmbeddedObjectPositionResponse)
, _rAddSheet :: !(Maybe AddSheetResponse)
, _rFindReplace :: !(Maybe FindReplaceResponse)
, _rAddProtectedRange :: !(Maybe AddProtectedRangeResponse)
, _rDeleteConditionalFormatRule :: !(Maybe DeleteConditionalFormatRuleResponse)
, _rUpdateConditionalFormatRule :: !(Maybe UpdateConditionalFormatRuleResponse)
, _rAddNamedRange :: !(Maybe AddNamedRangeResponse)
, _rAddChart :: !(Maybe AddChartResponse)
, _rAddBanding :: !(Maybe AddBandingResponse)
, _rDuplicateSheet :: !(Maybe DuplicateSheetResponse)
} deriving (Eq,Show,Data,Typeable,Generic)
response
:: Response
response =
Response'
{ _rAddFilterView = Nothing
, _rDuplicateFilterView = Nothing
, _rUpdateEmbeddedObjectPosition = Nothing
, _rAddSheet = Nothing
, _rFindReplace = Nothing
, _rAddProtectedRange = Nothing
, _rDeleteConditionalFormatRule = Nothing
, _rUpdateConditionalFormatRule = Nothing
, _rAddNamedRange = Nothing
, _rAddChart = Nothing
, _rAddBanding = Nothing
, _rDuplicateSheet = Nothing
}
rAddFilterView :: Lens' Response (Maybe AddFilterViewResponse)
rAddFilterView
= lens _rAddFilterView
(\ s a -> s{_rAddFilterView = 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})
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})
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})
instance FromJSON Response where
parseJSON
= withObject "Response"
(\ o ->
Response' <$>
(o .:? "addFilterView") <*>
(o .:? "duplicateFilterView")
<*> (o .:? "updateEmbeddedObjectPosition")
<*> (o .:? "addSheet")
<*> (o .:? "findReplace")
<*> (o .:? "addProtectedRange")
<*> (o .:? "deleteConditionalFormatRule")
<*> (o .:? "updateConditionalFormatRule")
<*> (o .:? "addNamedRange")
<*> (o .:? "addChart")
<*> (o .:? "addBanding")
<*> (o .:? "duplicateSheet"))
instance ToJSON Response where
toJSON Response'{..}
= object
(catMaybes
[("addFilterView" .=) <$> _rAddFilterView,
("duplicateFilterView" .=) <$> _rDuplicateFilterView,
("updateEmbeddedObjectPosition" .=) <$>
_rUpdateEmbeddedObjectPosition,
("addSheet" .=) <$> _rAddSheet,
("findReplace" .=) <$> _rFindReplace,
("addProtectedRange" .=) <$> _rAddProtectedRange,
("deleteConditionalFormatRule" .=) <$>
_rDeleteConditionalFormatRule,
("updateConditionalFormatRule" .=) <$>
_rUpdateConditionalFormatRule,
("addNamedRange" .=) <$> _rAddNamedRange,
("addChart" .=) <$> _rAddChart,
("addBanding" .=) <$> _rAddBanding,
("duplicateSheet" .=) <$> _rDuplicateSheet])
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 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 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 FieldMask)
, _usprProperties :: !(Maybe SheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
updateSheetPropertiesRequest
:: UpdateSheetPropertiesRequest
updateSheetPropertiesRequest =
UpdateSheetPropertiesRequest'
{ _usprFields = Nothing
, _usprProperties = Nothing
}
usprFields :: Lens' UpdateSheetPropertiesRequest (Maybe FieldMask)
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)
, _sprProperties :: !(Maybe SpreadsheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
spreadsheet
:: Spreadsheet
spreadsheet =
Spreadsheet'
{ _sprSheets = Nothing
, _sprNamedRanges = Nothing
, _sprSpreadsheetId = Nothing
, _sprSpreadsheetURL = 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})
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 .:? "properties"))
instance ToJSON Spreadsheet where
toJSON Spreadsheet'{..}
= object
(catMaybes
[("sheets" .=) <$> _sprSheets,
("namedRanges" .=) <$> _sprNamedRanges,
("spreadsheetId" .=) <$> _sprSpreadsheetId,
("spreadsheetUrl" .=) <$> _sprSpreadsheetURL,
("properties" .=) <$> _sprProperties])
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])
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])
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 GridProperties = GridProperties'
{ _gpFrozenColumnCount :: !(Maybe (Textual Int32))
, _gpColumnCount :: !(Maybe (Textual Int32))
, _gpHideGridlines :: !(Maybe Bool)
, _gpFrozenRowCount :: !(Maybe (Textual Int32))
, _gpRowCount :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
gridProperties
:: GridProperties
gridProperties =
GridProperties'
{ _gpFrozenColumnCount = Nothing
, _gpColumnCount = Nothing
, _gpHideGridlines = Nothing
, _gpFrozenRowCount = 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
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
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 .:? "hideGridlines")
<*> (o .:? "frozenRowCount")
<*> (o .:? "rowCount"))
instance ToJSON GridProperties where
toJSON GridProperties'{..}
= object
(catMaybes
[("frozenColumnCount" .=) <$> _gpFrozenColumnCount,
("columnCount" .=) <$> _gpColumnCount,
("hideGridlines" .=) <$> _gpHideGridlines,
("frozenRowCount" .=) <$> _gpFrozenRowCount,
("rowCount" .=) <$> _gpRowCount])
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 FieldMask)
, _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 FieldMask)
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 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])
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])
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])
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])
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 FieldMask)
, _uProperties :: !(Maybe SpreadsheetProperties)
} deriving (Eq,Show,Data,Typeable,Generic)
updateSpreadsheetPropertiesRequest
:: UpdateSpreadsheetPropertiesRequest
updateSpreadsheetPropertiesRequest =
UpdateSpreadsheetPropertiesRequest'
{ _uFields = Nothing
, _uProperties = Nothing
}
uFields :: Lens' UpdateSpreadsheetPropertiesRequest (Maybe FieldMask)
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])
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)
, _pvSummarizeFunction :: !(Maybe PivotValueSummarizeFunction)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotValue
:: PivotValue
pivotValue =
PivotValue'
{ _pvSourceColumnOffSet = Nothing
, _pvFormula = Nothing
, _pvName = 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})
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 .:? "summarizeFunction"))
instance ToJSON PivotValue where
toJSON PivotValue'{..}
= object
(catMaybes
[("sourceColumnOffset" .=) <$> _pvSourceColumnOffSet,
("formula" .=) <$> _pvFormula,
("name" .=) <$> _pvName,
("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])
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 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 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 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 UpdateCellsRequest = UpdateCellsRequest'
{ _updStart :: !(Maybe GridCoordinate)
, _updRows :: !(Maybe [RowData])
, _updRange :: !(Maybe GridRange)
, _updFields :: !(Maybe FieldMask)
} 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 FieldMask)
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)
, _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
, _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})
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 .:? "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,
("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 FieldMask)
} 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 FieldMask)
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'
{ _bcaFormat :: !(Maybe TextFormat)
, _bcaTitle :: !(Maybe Text)
, _bcaPosition :: !(Maybe BasicChartAxisPosition)
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartAxis
:: BasicChartAxis
basicChartAxis =
BasicChartAxis'
{ _bcaFormat = Nothing
, _bcaTitle = Nothing
, _bcaPosition = Nothing
}
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 .:? "format") <*> (o .:? "title") <*>
(o .:? "position"))
instance ToJSON BasicChartAxis where
toJSON BasicChartAxis'{..}
= object
(catMaybes
[("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 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'
{ _pgValueMetadata :: !(Maybe [PivotGroupValueMetadata])
, _pgSourceColumnOffSet :: !(Maybe (Textual Int32))
, _pgSortOrder :: !(Maybe PivotGroupSortOrder)
, _pgShowTotals :: !(Maybe Bool)
, _pgValueBucket :: !(Maybe PivotGroupSortValueBucket)
} deriving (Eq,Show,Data,Typeable,Generic)
pivotGroup
:: PivotGroup
pivotGroup =
PivotGroup'
{ _pgValueMetadata = Nothing
, _pgSourceColumnOffSet = Nothing
, _pgSortOrder = Nothing
, _pgShowTotals = Nothing
, _pgValueBucket = Nothing
}
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})
instance FromJSON PivotGroup where
parseJSON
= withObject "PivotGroup"
(\ o ->
PivotGroup' <$>
(o .:? "valueMetadata" .!= mempty) <*>
(o .:? "sourceColumnOffset")
<*> (o .:? "sortOrder")
<*> (o .:? "showTotals")
<*> (o .:? "valueBucket"))
instance ToJSON PivotGroup where
toJSON PivotGroup'{..}
= object
(catMaybes
[("valueMetadata" .=) <$> _pgValueMetadata,
("sourceColumnOffset" .=) <$> _pgSourceColumnOffSet,
("sortOrder" .=) <$> _pgSortOrder,
("showTotals" .=) <$> _pgShowTotals,
("valueBucket" .=) <$> _pgValueBucket])
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 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'
{ _bHeaderCount :: !(Maybe (Textual Int32))
, _bLegendPosition :: !(Maybe BasicChartSpecLegendPosition)
, _bSeries :: !(Maybe [BasicChartSeries])
, _bChartType :: !(Maybe BasicChartSpecChartType)
, _bDomains :: !(Maybe [BasicChartDomain])
, _bAxis :: !(Maybe [BasicChartAxis])
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartSpec
:: BasicChartSpec
basicChartSpec =
BasicChartSpec'
{ _bHeaderCount = Nothing
, _bLegendPosition = Nothing
, _bSeries = Nothing
, _bChartType = Nothing
, _bDomains = Nothing
, _bAxis = Nothing
}
bHeaderCount :: Lens' BasicChartSpec (Maybe Int32)
bHeaderCount
= lens _bHeaderCount (\ s a -> s{_bHeaderCount = a})
. mapping _Coerce
bLegendPosition :: Lens' BasicChartSpec (Maybe BasicChartSpecLegendPosition)
bLegendPosition
= lens _bLegendPosition
(\ s a -> s{_bLegendPosition = a})
bSeries :: Lens' BasicChartSpec [BasicChartSeries]
bSeries
= lens _bSeries (\ s a -> s{_bSeries = a}) . _Default
. _Coerce
bChartType :: Lens' BasicChartSpec (Maybe BasicChartSpecChartType)
bChartType
= lens _bChartType (\ s a -> s{_bChartType = a})
bDomains :: Lens' BasicChartSpec [BasicChartDomain]
bDomains
= lens _bDomains (\ s a -> s{_bDomains = a}) .
_Default
. _Coerce
bAxis :: Lens' BasicChartSpec [BasicChartAxis]
bAxis
= lens _bAxis (\ s a -> s{_bAxis = a}) . _Default .
_Coerce
instance FromJSON BasicChartSpec where
parseJSON
= withObject "BasicChartSpec"
(\ o ->
BasicChartSpec' <$>
(o .:? "headerCount") <*> (o .:? "legendPosition")
<*> (o .:? "series" .!= mempty)
<*> (o .:? "chartType")
<*> (o .:? "domains" .!= mempty)
<*> (o .:? "axis" .!= mempty))
instance ToJSON BasicChartSpec where
toJSON BasicChartSpec'{..}
= object
(catMaybes
[("headerCount" .=) <$> _bHeaderCount,
("legendPosition" .=) <$> _bLegendPosition,
("series" .=) <$> _bSeries,
("chartType" .=) <$> _bChartType,
("domains" .=) <$> _bDomains,
("axis" .=) <$> _bAxis])
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])
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])
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])
newtype BasicChartDomain = BasicChartDomain'
{ _bcdDomain :: Maybe ChartData
} deriving (Eq,Show,Data,Typeable,Generic)
basicChartDomain
:: BasicChartDomain
basicChartDomain =
BasicChartDomain'
{ _bcdDomain = Nothing
}
bcdDomain :: Lens' BasicChartDomain (Maybe ChartData)
bcdDomain
= lens _bcdDomain (\ s a -> s{_bcdDomain = a})
instance FromJSON BasicChartDomain where
parseJSON
= withObject "BasicChartDomain"
(\ o -> BasicChartDomain' <$> (o .:? "domain"))
instance ToJSON BasicChartDomain where
toJSON BasicChartDomain'{..}
= object (catMaybes [("domain" .=) <$> _bcdDomain])
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'
{ _csTitle :: !(Maybe Text)
, _csPieChart :: !(Maybe PieChartSpec)
, _csBasicChart :: !(Maybe BasicChartSpec)
, _csHiddenDimensionStrategy :: !(Maybe ChartSpecHiddenDimensionStrategy)
} deriving (Eq,Show,Data,Typeable,Generic)
chartSpec
:: ChartSpec
chartSpec =
ChartSpec'
{ _csTitle = Nothing
, _csPieChart = Nothing
, _csBasicChart = Nothing
, _csHiddenDimensionStrategy = Nothing
}
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})
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 .:? "title") <*> (o .:? "pieChart") <*>
(o .:? "basicChart")
<*> (o .:? "hiddenDimensionStrategy"))
instance ToJSON ChartSpec where
toJSON ChartSpec'{..}
= object
(catMaybes
[("title" .=) <$> _csTitle,
("pieChart" .=) <$> _csPieChart,
("basicChart" .=) <$> _csBasicChart,
("hiddenDimensionStrategy" .=) <$>
_csHiddenDimensionStrategy])
data DimensionProperties = DimensionProperties'
{ _dpHiddenByFilter :: !(Maybe Bool)
, _dpPixelSize :: !(Maybe (Textual Int32))
, _dpHiddenByUser :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
dimensionProperties
:: DimensionProperties
dimensionProperties =
DimensionProperties'
{ _dpHiddenByFilter = Nothing
, _dpPixelSize = Nothing
, _dpHiddenByUser = 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})
instance FromJSON DimensionProperties where
parseJSON
= withObject "DimensionProperties"
(\ o ->
DimensionProperties' <$>
(o .:? "hiddenByFilter") <*> (o .:? "pixelSize") <*>
(o .:? "hiddenByUser"))
instance ToJSON DimensionProperties where
toJSON DimensionProperties'{..}
= object
(catMaybes
[("hiddenByFilter" .=) <$> _dpHiddenByFilter,
("pixelSize" .=) <$> _dpPixelSize,
("hiddenByUser" .=) <$> _dpHiddenByUser])
data UpdateBandingRequest = UpdateBandingRequest'
{ _ubrBandedRange :: !(Maybe BandedRange)
, _ubrFields :: !(Maybe FieldMask)
} 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 FieldMask)
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])
data Request' = Request''
{ _reqAddFilterView :: !(Maybe AddFilterViewRequest)
, _reqDeleteProtectedRange :: !(Maybe DeleteProtectedRangeRequest)
, _reqUpdateProtectedRange :: !(Maybe UpdateProtectedRangeRequest)
, _reqUpdateCells :: !(Maybe UpdateCellsRequest)
, _reqDuplicateFilterView :: !(Maybe DuplicateFilterViewRequest)
, _reqAddConditionalFormatRule :: !(Maybe AddConditionalFormatRuleRequest)
, _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)
, _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)
, _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)
, _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
, _reqDuplicateFilterView = Nothing
, _reqAddConditionalFormatRule = 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
, _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
, _reqMergeCells = Nothing
, _reqAddNamedRange = Nothing
, _reqAddChart = Nothing
, _reqAddBanding = Nothing
, _reqDuplicateSheet = Nothing
, _reqAutoFill = Nothing
, _reqUpdateDimensionProperties = Nothing
, _reqUpdateChartSpec = Nothing
, _reqSetBasicFilter = Nothing
, _reqTextToColumns = 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})
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})
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})
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})
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})
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 .:? "duplicateFilterView")
<*> (o .:? "addConditionalFormatRule")
<*> (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 .:? "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 .:? "mergeCells")
<*> (o .:? "addNamedRange")
<*> (o .:? "addChart")
<*> (o .:? "addBanding")
<*> (o .:? "duplicateSheet")
<*> (o .:? "autoFill")
<*> (o .:? "updateDimensionProperties")
<*> (o .:? "updateChartSpec")
<*> (o .:? "setBasicFilter")
<*> (o .:? "textToColumns")
<*> (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,
("duplicateFilterView" .=) <$>
_reqDuplicateFilterView,
("addConditionalFormatRule" .=) <$>
_reqAddConditionalFormatRule,
("sortRange" .=) <$> _reqSortRange,
("updateNamedRange" .=) <$> _reqUpdateNamedRange,
("deleteNamedRange" .=) <$> _reqDeleteNamedRange,
("insertRange" .=) <$> _reqInsertRange,
("deleteBanding" .=) <$> _reqDeleteBanding,
("updateBanding" .=) <$> _reqUpdateBanding,
("clearBasicFilter" .=) <$> _reqClearBasicFilter,
("appendCells" .=) <$> _reqAppendCells,
("pasteData" .=) <$> _reqPasteData,
("updateEmbeddedObjectPosition" .=) <$>
_reqUpdateEmbeddedObjectPosition,
("deleteRange" .=) <$> _reqDeleteRange,
("copyPaste" .=) <$> _reqCopyPaste,
("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,
("mergeCells" .=) <$> _reqMergeCells,
("addNamedRange" .=) <$> _reqAddNamedRange,
("addChart" .=) <$> _reqAddChart,
("addBanding" .=) <$> _reqAddBanding,
("duplicateSheet" .=) <$> _reqDuplicateSheet,
("autoFill" .=) <$> _reqAutoFill,
("updateDimensionProperties" .=) <$>
_reqUpdateDimensionProperties,
("updateChartSpec" .=) <$> _reqUpdateChartSpec,
("setBasicFilter" .=) <$> _reqSetBasicFilter,
("textToColumns" .=) <$> _reqTextToColumns,
("updateSpreadsheetProperties" .=) <$>
_reqUpdateSpreadsheetProperties,
("deleteSheet" .=) <$> _reqDeleteSheet,
("unmergeCells" .=) <$> _reqUnmergeCells,
("updateBorders" .=) <$> _reqUpdateBOrders,
("appendDimension" .=) <$> _reqAppendDimension,
("setDataValidation" .=) <$> _reqSetDataValidation])
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])