diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -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
diff --git a/gen/Network/Google/FusionTables.hs b/gen/Network/Google/FusionTables.hs
--- a/gen/Network/Google/FusionTables.hs
+++ b/gen/Network/Google/FusionTables.hs
@@ -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
diff --git a/gen/Network/Google/FusionTables/Types.hs b/gen/Network/Google/FusionTables/Types.hs
--- a/gen/Network/Google/FusionTables/Types.hs
+++ b/gen/Network/Google/FusionTables/Types.hs
@@ -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;
diff --git a/gen/Network/Google/FusionTables/Types/Product.hs b/gen/Network/Google/FusionTables/Types/Product.hs
--- a/gen/Network/Google/FusionTables/Types/Product.hs
+++ b/gen/Network/Google/FusionTables/Types/Product.hs
@@ -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,
diff --git a/gen/Network/Google/FusionTables/Types/Sum.hs b/gen/Network/Google/FusionTables/Types/Sum.hs
--- a/gen/Network/Google/FusionTables/Types/Sum.hs
+++ b/gen/Network/Google/FusionTables/Types/Sum.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Column/Delete.hs b/gen/Network/Google/Resource/FusionTables/Column/Delete.hs
--- a/gen/Network/Google/Resource/FusionTables/Column/Delete.hs
+++ b/gen/Network/Google/Resource/FusionTables/Column/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Column/Get.hs b/gen/Network/Google/Resource/FusionTables/Column/Get.hs
--- a/gen/Network/Google/Resource/FusionTables/Column/Get.hs
+++ b/gen/Network/Google/Resource/FusionTables/Column/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Column/Insert.hs b/gen/Network/Google/Resource/FusionTables/Column/Insert.hs
--- a/gen/Network/Google/Resource/FusionTables/Column/Insert.hs
+++ b/gen/Network/Google/Resource/FusionTables/Column/Insert.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Column/List.hs b/gen/Network/Google/Resource/FusionTables/Column/List.hs
--- a/gen/Network/Google/Resource/FusionTables/Column/List.hs
+++ b/gen/Network/Google/Resource/FusionTables/Column/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Column/Patch.hs b/gen/Network/Google/Resource/FusionTables/Column/Patch.hs
--- a/gen/Network/Google/Resource/FusionTables/Column/Patch.hs
+++ b/gen/Network/Google/Resource/FusionTables/Column/Patch.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Column/Update.hs b/gen/Network/Google/Resource/FusionTables/Column/Update.hs
--- a/gen/Network/Google/Resource/FusionTables/Column/Update.hs
+++ b/gen/Network/Google/Resource/FusionTables/Column/Update.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Query/SQL.hs b/gen/Network/Google/Resource/FusionTables/Query/SQL.hs
--- a/gen/Network/Google/Resource/FusionTables/Query/SQL.hs
+++ b/gen/Network/Google/Resource/FusionTables/Query/SQL.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs b/gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs
--- a/gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs
+++ b/gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Style/Delete.hs b/gen/Network/Google/Resource/FusionTables/Style/Delete.hs
--- a/gen/Network/Google/Resource/FusionTables/Style/Delete.hs
+++ b/gen/Network/Google/Resource/FusionTables/Style/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Style/Get.hs b/gen/Network/Google/Resource/FusionTables/Style/Get.hs
--- a/gen/Network/Google/Resource/FusionTables/Style/Get.hs
+++ b/gen/Network/Google/Resource/FusionTables/Style/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Style/Insert.hs b/gen/Network/Google/Resource/FusionTables/Style/Insert.hs
--- a/gen/Network/Google/Resource/FusionTables/Style/Insert.hs
+++ b/gen/Network/Google/Resource/FusionTables/Style/Insert.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Style/List.hs b/gen/Network/Google/Resource/FusionTables/Style/List.hs
--- a/gen/Network/Google/Resource/FusionTables/Style/List.hs
+++ b/gen/Network/Google/Resource/FusionTables/Style/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Style/Patch.hs b/gen/Network/Google/Resource/FusionTables/Style/Patch.hs
--- a/gen/Network/Google/Resource/FusionTables/Style/Patch.hs
+++ b/gen/Network/Google/Resource/FusionTables/Style/Patch.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Style/Update.hs b/gen/Network/Google/Resource/FusionTables/Style/Update.hs
--- a/gen/Network/Google/Resource/FusionTables/Style/Update.hs
+++ b/gen/Network/Google/Resource/FusionTables/Style/Update.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Table/Copy.hs b/gen/Network/Google/Resource/FusionTables/Table/Copy.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/Copy.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/Copy.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Table/Delete.hs b/gen/Network/Google/Resource/FusionTables/Table/Delete.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/Delete.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/Delete.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/FusionTables/Table/Get.hs b/gen/Network/Google/Resource/FusionTables/Table/Get.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/Get.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/Get.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs b/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs b/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/FusionTables/Table/Insert.hs b/gen/Network/Google/Resource/FusionTables/Table/Insert.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/Insert.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/Insert.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/FusionTables/Table/List.hs b/gen/Network/Google/Resource/FusionTables/Table/List.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/List.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Table/Patch.hs b/gen/Network/Google/Resource/FusionTables/Table/Patch.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/Patch.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/Patch.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs b/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Table/Update.hs b/gen/Network/Google/Resource/FusionTables/Table/Update.hs
--- a/gen/Network/Google/Resource/FusionTables/Table/Update.hs
+++ b/gen/Network/Google/Resource/FusionTables/Table/Update.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Task/Delete.hs b/gen/Network/Google/Resource/FusionTables/Task/Delete.hs
--- a/gen/Network/Google/Resource/FusionTables/Task/Delete.hs
+++ b/gen/Network/Google/Resource/FusionTables/Task/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Task/Get.hs b/gen/Network/Google/Resource/FusionTables/Task/Get.hs
--- a/gen/Network/Google/Resource/FusionTables/Task/Get.hs
+++ b/gen/Network/Google/Resource/FusionTables/Task/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Task/List.hs b/gen/Network/Google/Resource/FusionTables/Task/List.hs
--- a/gen/Network/Google/Resource/FusionTables/Task/List.hs
+++ b/gen/Network/Google/Resource/FusionTables/Task/List.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/FusionTables/Template/Delete.hs b/gen/Network/Google/Resource/FusionTables/Template/Delete.hs
--- a/gen/Network/Google/Resource/FusionTables/Template/Delete.hs
+++ b/gen/Network/Google/Resource/FusionTables/Template/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Template/Get.hs b/gen/Network/Google/Resource/FusionTables/Template/Get.hs
--- a/gen/Network/Google/Resource/FusionTables/Template/Get.hs
+++ b/gen/Network/Google/Resource/FusionTables/Template/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Template/Insert.hs b/gen/Network/Google/Resource/FusionTables/Template/Insert.hs
--- a/gen/Network/Google/Resource/FusionTables/Template/Insert.hs
+++ b/gen/Network/Google/Resource/FusionTables/Template/Insert.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Template/List.hs b/gen/Network/Google/Resource/FusionTables/Template/List.hs
--- a/gen/Network/Google/Resource/FusionTables/Template/List.hs
+++ b/gen/Network/Google/Resource/FusionTables/Template/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Template/Patch.hs b/gen/Network/Google/Resource/FusionTables/Template/Patch.hs
--- a/gen/Network/Google/Resource/FusionTables/Template/Patch.hs
+++ b/gen/Network/Google/Resource/FusionTables/Template/Patch.hs
@@ -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
diff --git a/gen/Network/Google/Resource/FusionTables/Template/Update.hs b/gen/Network/Google/Resource/FusionTables/Template/Update.hs
--- a/gen/Network/Google/Resource/FusionTables/Template/Update.hs
+++ b/gen/Network/Google/Resource/FusionTables/Template/Update.hs
@@ -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
diff --git a/gogol-fusiontables.cabal b/gogol-fusiontables.cabal
--- a/gogol-fusiontables.cabal
+++ b/gogol-fusiontables.cabal
@@ -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