gogol-fusiontables 0.0.1 → 0.1.0

raw patch · 39 files changed

+349/−256 lines, 39 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/FusionTables.hs +5/−1
• gen/Network/Google/FusionTables/Types.hs +9/−8
• gen/Network/Google/FusionTables/Types/Product.hs +97/−97
• gen/Network/Google/FusionTables/Types/Sum.hs +1/−1
• gen/Network/Google/Resource/FusionTables/Column/Delete.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Column/Get.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Column/Insert.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Column/List.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Column/Patch.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Column/Update.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Query/SQL.hs +10/−5
• gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs +10/−5
• gen/Network/Google/Resource/FusionTables/Style/Delete.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Style/Get.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Style/Insert.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Style/List.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Style/Patch.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Style/Update.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Table/Copy.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Table/Delete.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Table/Get.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs +10/−7
• gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs +11/−7
• gen/Network/Google/Resource/FusionTables/Table/Insert.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Table/List.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Table/Patch.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs +11/−7
• gen/Network/Google/Resource/FusionTables/Table/Update.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Task/Delete.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Task/Get.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Task/List.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Template/Delete.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Template/Get.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Template/Insert.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Template/List.hs +7/−4
• gen/Network/Google/Resource/FusionTables/Template/Patch.hs +6/−4
• gen/Network/Google/Resource/FusionTables/Template/Update.hs +6/−4
• gogol-fusiontables.cabal +3/−3

@@ -8,7 +8,7 @@  ## Version -`0.0.1`+`0.1.0`   ## Description@@ -18,9 +18,9 @@  ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.   ## Licence

@@ -7,7 +7,7 @@  -- | -- Module      : Network.Google.FusionTables--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -20,6 +20,10 @@     (     -- * Service Configuration       fusionTablesService++    -- * OAuth Scopes+    , fusionTablesReadOnlyScope+    , fusionTablesScope      -- * API Declaration     , FusionTablesAPI

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.FusionTables.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -19,8 +20,8 @@       fusionTablesService      -- * OAuth Scopes-    , fusiontablesReadonlyScope-    , fusiontablesScope+    , fusionTablesReadOnlyScope+    , fusionTablesScope      -- * ColumnList     , ColumnList@@ -232,15 +233,15 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v2' of the Fusion Tables API. This contains the host and root path used as a starting point for constructing service requests.-fusionTablesService :: Service+fusionTablesService :: ServiceConfig fusionTablesService   = defaultService (ServiceId "fusiontables:v2")       "www.googleapis.com"  -- | View your Fusion Tables-fusiontablesReadonlyScope :: OAuthScope-fusiontablesReadonlyScope = "https://www.googleapis.com/auth/fusiontables.readonly";+fusionTablesReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/fusiontables.readonly"]+fusionTablesReadOnlyScope = Proxy;  -- | Manage your Fusion Tables-fusiontablesScope :: OAuthScope-fusiontablesScope = "https://www.googleapis.com/auth/fusiontables";+fusionTablesScope :: Proxy '["https://www.googleapis.com/auth/fusiontables"]+fusionTablesScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.FusionTables.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -23,7 +23,7 @@ -- | Represents a list of columns in a table. -- -- /See:/ 'columnList' smart constructor.-data ColumnList = ColumnList+data ColumnList = ColumnList'     { _clTotalItems    :: !(Maybe (Textual Int32))     , _clNextPageToken :: !(Maybe Text)     , _clKind          :: !Text@@ -44,7 +44,7 @@ columnList     :: ColumnList columnList =-    ColumnList+    ColumnList'     { _clTotalItems = Nothing     , _clNextPageToken = Nothing     , _clKind = "fusiontables#columnList"@@ -79,13 +79,13 @@         parseJSON           = withObject "ColumnList"               (\ o ->-                 ColumnList <$>+                 ColumnList' <$>                    (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "fusiontables#columnList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON ColumnList where-        toJSON ColumnList{..}+        toJSON ColumnList'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _clTotalItems,@@ -95,7 +95,7 @@ -- | Represents a list of tables. -- -- /See:/ 'tableList' smart constructor.-data TableList = TableList+data TableList = TableList'     { _tlNextPageToken :: !(Maybe Text)     , _tlKind          :: !Text     , _tlItems         :: !(Maybe [Table])@@ -113,7 +113,7 @@ tableList     :: TableList tableList =-    TableList+    TableList'     { _tlNextPageToken = Nothing     , _tlKind = "fusiontables#tableList"     , _tlItems = Nothing@@ -141,13 +141,13 @@         parseJSON           = withObject "TableList"               (\ o ->-                 TableList <$>+                 TableList' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "fusiontables#tableList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON TableList where-        toJSON TableList{..}+        toJSON TableList'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _tlNextPageToken,@@ -156,7 +156,7 @@ -- | Represents a StyleFunction within a StyleSetting -- -- /See:/ 'styleFunction' smart constructor.-data StyleFunction = StyleFunction+data StyleFunction = StyleFunction'     { _sfBuckets    :: !(Maybe [Bucket])     , _sfKind       :: !(Maybe Text)     , _sfGradient   :: !(Maybe StyleFunctionGradient)@@ -177,7 +177,7 @@ styleFunction     :: StyleFunction styleFunction =-    StyleFunction+    StyleFunction'     { _sfBuckets = Nothing     , _sfKind = Nothing     , _sfGradient = Nothing@@ -217,13 +217,13 @@         parseJSON           = withObject "StyleFunction"               (\ o ->-                 StyleFunction <$>+                 StyleFunction' <$>                    (o .:? "buckets" .!= mempty) <*> (o .:? "kind") <*>                      (o .:? "gradient")                      <*> (o .:? "columnName"))  instance ToJSON StyleFunction where-        toJSON StyleFunction{..}+        toJSON StyleFunction'{..}           = object               (catMaybes                  [("buckets" .=) <$> _sfBuckets,@@ -235,7 +235,7 @@ -- the specified base column. -- -- /See:/ 'columnBaseColumn' smart constructor.-data ColumnBaseColumn = ColumnBaseColumn+data ColumnBaseColumn = ColumnBaseColumn'     { _cbcTableIndex :: !(Maybe (Textual Int32))     , _cbcColumnId   :: !(Maybe (Textual Int32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -250,7 +250,7 @@ columnBaseColumn     :: ColumnBaseColumn columnBaseColumn =-    ColumnBaseColumn+    ColumnBaseColumn'     { _cbcTableIndex = Nothing     , _cbcColumnId = Nothing     }@@ -273,11 +273,11 @@         parseJSON           = withObject "ColumnBaseColumn"               (\ o ->-                 ColumnBaseColumn <$>+                 ColumnBaseColumn' <$>                    (o .:? "tableIndex") <*> (o .:? "columnId"))  instance ToJSON ColumnBaseColumn where-        toJSON ColumnBaseColumn{..}+        toJSON ColumnBaseColumn'{..}           = object               (catMaybes                  [("tableIndex" .=) <$> _cbcTableIndex,@@ -286,7 +286,7 @@ -- | Represents a response to a SQL statement. -- -- /See:/ 'sQLresponse' smart constructor.-data SQLresponse = SQLresponse+data SQLresponse = SQLresponse'     { _sqlKind    :: !Text     , _sqlRows    :: !(Maybe [[JSONValue]])     , _sqlColumns :: !(Maybe [Text])@@ -304,7 +304,7 @@ sQLresponse     :: SQLresponse sQLresponse =-    SQLresponse+    SQLresponse'     { _sqlKind = "fusiontables#sqlresponse"     , _sqlRows = Nothing     , _sqlColumns = Nothing@@ -334,13 +334,13 @@         parseJSON           = withObject "SQLresponse"               (\ o ->-                 SQLresponse <$>+                 SQLresponse' <$>                    (o .:? "kind" .!= "fusiontables#sqlresponse") <*>                      (o .:? "rows" .!= mempty)                      <*> (o .:? "columns" .!= mempty))  instance ToJSON SQLresponse where-        toJSON SQLresponse{..}+        toJSON SQLresponse'{..}           = object               (catMaybes                  [Just ("kind" .= _sqlKind), ("rows" .=) <$> _sqlRows,@@ -348,7 +348,7 @@  -- -- /See:/ 'styleFunctionGradientColorsItem' smart constructor.-data StyleFunctionGradientColorsItem = StyleFunctionGradientColorsItem+data StyleFunctionGradientColorsItem = StyleFunctionGradientColorsItem'     { _sfgciColor   :: !(Maybe Text)     , _sfgciOpacity :: !(Maybe (Textual Double))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -363,7 +363,7 @@ styleFunctionGradientColorsItem     :: StyleFunctionGradientColorsItem styleFunctionGradientColorsItem =-    StyleFunctionGradientColorsItem+    StyleFunctionGradientColorsItem'     { _sfgciColor = Nothing     , _sfgciOpacity = Nothing     }@@ -384,11 +384,11 @@         parseJSON           = withObject "StyleFunctionGradientColorsItem"               (\ o ->-                 StyleFunctionGradientColorsItem <$>+                 StyleFunctionGradientColorsItem' <$>                    (o .:? "color") <*> (o .:? "opacity"))  instance ToJSON StyleFunctionGradientColorsItem where-        toJSON StyleFunctionGradientColorsItem{..}+        toJSON StyleFunctionGradientColorsItem'{..}           = object               (catMaybes                  [("color" .=) <$> _sfgciColor,@@ -397,7 +397,7 @@ -- | Represents a list of styles for a given table. -- -- /See:/ 'styleSettingList' smart constructor.-data StyleSettingList = StyleSettingList+data StyleSettingList = StyleSettingList'     { _sslTotalItems    :: !(Maybe (Textual Int32))     , _sslNextPageToken :: !(Maybe Text)     , _sslKind          :: !Text@@ -418,7 +418,7 @@ styleSettingList     :: StyleSettingList styleSettingList =-    StyleSettingList+    StyleSettingList'     { _sslTotalItems = Nothing     , _sslNextPageToken = Nothing     , _sslKind = "fusiontables#styleSettingList"@@ -455,13 +455,13 @@         parseJSON           = withObject "StyleSettingList"               (\ o ->-                 StyleSettingList <$>+                 StyleSettingList' <$>                    (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "fusiontables#styleSettingList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON StyleSettingList where-        toJSON StyleSettingList{..}+        toJSON StyleSettingList'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _sslTotalItems,@@ -473,7 +473,7 @@ -- weight of a bucket within a StyleSetting. -- -- /See:/ 'bucket' smart constructor.-data Bucket = Bucket+data Bucket = Bucket'     { _bMax     :: !(Maybe (Textual Double))     , _bColor   :: !(Maybe Text)     , _bWeight  :: !(Maybe (Textual Int32))@@ -500,7 +500,7 @@ bucket     :: Bucket bucket =-    Bucket+    Bucket'     { _bMax = Nothing     , _bColor = Nothing     , _bWeight = Nothing@@ -547,7 +547,7 @@         parseJSON           = withObject "Bucket"               (\ o ->-                 Bucket <$>+                 Bucket' <$>                    (o .:? "max") <*> (o .:? "color") <*>                      (o .:? "weight")                      <*> (o .:? "icon")@@ -555,7 +555,7 @@                      <*> (o .:? "min"))  instance ToJSON Bucket where-        toJSON Bucket{..}+        toJSON Bucket'{..}           = object               (catMaybes                  [("max" .=) <$> _bMax, ("color" .=) <$> _bColor,@@ -565,7 +565,7 @@ -- | Represents a line geometry. -- -- /See:/ 'line' smart constructor.-data Line = Line+data Line = Line'     { _lCoordinates :: !(Maybe [[Textual Double]])     , _lType        :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -580,7 +580,7 @@ line     :: Line line =-    Line+    Line'     { _lCoordinates = Nothing     , _lType = "LineString"     }@@ -600,12 +600,12 @@         parseJSON           = withObject "Line"               (\ o ->-                 Line <$>+                 Line' <$>                    (o .:? "coordinates" .!= mempty) <*>                      (o .:? "type" .!= "LineString"))  instance ToJSON Line where-        toJSON Line{..}+        toJSON Line'{..}           = object               (catMaybes                  [("coordinates" .=) <$> _lCoordinates,@@ -615,7 +615,7 @@ -- combination of the tableId and a styleId. -- -- /See:/ 'styleSetting' smart constructor.-data StyleSetting = StyleSetting+data StyleSetting = StyleSetting'     { _ssPolylineOptions :: !(Maybe LineStyle)     , _ssPolygonOptions  :: !(Maybe PolygonStyle)     , _ssMarkerOptions   :: !(Maybe PointStyle)@@ -645,7 +645,7 @@ styleSetting     :: StyleSetting styleSetting =-    StyleSetting+    StyleSetting'     { _ssPolylineOptions = Nothing     , _ssPolygonOptions = Nothing     , _ssMarkerOptions = Nothing@@ -699,7 +699,7 @@         parseJSON           = withObject "StyleSetting"               (\ o ->-                 StyleSetting <$>+                 StyleSetting' <$>                    (o .:? "polylineOptions") <*>                      (o .:? "polygonOptions")                      <*> (o .:? "markerOptions")@@ -709,7 +709,7 @@                      <*> (o .:? "tableId"))  instance ToJSON StyleSetting where-        toJSON StyleSetting{..}+        toJSON StyleSetting'{..}           = object               (catMaybes                  [("polylineOptions" .=) <$> _ssPolylineOptions,@@ -722,7 +722,7 @@ -- | Represents a point object. -- -- /See:/ 'point' smart constructor.-data Point = Point+data Point = Point'     { _pCoordinates :: !(Maybe [Textual Double])     , _pType        :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -737,7 +737,7 @@ point     :: Point point =-    Point+    Point'     { _pCoordinates = Nothing     , _pType = "Point"     }@@ -757,12 +757,12 @@         parseJSON           = withObject "Point"               (\ o ->-                 Point <$>+                 Point' <$>                    (o .:? "coordinates" .!= mempty) <*>                      (o .:? "type" .!= "Point"))  instance ToJSON Point where-        toJSON Point{..}+        toJSON Point'{..}           = object               (catMaybes                  [("coordinates" .=) <$> _pCoordinates,@@ -771,7 +771,7 @@ -- | Represents a polygon object. -- -- /See:/ 'polygon' smart constructor.-data Polygon = Polygon+data Polygon = Polygon'     { _polCoordinates :: !(Maybe [[[Textual Double]]])     , _polType        :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -786,7 +786,7 @@ polygon     :: Polygon polygon =-    Polygon+    Polygon'     { _polCoordinates = Nothing     , _polType = "Polygon"     }@@ -807,12 +807,12 @@         parseJSON           = withObject "Polygon"               (\ o ->-                 Polygon <$>+                 Polygon' <$>                    (o .:? "coordinates" .!= mempty) <*>                      (o .:? "type" .!= "Polygon"))  instance ToJSON Polygon where-        toJSON Polygon{..}+        toJSON Polygon'{..}           = object               (catMaybes                  [("coordinates" .=) <$> _polCoordinates,@@ -821,7 +821,7 @@ -- | Represents a list of tasks for a table. -- -- /See:/ 'taskList' smart constructor.-data TaskList = TaskList+data TaskList = TaskList'     { _tTotalItems    :: !(Maybe (Textual Int32))     , _tNextPageToken :: !(Maybe Text)     , _tKind          :: !Text@@ -842,7 +842,7 @@ taskList     :: TaskList taskList =-    TaskList+    TaskList'     { _tTotalItems = Nothing     , _tNextPageToken = Nothing     , _tKind = "fusiontables#taskList"@@ -876,13 +876,13 @@         parseJSON           = withObject "TaskList"               (\ o ->-                 TaskList <$>+                 TaskList' <$>                    (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "fusiontables#taskList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON TaskList where-        toJSON TaskList{..}+        toJSON TaskList'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _tTotalItems,@@ -892,7 +892,7 @@ -- | Represents a Geometry object. -- -- /See:/ 'geometry' smart constructor.-data Geometry = Geometry+data Geometry = Geometry'     { _gGeometries :: !(Maybe [JSONValue])     , _gGeometry   :: !(Maybe JSONValue)     , _gType       :: !Text@@ -910,7 +910,7 @@ geometry     :: Geometry geometry =-    Geometry+    Geometry'     { _gGeometries = Nothing     , _gGeometry = Nothing     , _gType = "GeometryCollection"@@ -935,13 +935,13 @@         parseJSON           = withObject "Geometry"               (\ o ->-                 Geometry <$>+                 Geometry' <$>                    (o .:? "geometries" .!= mempty) <*>                      (o .:? "geometry")                      <*> (o .:? "type" .!= "GeometryCollection"))  instance ToJSON Geometry where-        toJSON Geometry{..}+        toJSON Geometry'{..}           = object               (catMaybes                  [("geometries" .=) <$> _gGeometries,@@ -951,7 +951,7 @@ -- | Represents a list of templates for a given table. -- -- /See:/ 'templateList' smart constructor.-data TemplateList = TemplateList+data TemplateList = TemplateList'     { _temTotalItems    :: !(Maybe (Textual Int32))     , _temNextPageToken :: !(Maybe Text)     , _temKind          :: !Text@@ -972,7 +972,7 @@ templateList     :: TemplateList templateList =-    TemplateList+    TemplateList'     { _temTotalItems = Nothing     , _temNextPageToken = Nothing     , _temKind = "fusiontables#templateList"@@ -1009,13 +1009,13 @@         parseJSON           = withObject "TemplateList"               (\ o ->-                 TemplateList <$>+                 TemplateList' <$>                    (o .:? "totalItems") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "fusiontables#templateList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON TemplateList where-        toJSON TemplateList{..}+        toJSON TemplateList'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _temTotalItems,@@ -1026,7 +1026,7 @@ -- | Represents an import request. -- -- /See:/ 'import'' smart constructor.-data Import = Import+data Import = Import'     { _iKind            :: !Text     , _iNumRowsReceived :: !(Maybe (Textual Int64))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1041,7 +1041,7 @@ import'     :: Import import' =-    Import+    Import'     { _iKind = "fusiontables#import"     , _iNumRowsReceived = Nothing     }@@ -1062,12 +1062,12 @@         parseJSON           = withObject "Import"               (\ o ->-                 Import <$>+                 Import' <$>                    (o .:? "kind" .!= "fusiontables#import") <*>                      (o .:? "numRowsReceived"))  instance ToJSON Import where-        toJSON Import{..}+        toJSON Import'{..}           = object               (catMaybes                  [Just ("kind" .= _iKind),@@ -1077,7 +1077,7 @@ -- operations such as changing column types or deleting all rows. -- -- /See:/ 'task' smart constructor.-data Task = Task+data Task = Task'     { _tasProgress :: !(Maybe Text)     , _tasTaskId   :: !(Maybe (Textual Int64))     , _tasKind     :: !Text@@ -1101,7 +1101,7 @@ task     :: Task task =-    Task+    Task'     { _tasProgress = Nothing     , _tasTaskId = Nothing     , _tasKind = "fusiontables#task"@@ -1138,14 +1138,14 @@         parseJSON           = withObject "Task"               (\ o ->-                 Task <$>+                 Task' <$>                    (o .:? "progress") <*> (o .:? "taskId") <*>                      (o .:? "kind" .!= "fusiontables#task")                      <*> (o .:? "type")                      <*> (o .:? "started"))  instance ToJSON Task where-        toJSON Task{..}+        toJSON Task'{..}           = object               (catMaybes                  [("progress" .=) <$> _tasProgress,@@ -1156,7 +1156,7 @@ -- | Represents the contents of InfoWindow templates. -- -- /See:/ 'template' smart constructor.-data Template = Template+data Template = Template'     { _ttAutomaticColumnNames :: !(Maybe [Text])     , _ttTemplateId           :: !(Maybe (Textual Int32))     , _ttKind                 :: !Text@@ -1183,7 +1183,7 @@ template     :: Template template =-    Template+    Template'     { _ttAutomaticColumnNames = Nothing     , _ttTemplateId = Nothing     , _ttKind = "fusiontables#template"@@ -1233,7 +1233,7 @@         parseJSON           = withObject "Template"               (\ o ->-                 Template <$>+                 Template' <$>                    (o .:? "automaticColumnNames" .!= mempty) <*>                      (o .:? "templateId")                      <*> (o .:? "kind" .!= "fusiontables#template")@@ -1242,7 +1242,7 @@                      <*> (o .:? "tableId"))  instance ToJSON Template where-        toJSON Template{..}+        toJSON Template'{..}           = object               (catMaybes                  [("automaticColumnNames" .=) <$>@@ -1255,7 +1255,7 @@ -- | Represents a PointStyle within a StyleSetting -- -- /See:/ 'pointStyle' smart constructor.-data PointStyle = PointStyle+data PointStyle = PointStyle'     { _psIconName   :: !(Maybe Text)     , _psIconStyler :: !(Maybe StyleFunction)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1270,7 +1270,7 @@ pointStyle     :: PointStyle pointStyle =-    PointStyle+    PointStyle'     { _psIconName = Nothing     , _psIconStyler = Nothing     }@@ -1290,11 +1290,11 @@         parseJSON           = withObject "PointStyle"               (\ o ->-                 PointStyle <$>+                 PointStyle' <$>                    (o .:? "iconName") <*> (o .:? "iconStyler"))  instance ToJSON PointStyle where-        toJSON PointStyle{..}+        toJSON PointStyle'{..}           = object               (catMaybes                  [("iconName" .=) <$> _psIconName,@@ -1303,7 +1303,7 @@ -- | Represents a PolygonStyle within a StyleSetting -- -- /See:/ 'polygonStyle' smart constructor.-data PolygonStyle = PolygonStyle+data PolygonStyle = PolygonStyle'     { _psFillColorStyler    :: !(Maybe StyleFunction)     , _psFillColor          :: !(Maybe Text)     , _psStrokeColorStyler  :: !(Maybe StyleFunction)@@ -1336,7 +1336,7 @@ polygonStyle     :: PolygonStyle polygonStyle =-    PolygonStyle+    PolygonStyle'     { _psFillColorStyler = Nothing     , _psFillColor = Nothing     , _psStrokeColorStyler = Nothing@@ -1405,7 +1405,7 @@         parseJSON           = withObject "PolygonStyle"               (\ o ->-                 PolygonStyle <$>+                 PolygonStyle' <$>                    (o .:? "fillColorStyler") <*> (o .:? "fillColor") <*>                      (o .:? "strokeColorStyler")                      <*> (o .:? "strokeWeight")@@ -1415,7 +1415,7 @@                      <*> (o .:? "strokeColor"))  instance ToJSON PolygonStyle where-        toJSON PolygonStyle{..}+        toJSON PolygonStyle'{..}           = object               (catMaybes                  [("fillColorStyler" .=) <$> _psFillColorStyler,@@ -1431,7 +1431,7 @@ -- value. -- -- /See:/ 'styleFunctionGradient' smart constructor.-data StyleFunctionGradient = StyleFunctionGradient+data StyleFunctionGradient = StyleFunctionGradient'     { _sfgMax    :: !(Maybe (Textual Double))     , _sfgMin    :: !(Maybe (Textual Double))     , _sfgColors :: !(Maybe [StyleFunctionGradientColorsItem])@@ -1449,7 +1449,7 @@ styleFunctionGradient     :: StyleFunctionGradient styleFunctionGradient =-    StyleFunctionGradient+    StyleFunctionGradient'     { _sfgMax = Nothing     , _sfgMin = Nothing     , _sfgColors = Nothing@@ -1480,12 +1480,12 @@         parseJSON           = withObject "StyleFunctionGradient"               (\ o ->-                 StyleFunctionGradient <$>+                 StyleFunctionGradient' <$>                    (o .:? "max") <*> (o .:? "min") <*>                      (o .:? "colors" .!= mempty))  instance ToJSON StyleFunctionGradient where-        toJSON StyleFunctionGradient{..}+        toJSON StyleFunctionGradient'{..}           = object               (catMaybes                  [("max" .=) <$> _sfgMax, ("min" .=) <$> _sfgMin,@@ -1494,7 +1494,7 @@ -- | Specifies the details of a column in a table. -- -- /See:/ 'column' smart constructor.-data Column = Column+data Column = Column'     { _cColumnJSONSchema     :: !(Maybe Text)     , _cGraphPredicate       :: !(Maybe Text)     , _cKind                 :: !Text@@ -1539,7 +1539,7 @@ column     :: Column column =-    Column+    Column'     { _cColumnJSONSchema = Nothing     , _cGraphPredicate = Nothing     , _cKind = "fusiontables#column"@@ -1651,7 +1651,7 @@         parseJSON           = withObject "Column"               (\ o ->-                 Column <$>+                 Column' <$>                    (o .:? "columnJsonSchema") <*>                      (o .:? "graphPredicate")                      <*> (o .:? "kind" .!= "fusiontables#column")@@ -1666,7 +1666,7 @@                      <*> (o .:? "description"))  instance ToJSON Column where-        toJSON Column{..}+        toJSON Column'{..}           = object               (catMaybes                  [("columnJsonSchema" .=) <$> _cColumnJSONSchema,@@ -1685,7 +1685,7 @@ -- | Represents a table. -- -- /See:/ 'table' smart constructor.-data Table = Table+data Table = Table'     { _tabaIsExportable               :: !(Maybe Bool)     , _tabaKind                       :: !Text     , _tabaColumnPropertiesJSONSchema :: !(Maybe Text)@@ -1733,7 +1733,7 @@ table     :: Table table =-    Table+    Table'     { _tabaIsExportable = Nothing     , _tabaKind = "fusiontables#table"     , _tabaColumnPropertiesJSONSchema = Nothing@@ -1828,7 +1828,7 @@         parseJSON           = withObject "Table"               (\ o ->-                 Table <$>+                 Table' <$>                    (o .:? "isExportable") <*>                      (o .:? "kind" .!= "fusiontables#table")                      <*> (o .:? "columnPropertiesJsonSchema")@@ -1844,7 +1844,7 @@                      <*> (o .:? "attributionLink"))  instance ToJSON Table where-        toJSON Table{..}+        toJSON Table'{..}           = object               (catMaybes                  [("isExportable" .=) <$> _tabaIsExportable,@@ -1867,7 +1867,7 @@ -- | Represents a LineStyle within a StyleSetting -- -- /See:/ 'lineStyle' smart constructor.-data LineStyle = LineStyle+data LineStyle = LineStyle'     { _lsStrokeColorStyler  :: !(Maybe StyleFunction)     , _lsStrokeWeight       :: !(Maybe (Textual Int32))     , _lsStrokeOpacity      :: !(Maybe (Textual Double))@@ -1891,7 +1891,7 @@ lineStyle     :: LineStyle lineStyle =-    LineStyle+    LineStyle'     { _lsStrokeColorStyler = Nothing     , _lsStrokeWeight = Nothing     , _lsStrokeOpacity = Nothing@@ -1937,7 +1937,7 @@         parseJSON           = withObject "LineStyle"               (\ o ->-                 LineStyle <$>+                 LineStyle' <$>                    (o .:? "strokeColorStyler") <*>                      (o .:? "strokeWeight")                      <*> (o .:? "strokeOpacity")@@ -1945,7 +1945,7 @@                      <*> (o .:? "strokeColor"))  instance ToJSON LineStyle where-        toJSON LineStyle{..}+        toJSON LineStyle'{..}           = object               (catMaybes                  [("strokeColorStyler" .=) <$> _lsStrokeColorStyler,

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.FusionTables.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Column.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Deletes the specified column. -- -- /See:/ 'columnDelete' smart constructor.-data ColumnDelete = ColumnDelete+data ColumnDelete = ColumnDelete'     { _cdTableId  :: !Text     , _cdColumnId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'cdColumnId'     -> ColumnDelete columnDelete pCdTableId_ pCdColumnId_ =-    ColumnDelete+    ColumnDelete'     { _cdTableId = pCdTableId_     , _cdColumnId = pCdColumnId_     }@@ -88,7 +88,9 @@  instance GoogleRequest ColumnDelete where         type Rs ColumnDelete = ()-        requestClient ColumnDelete{..}+        type Scopes ColumnDelete =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient ColumnDelete'{..}           = go _cdTableId _cdColumnId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Column.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Retrieves a specific column by its ID. -- -- /See:/ 'columnGet' smart constructor.-data ColumnGet = ColumnGet+data ColumnGet = ColumnGet'     { _cgTableId  :: !Text     , _cgColumnId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'cgColumnId'     -> ColumnGet columnGet pCgTableId_ pCgColumnId_ =-    ColumnGet+    ColumnGet'     { _cgTableId = pCgTableId_     , _cgColumnId = pCgColumnId_     }@@ -88,7 +88,10 @@  instance GoogleRequest ColumnGet where         type Rs ColumnGet = Column-        requestClient ColumnGet{..}+        type Scopes ColumnGet =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient ColumnGet'{..}           = go _cgTableId _cgColumnId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Column.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Adds a new column to the table. -- -- /See:/ 'columnInsert' smart constructor.-data ColumnInsert = ColumnInsert+data ColumnInsert = ColumnInsert'     { _ciPayload :: !Column     , _ciTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'ciTableId'     -> ColumnInsert columnInsert pCiPayload_ pCiTableId_ =-    ColumnInsert+    ColumnInsert'     { _ciPayload = pCiPayload_     , _ciTableId = pCiTableId_     }@@ -88,7 +88,9 @@  instance GoogleRequest ColumnInsert where         type Rs ColumnInsert = Column-        requestClient ColumnInsert{..}+        type Scopes ColumnInsert =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient ColumnInsert'{..}           = go _ciTableId (Just AltJSON) _ciPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Column.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Retrieves a list of columns. -- -- /See:/ 'columnList'' smart constructor.-data ColumnList' = ColumnList'+data ColumnList' = ColumnList''     { _clPageToken  :: !(Maybe Text)     , _clTableId    :: !Text     , _clMaxResults :: !(Maybe (Textual Word32))@@ -75,7 +75,7 @@     :: Text -- ^ 'clTableId'     -> ColumnList' columnList' pClTableId_ =-    ColumnList'+    ColumnList''     { _clPageToken = Nothing     , _clTableId = pClTableId_     , _clMaxResults = Nothing@@ -99,7 +99,10 @@  instance GoogleRequest ColumnList' where         type Rs ColumnList' = ColumnList-        requestClient ColumnList'{..}+        type Scopes ColumnList' =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient ColumnList''{..}           = go _clTableId _clPageToken _clMaxResults               (Just AltJSON)               fusionTablesService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Column.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- patch semantics. -- -- /See:/ 'columnPatch' smart constructor.-data ColumnPatch = ColumnPatch+data ColumnPatch = ColumnPatch'     { _cpPayload  :: !Column     , _cpTableId  :: !Text     , _cpColumnId :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'cpColumnId'     -> ColumnPatch columnPatch pCpPayload_ pCpTableId_ pCpColumnId_ =-    ColumnPatch+    ColumnPatch'     { _cpPayload = pCpPayload_     , _cpTableId = pCpTableId_     , _cpColumnId = pCpColumnId_@@ -102,7 +102,9 @@  instance GoogleRequest ColumnPatch where         type Rs ColumnPatch = Column-        requestClient ColumnPatch{..}+        type Scopes ColumnPatch =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient ColumnPatch'{..}           = go _cpTableId _cpColumnId (Just AltJSON) _cpPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Column.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Updates the name or type of an existing column. -- -- /See:/ 'columnUpdate' smart constructor.-data ColumnUpdate = ColumnUpdate+data ColumnUpdate = ColumnUpdate'     { _cuPayload  :: !Column     , _cuTableId  :: !Text     , _cuColumnId :: !Text@@ -77,7 +77,7 @@     -> Text -- ^ 'cuColumnId'     -> ColumnUpdate columnUpdate pCuPayload_ pCuTableId_ pCuColumnId_ =-    ColumnUpdate+    ColumnUpdate'     { _cuPayload = pCuPayload_     , _cuTableId = pCuTableId_     , _cuColumnId = pCuColumnId_@@ -100,7 +100,9 @@  instance GoogleRequest ColumnUpdate where         type Rs ColumnUpdate = Column-        requestClient ColumnUpdate{..}+        type Scopes ColumnUpdate =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient ColumnUpdate'{..}           = go _cuTableId _cuColumnId (Just AltJSON) _cuPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Query.SQL--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@ -- INSERT - UPDATE - DELETE - SHOW - DESCRIBE - CREATE statement. -- -- /See:/ 'querySQL' smart constructor.-data QuerySQL = QuerySQL+data QuerySQL = QuerySQL'     { _qsqlTyped :: !(Maybe Bool)     , _qsqlHdrs  :: !(Maybe Bool)     , _qsqlSQL   :: !Text@@ -85,7 +85,7 @@     :: Text -- ^ 'qsqlSQL'     -> QuerySQL querySQL pQsqlSQL_ =-    QuerySQL+    QuerySQL'     { _qsqlTyped = Nothing     , _qsqlHdrs = Nothing     , _qsqlSQL = pQsqlSQL_@@ -108,7 +108,10 @@  instance GoogleRequest QuerySQL where         type Rs QuerySQL = SQLresponse-        requestClient QuerySQL{..}+        type Scopes QuerySQL =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient QuerySQL'{..}           = go (Just _qsqlSQL) _qsqlTyped _qsqlHdrs               (Just AltJSON)               fusionTablesService@@ -118,7 +121,9 @@  instance GoogleRequest (MediaDownload QuerySQL) where         type Rs (MediaDownload QuerySQL) = Stream-        requestClient (MediaDownload QuerySQL{..})+        type Scopes (MediaDownload QuerySQL) =+             Scopes QuerySQL+        requestClient (MediaDownload QuerySQL'{..})           = go (Just _qsqlSQL) _qsqlTyped _qsqlHdrs               (Just AltMedia)               fusionTablesService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Query.SQLGet--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | Executes a SQL statement which can be any of - SELECT - SHOW - DESCRIBE -- -- /See:/ 'querySQLGet' smart constructor.-data QuerySQLGet = QuerySQLGet+data QuerySQLGet = QuerySQLGet'     { _qsqlgTyped :: !(Maybe Bool)     , _qsqlgHdrs  :: !(Maybe Bool)     , _qsqlgSQL   :: !Text@@ -83,7 +83,7 @@     :: Text -- ^ 'qsqlgSQL'     -> QuerySQLGet querySQLGet pQsqlgSQL_ =-    QuerySQLGet+    QuerySQLGet'     { _qsqlgTyped = Nothing     , _qsqlgHdrs = Nothing     , _qsqlgSQL = pQsqlgSQL_@@ -106,7 +106,10 @@  instance GoogleRequest QuerySQLGet where         type Rs QuerySQLGet = SQLresponse-        requestClient QuerySQLGet{..}+        type Scopes QuerySQLGet =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient QuerySQLGet'{..}           = go (Just _qsqlgSQL) _qsqlgTyped _qsqlgHdrs               (Just AltJSON)               fusionTablesService@@ -117,7 +120,9 @@ instance GoogleRequest (MediaDownload QuerySQLGet)          where         type Rs (MediaDownload QuerySQLGet) = Stream-        requestClient (MediaDownload QuerySQLGet{..})+        type Scopes (MediaDownload QuerySQLGet) =+             Scopes QuerySQLGet+        requestClient (MediaDownload QuerySQLGet'{..})           = go (Just _qsqlgSQL) _qsqlgTyped _qsqlgHdrs               (Just AltMedia)               fusionTablesService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Style.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Deletes a style. -- -- /See:/ 'styleDelete' smart constructor.-data StyleDelete = StyleDelete+data StyleDelete = StyleDelete'     { _sdStyleId :: !(Textual Int32)     , _sdTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'sdTableId'     -> StyleDelete styleDelete pSdStyleId_ pSdTableId_ =-    StyleDelete+    StyleDelete'     { _sdStyleId = _Coerce # pSdStyleId_     , _sdTableId = pSdTableId_     }@@ -89,7 +89,9 @@  instance GoogleRequest StyleDelete where         type Rs StyleDelete = ()-        requestClient StyleDelete{..}+        type Scopes StyleDelete =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient StyleDelete'{..}           = go _sdTableId _sdStyleId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Style.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Gets a specific style. -- -- /See:/ 'styleGet' smart constructor.-data StyleGet = StyleGet+data StyleGet = StyleGet'     { _sgStyleId :: !(Textual Int32)     , _sgTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'sgTableId'     -> StyleGet styleGet pSgStyleId_ pSgTableId_ =-    StyleGet+    StyleGet'     { _sgStyleId = _Coerce # pSgStyleId_     , _sgTableId = pSgTableId_     }@@ -89,7 +89,10 @@  instance GoogleRequest StyleGet where         type Rs StyleGet = StyleSetting-        requestClient StyleGet{..}+        type Scopes StyleGet =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient StyleGet'{..}           = go _sgTableId _sgStyleId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Style.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Adds a new style for the table. -- -- /See:/ 'styleInsert' smart constructor.-data StyleInsert = StyleInsert+data StyleInsert = StyleInsert'     { _siPayload :: !StyleSetting     , _siTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'siTableId'     -> StyleInsert styleInsert pSiPayload_ pSiTableId_ =-    StyleInsert+    StyleInsert'     { _siPayload = pSiPayload_     , _siTableId = pSiTableId_     }@@ -89,7 +89,9 @@  instance GoogleRequest StyleInsert where         type Rs StyleInsert = StyleSetting-        requestClient StyleInsert{..}+        type Scopes StyleInsert =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient StyleInsert'{..}           = go _siTableId (Just AltJSON) _siPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Style.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Retrieves a list of styles. -- -- /See:/ 'styleList' smart constructor.-data StyleList = StyleList+data StyleList = StyleList'     { _slPageToken  :: !(Maybe Text)     , _slTableId    :: !Text     , _slMaxResults :: !(Maybe (Textual Word32))@@ -76,7 +76,7 @@     :: Text -- ^ 'slTableId'     -> StyleList styleList pSlTableId_ =-    StyleList+    StyleList'     { _slPageToken = Nothing     , _slTableId = pSlTableId_     , _slMaxResults = Nothing@@ -100,7 +100,10 @@  instance GoogleRequest StyleList where         type Rs StyleList = StyleSettingList-        requestClient StyleList{..}+        type Scopes StyleList =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient StyleList'{..}           = go _slTableId _slPageToken _slMaxResults               (Just AltJSON)               fusionTablesService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Style.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Updates an existing style. This method supports patch semantics. -- -- /See:/ 'stylePatch' smart constructor.-data StylePatch = StylePatch+data StylePatch = StylePatch'     { _spPayload :: !StyleSetting     , _spStyleId :: !(Textual Int32)     , _spTableId :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'spTableId'     -> StylePatch stylePatch pSpPayload_ pSpStyleId_ pSpTableId_ =-    StylePatch+    StylePatch'     { _spPayload = pSpPayload_     , _spStyleId = _Coerce # pSpStyleId_     , _spTableId = pSpTableId_@@ -102,7 +102,9 @@  instance GoogleRequest StylePatch where         type Rs StylePatch = StyleSetting-        requestClient StylePatch{..}+        type Scopes StylePatch =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient StylePatch'{..}           = go _spTableId _spStyleId (Just AltJSON) _spPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Style.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Updates an existing style. -- -- /See:/ 'styleUpdate' smart constructor.-data StyleUpdate = StyleUpdate+data StyleUpdate = StyleUpdate'     { _suPayload :: !StyleSetting     , _suStyleId :: !(Textual Int32)     , _suTableId :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'suTableId'     -> StyleUpdate styleUpdate pSuPayload_ pSuStyleId_ pSuTableId_ =-    StyleUpdate+    StyleUpdate'     { _suPayload = pSuPayload_     , _suStyleId = _Coerce # pSuStyleId_     , _suTableId = pSuTableId_@@ -102,7 +102,9 @@  instance GoogleRequest StyleUpdate where         type Rs StyleUpdate = StyleSetting-        requestClient StyleUpdate{..}+        type Scopes StyleUpdate =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient StyleUpdate'{..}           = go _suTableId _suStyleId (Just AltJSON) _suPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.Copy--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Copies a table. -- -- /See:/ 'tableCopy' smart constructor.-data TableCopy = TableCopy+data TableCopy = TableCopy'     { _tcTableId          :: !Text     , _tcCopyPresentation :: !(Maybe Bool)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -70,7 +70,7 @@     :: Text -- ^ 'tcTableId'     -> TableCopy tableCopy pTcTableId_ =-    TableCopy+    TableCopy'     { _tcTableId = pTcTableId_     , _tcCopyPresentation = Nothing     }@@ -88,7 +88,10 @@  instance GoogleRequest TableCopy where         type Rs TableCopy = Table-        requestClient TableCopy{..}+        type Scopes TableCopy =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TableCopy'{..}           = go _tcTableId _tcCopyPresentation (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -51,7 +51,7 @@ -- | Deletes a table. -- -- /See:/ 'tableDelete' smart constructor.-newtype TableDelete = TableDelete+newtype TableDelete = TableDelete'     { _tddTableId :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@     :: Text -- ^ 'tddTableId'     -> TableDelete tableDelete pTddTableId_ =-    TableDelete+    TableDelete'     { _tddTableId = pTddTableId_     } @@ -75,7 +75,9 @@  instance GoogleRequest TableDelete where         type Rs TableDelete = ()-        requestClient TableDelete{..}+        type Scopes TableDelete =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TableDelete'{..}           = go _tddTableId (Just AltJSON) fusionTablesService           where go                   = buildClient (Proxy :: Proxy TableDeleteResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -51,7 +51,7 @@ -- | Retrieves a specific table by its ID. -- -- /See:/ 'tableGet' smart constructor.-newtype TableGet = TableGet+newtype TableGet = TableGet'     { _tgTableId :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@     :: Text -- ^ 'tgTableId'     -> TableGet tableGet pTgTableId_ =-    TableGet+    TableGet'     { _tgTableId = pTgTableId_     } @@ -75,7 +75,10 @@  instance GoogleRequest TableGet where         type Rs TableGet = Table-        requestClient TableGet{..}+        type Scopes TableGet =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TableGet'{..}           = go _tgTableId (Just AltJSON) fusionTablesService           where go                   = buildClient (Proxy :: Proxy TableGetResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.ImportRows--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -72,13 +72,12 @@                            QueryParam "isStrict" Bool :>                              QueryParam "alt" AltJSON :>                                QueryParam "uploadType" AltMedia :>-                                 ReqBody '[OctetStream] RequestBody :>-                                   Post '[JSON] Import+                                 AltMedia :> Post '[JSON] Import  -- | Imports more rows into a table. -- -- /See:/ 'tableImportRows' smart constructor.-data TableImportRows = TableImportRows+data TableImportRows = TableImportRows'     { _tirStartLine :: !(Maybe (Textual Int32))     , _tirEndLine   :: !(Maybe (Textual Int32))     , _tirTableId   :: !Text@@ -106,7 +105,7 @@     :: Text -- ^ 'tirTableId'     -> TableImportRows tableImportRows pTirTableId_ =-    TableImportRows+    TableImportRows'     { _tirStartLine = Nothing     , _tirEndLine = Nothing     , _tirTableId = pTirTableId_@@ -157,7 +156,9 @@  instance GoogleRequest TableImportRows where         type Rs TableImportRows = Import-        requestClient TableImportRows{..}+        type Scopes TableImportRows =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TableImportRows'{..}           = go _tirTableId _tirStartLine _tirEndLine               _tirDelimiter               _tirEncoding@@ -172,7 +173,9 @@ instance GoogleRequest (MediaUpload TableImportRows)          where         type Rs (MediaUpload TableImportRows) = Import-        requestClient (MediaUpload TableImportRows{..} body)+        type Scopes (MediaUpload TableImportRows) =+             Scopes TableImportRows+        requestClient (MediaUpload TableImportRows'{..} body)           = go _tirTableId _tirStartLine _tirEndLine               _tirDelimiter               _tirEncoding

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.ImportTable--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,13 +63,12 @@                      QueryParam "encoding" Text :>                        QueryParam "alt" AltJSON :>                          QueryParam "uploadType" AltMedia :>-                           ReqBody '[OctetStream] RequestBody :>-                             Post '[JSON] Table+                           AltMedia :> Post '[JSON] Table  -- | Imports a new table. -- -- /See:/ 'tableImportTable' smart constructor.-data TableImportTable = TableImportTable+data TableImportTable = TableImportTable'     { _titName      :: !Text     , _titDelimiter :: !(Maybe Text)     , _titEncoding  :: !(Maybe Text)@@ -88,7 +87,7 @@     :: Text -- ^ 'titName'     -> TableImportTable tableImportTable pTitName_ =-    TableImportTable+    TableImportTable'     { _titName = pTitName_     , _titDelimiter = Nothing     , _titEncoding = Nothing@@ -112,7 +111,9 @@  instance GoogleRequest TableImportTable where         type Rs TableImportTable = Table-        requestClient TableImportTable{..}+        type Scopes TableImportTable =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TableImportTable'{..}           = go (Just _titName) _titDelimiter _titEncoding               (Just AltJSON)               fusionTablesService@@ -124,7 +125,10 @@ instance GoogleRequest (MediaUpload TableImportTable)          where         type Rs (MediaUpload TableImportTable) = Table-        requestClient (MediaUpload TableImportTable{..} body)+        type Scopes (MediaUpload TableImportTable) =+             Scopes TableImportTable+        requestClient+          (MediaUpload TableImportTable'{..} body)           = go (Just _titName) _titDelimiter _titEncoding               (Just AltJSON)               (Just AltMedia)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -51,7 +51,7 @@ -- | Creates a new table. -- -- /See:/ 'tableInsert' smart constructor.-newtype TableInsert = TableInsert+newtype TableInsert = TableInsert'     { _tiPayload :: Table     } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@     :: Table -- ^ 'tiPayload'     -> TableInsert tableInsert pTiPayload_ =-    TableInsert+    TableInsert'     { _tiPayload = pTiPayload_     } @@ -75,7 +75,9 @@  instance GoogleRequest TableInsert where         type Rs TableInsert = Table-        requestClient TableInsert{..}+        type Scopes TableInsert =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TableInsert'{..}           = go (Just AltJSON) _tiPayload fusionTablesService           where go                   = buildClient (Proxy :: Proxy TableInsertResource)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -53,7 +53,7 @@ -- | Retrieves a list of tables a user owns. -- -- /See:/ 'tableList'' smart constructor.-data TableList' = TableList'+data TableList' = TableList''     { _tPageToken  :: !(Maybe Text)     , _tMaxResults :: !(Maybe (Textual Word32))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -68,7 +68,7 @@ tableList'     :: TableList' tableList' =-    TableList'+    TableList''     { _tPageToken = Nothing     , _tMaxResults = Nothing     }@@ -86,7 +86,10 @@  instance GoogleRequest TableList' where         type Rs TableList' = TableList-        requestClient TableList'{..}+        type Scopes TableList' =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TableList''{..}           = go _tPageToken _tMaxResults (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- semantics. -- -- /See:/ 'tablePatch' smart constructor.-data TablePatch = TablePatch+data TablePatch = TablePatch'     { _tpPayload               :: !Table     , _tpReplaceViewDefinition :: !(Maybe Bool)     , _tpTableId               :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'tpTableId'     -> TablePatch tablePatch pTpPayload_ pTpTableId_ =-    TablePatch+    TablePatch'     { _tpPayload = pTpPayload_     , _tpReplaceViewDefinition = Nothing     , _tpTableId = pTpTableId_@@ -105,7 +105,9 @@  instance GoogleRequest TablePatch where         type Rs TablePatch = Table-        requestClient TablePatch{..}+        type Scopes TablePatch =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TablePatch'{..}           = go _tpTableId _tpReplaceViewDefinition               (Just AltJSON)               _tpPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.ReplaceRows--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -73,14 +73,13 @@                            QueryParam "isStrict" Bool :>                              QueryParam "alt" AltJSON :>                                QueryParam "uploadType" AltMedia :>-                                 ReqBody '[OctetStream] RequestBody :>-                                   Post '[JSON] Task+                                 AltMedia :> Post '[JSON] Task  -- | Replaces rows of an existing table. Current rows remain visible until -- all replacement rows are ready. -- -- /See:/ 'tableReplaceRows' smart constructor.-data TableReplaceRows = TableReplaceRows+data TableReplaceRows = TableReplaceRows'     { _trrStartLine :: !(Maybe (Textual Int32))     , _trrEndLine   :: !(Maybe (Textual Int32))     , _trrTableId   :: !Text@@ -108,7 +107,7 @@     :: Text -- ^ 'trrTableId'     -> TableReplaceRows tableReplaceRows pTrrTableId_ =-    TableReplaceRows+    TableReplaceRows'     { _trrStartLine = Nothing     , _trrEndLine = Nothing     , _trrTableId = pTrrTableId_@@ -160,7 +159,9 @@  instance GoogleRequest TableReplaceRows where         type Rs TableReplaceRows = Task-        requestClient TableReplaceRows{..}+        type Scopes TableReplaceRows =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TableReplaceRows'{..}           = go _trrTableId _trrStartLine _trrEndLine               _trrDelimiter               _trrEncoding@@ -175,7 +176,10 @@ instance GoogleRequest (MediaUpload TableReplaceRows)          where         type Rs (MediaUpload TableReplaceRows) = Task-        requestClient (MediaUpload TableReplaceRows{..} body)+        type Scopes (MediaUpload TableReplaceRows) =+             Scopes TableReplaceRows+        requestClient+          (MediaUpload TableReplaceRows'{..} body)           = go _trrTableId _trrStartLine _trrEndLine               _trrDelimiter               _trrEncoding

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Table.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- description, and attribution will be updated. -- -- /See:/ 'tableUpdate' smart constructor.-data TableUpdate = TableUpdate+data TableUpdate = TableUpdate'     { _tabPayload               :: !Table     , _tabReplaceViewDefinition :: !(Maybe Bool)     , _tabTableId               :: !Text@@ -77,7 +77,7 @@     -> Text -- ^ 'tabTableId'     -> TableUpdate tableUpdate pTabPayload_ pTabTableId_ =-    TableUpdate+    TableUpdate'     { _tabPayload = pTabPayload_     , _tabReplaceViewDefinition = Nothing     , _tabTableId = pTabTableId_@@ -103,7 +103,9 @@  instance GoogleRequest TableUpdate where         type Rs TableUpdate = Table-        requestClient TableUpdate{..}+        type Scopes TableUpdate =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TableUpdate'{..}           = go _tabTableId _tabReplaceViewDefinition               (Just AltJSON)               _tabPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Task.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- running. -- -- /See:/ 'taskDelete' smart constructor.-data TaskDelete = TaskDelete+data TaskDelete = TaskDelete'     { _tdTaskId  :: !Text     , _tdTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@     -> Text -- ^ 'tdTableId'     -> TaskDelete taskDelete pTdTaskId_ pTdTableId_ =-    TaskDelete+    TaskDelete'     { _tdTaskId = pTdTaskId_     , _tdTableId = pTdTableId_     }@@ -89,7 +89,9 @@  instance GoogleRequest TaskDelete where         type Rs TaskDelete = ()-        requestClient TaskDelete{..}+        type Scopes TaskDelete =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TaskDelete'{..}           = go _tdTableId _tdTaskId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Task.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Retrieves a specific task by its ID. -- -- /See:/ 'taskGet' smart constructor.-data TaskGet = TaskGet+data TaskGet = TaskGet'     { _tggTaskId  :: !Text     , _tggTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'tggTableId'     -> TaskGet taskGet pTggTaskId_ pTggTableId_ =-    TaskGet+    TaskGet'     { _tggTaskId = pTggTaskId_     , _tggTableId = pTggTableId_     }@@ -88,7 +88,10 @@  instance GoogleRequest TaskGet where         type Rs TaskGet = Task-        requestClient TaskGet{..}+        type Scopes TaskGet =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TaskGet'{..}           = go _tggTableId _tggTaskId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Task.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Retrieves a list of tasks. -- -- /See:/ 'taskList'' smart constructor.-data TaskList' = TaskList'+data TaskList' = TaskList''     { _tlPageToken  :: !(Maybe Text)     , _tlTableId    :: !Text     , _tlStartIndex :: !(Maybe (Textual Word32))@@ -80,7 +80,7 @@     :: Text -- ^ 'tlTableId'     -> TaskList' taskList' pTlTableId_ =-    TaskList'+    TaskList''     { _tlPageToken = Nothing     , _tlTableId = pTlTableId_     , _tlStartIndex = Nothing@@ -111,7 +111,10 @@  instance GoogleRequest TaskList' where         type Rs TaskList' = TaskList-        requestClient TaskList'{..}+        type Scopes TaskList' =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TaskList''{..}           = go _tlTableId _tlPageToken _tlStartIndex               _tlMaxResults               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Template.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Deletes a template -- -- /See:/ 'templateDelete' smart constructor.-data TemplateDelete = TemplateDelete+data TemplateDelete = TemplateDelete'     { _tTemplateId :: !(Textual Int32)     , _tTableId    :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'tTableId'     -> TemplateDelete templateDelete pTTemplateId_ pTTableId_ =-    TemplateDelete+    TemplateDelete'     { _tTemplateId = _Coerce # pTTemplateId_     , _tTableId = pTTableId_     }@@ -88,7 +88,9 @@  instance GoogleRequest TemplateDelete where         type Rs TemplateDelete = ()-        requestClient TemplateDelete{..}+        type Scopes TemplateDelete =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TemplateDelete'{..}           = go _tTableId _tTemplateId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Template.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Retrieves a specific template by its id -- -- /See:/ 'templateGet' smart constructor.-data TemplateGet = TemplateGet+data TemplateGet = TemplateGet'     { _temeTemplateId :: !(Textual Int32)     , _temeTableId    :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'temeTableId'     -> TemplateGet templateGet pTemeTemplateId_ pTemeTableId_ =-    TemplateGet+    TemplateGet'     { _temeTemplateId = _Coerce # pTemeTemplateId_     , _temeTableId = pTemeTableId_     }@@ -90,7 +90,10 @@  instance GoogleRequest TemplateGet where         type Rs TemplateGet = Template-        requestClient TemplateGet{..}+        type Scopes TemplateGet =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TemplateGet'{..}           = go _temeTableId _temeTemplateId (Just AltJSON)               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Template.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Creates a new template for the table. -- -- /See:/ 'templateInsert' smart constructor.-data TemplateInsert = TemplateInsert+data TemplateInsert = TemplateInsert'     { _temPayload :: !Template     , _temTableId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'temTableId'     -> TemplateInsert templateInsert pTemPayload_ pTemTableId_ =-    TemplateInsert+    TemplateInsert'     { _temPayload = pTemPayload_     , _temTableId = pTemTableId_     }@@ -88,7 +88,9 @@  instance GoogleRequest TemplateInsert where         type Rs TemplateInsert = Template-        requestClient TemplateInsert{..}+        type Scopes TemplateInsert =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TemplateInsert'{..}           = go _temTableId (Just AltJSON) _temPayload               fusionTablesService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Template.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Retrieves a list of templates. -- -- /See:/ 'templateList'' smart constructor.-data TemplateList' = TemplateList'+data TemplateList' = TemplateList''     { _tllPageToken  :: !(Maybe Text)     , _tllTableId    :: !Text     , _tllMaxResults :: !(Maybe (Textual Word32))@@ -75,7 +75,7 @@     :: Text -- ^ 'tllTableId'     -> TemplateList' templateList' pTllTableId_ =-    TemplateList'+    TemplateList''     { _tllPageToken = Nothing     , _tllTableId = pTllTableId_     , _tllMaxResults = Nothing@@ -100,7 +100,10 @@  instance GoogleRequest TemplateList' where         type Rs TemplateList' = TemplateList-        requestClient TemplateList'{..}+        type Scopes TemplateList' =+             '["https://www.googleapis.com/auth/fusiontables",+               "https://www.googleapis.com/auth/fusiontables.readonly"]+        requestClient TemplateList''{..}           = go _tllTableId _tllPageToken _tllMaxResults               (Just AltJSON)               fusionTablesService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Template.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Updates an existing template. This method supports patch semantics. -- -- /See:/ 'templatePatch' smart constructor.-data TemplatePatch = TemplatePatch+data TemplatePatch = TemplatePatch'     { _tppTemplateId :: !(Textual Int32)     , _tppPayload    :: !Template     , _tppTableId    :: !Text@@ -77,7 +77,7 @@     -> Text -- ^ 'tppTableId'     -> TemplatePatch templatePatch pTppTemplateId_ pTppPayload_ pTppTableId_ =-    TemplatePatch+    TemplatePatch'     { _tppTemplateId = _Coerce # pTppTemplateId_     , _tppPayload = pTppPayload_     , _tppTableId = pTppTableId_@@ -102,7 +102,9 @@  instance GoogleRequest TemplatePatch where         type Rs TemplatePatch = Template-        requestClient TemplatePatch{..}+        type Scopes TemplatePatch =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TemplatePatch'{..}           = go _tppTableId _tppTemplateId (Just AltJSON)               _tppPayload               fusionTablesService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.FusionTables.Template.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Updates an existing template -- -- /See:/ 'templateUpdate' smart constructor.-data TemplateUpdate = TemplateUpdate+data TemplateUpdate = TemplateUpdate'     { _tuTemplateId :: !(Textual Int32)     , _tuPayload    :: !Template     , _tuTableId    :: !Text@@ -77,7 +77,7 @@     -> Text -- ^ 'tuTableId'     -> TemplateUpdate templateUpdate pTuTemplateId_ pTuPayload_ pTuTableId_ =-    TemplateUpdate+    TemplateUpdate'     { _tuTemplateId = _Coerce # pTuTemplateId_     , _tuPayload = pTuPayload_     , _tuTableId = pTuTableId_@@ -101,7 +101,9 @@  instance GoogleRequest TemplateUpdate where         type Rs TemplateUpdate = Template-        requestClient TemplateUpdate{..}+        type Scopes TemplateUpdate =+             '["https://www.googleapis.com/auth/fusiontables"]+        requestClient TemplateUpdate'{..}           = go _tuTableId _tuTemplateId (Just AltJSON)               _tuPayload               fusionTablesService

@@ -1,5 +1,5 @@ name:                  gogol-fusiontables-version:               0.0.1+version:               0.1.0 synopsis:              Google Fusion Tables SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10@@ -74,5 +74,5 @@         , Network.Google.FusionTables.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5