packages feed

gogol-fusiontables 0.4.0 → 0.5.0

raw patch · 38 files changed

+419/−281 lines, 38 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/FusionTables/Types.hs view
@@ -240,8 +240,8 @@  -- | View your Fusion Tables fusionTablesReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/fusiontables.readonly"]-fusionTablesReadOnlyScope = Proxy;+fusionTablesReadOnlyScope = Proxy  -- | Manage your Fusion Tables fusionTablesScope :: Proxy '["https://www.googleapis.com/auth/fusiontables"]-fusionTablesScope = Proxy;+fusionTablesScope = Proxy
gen/Network/Google/FusionTables/Types/Product.hs view
@@ -23,13 +23,16 @@ -- | 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     , _clItems         :: !(Maybe [Column])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -44,13 +47,14 @@ columnList     :: ColumnList columnList =-    ColumnList'+  ColumnList'     { _clTotalItems = Nothing     , _clNextPageToken = Nothing     , _clKind = "fusiontables#columnList"     , _clItems = Nothing     } + -- | Total number of columns for the table. clTotalItems :: Lens' ColumnList (Maybe Int32) clTotalItems@@ -95,12 +99,15 @@ -- | Represents a list of tables. -- -- /See:/ 'tableList' smart constructor.-data TableList = TableList'+data TableList =+  TableList'     { _tlNextPageToken :: !(Maybe Text)     , _tlKind          :: !Text     , _tlItems         :: !(Maybe [Table])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -113,12 +120,13 @@ tableList     :: TableList tableList =-    TableList'+  TableList'     { _tlNextPageToken = Nothing     , _tlKind = "fusiontables#tableList"     , _tlItems = Nothing     } + -- | Token used to access the next page of this result. No token is displayed -- if there are no more pages left. tlNextPageToken :: Lens' TableList (Maybe Text)@@ -156,13 +164,16 @@ -- | 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)     , _sfColumnName :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleFunction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -177,13 +188,14 @@ styleFunction     :: StyleFunction styleFunction =-    StyleFunction'+  StyleFunction'     { _sfBuckets = Nothing     , _sfKind = Nothing     , _sfGradient = Nothing     , _sfColumnName = Nothing     } + -- | Bucket function that assigns a style based on the range a column value -- falls into. sfBuckets :: Lens' StyleFunction [Bucket]@@ -235,11 +247,14 @@ -- 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnBaseColumn' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -250,11 +265,9 @@ columnBaseColumn     :: ColumnBaseColumn columnBaseColumn =-    ColumnBaseColumn'-    { _cbcTableIndex = Nothing-    , _cbcColumnId = Nothing-    }+  ColumnBaseColumn' {_cbcTableIndex = Nothing, _cbcColumnId = Nothing} + -- | Offset to the entry in the list of base tables in the table definition. cbcTableIndex :: Lens' ColumnBaseColumn (Maybe Int32) cbcTableIndex@@ -286,12 +299,15 @@ -- | 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])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SQLresponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -304,12 +320,13 @@ sQLresponse     :: SQLresponse sQLresponse =-    SQLresponse'+  SQLresponse'     { _sqlKind = "fusiontables#sqlresponse"     , _sqlRows = Nothing     , _sqlColumns = Nothing     } + -- | The kind of item this is. For responses to SQL queries, this is always -- fusiontables#sqlresponse. sqlKind :: Lens' SQLresponse Text@@ -348,11 +365,14 @@  -- -- /See:/ 'styleFunctionGradientColorsItem' smart constructor.-data StyleFunctionGradientColorsItem = StyleFunctionGradientColorsItem'+data StyleFunctionGradientColorsItem =+  StyleFunctionGradientColorsItem'     { _sfgciColor   :: !(Maybe Text)     , _sfgciOpacity :: !(Maybe (Textual Double))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleFunctionGradientColorsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -363,11 +383,10 @@ styleFunctionGradientColorsItem     :: StyleFunctionGradientColorsItem styleFunctionGradientColorsItem =-    StyleFunctionGradientColorsItem'-    { _sfgciColor = Nothing-    , _sfgciOpacity = Nothing-    }+  StyleFunctionGradientColorsItem'+    {_sfgciColor = Nothing, _sfgciOpacity = Nothing} + -- | Color in #RRGGBB format. sfgciColor :: Lens' StyleFunctionGradientColorsItem (Maybe Text) sfgciColor@@ -397,13 +416,16 @@ -- | 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     , _sslItems         :: !(Maybe [StyleSetting])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleSettingList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -418,13 +440,14 @@ styleSettingList     :: StyleSettingList styleSettingList =-    StyleSettingList'+  StyleSettingList'     { _sslTotalItems = Nothing     , _sslNextPageToken = Nothing     , _sslKind = "fusiontables#styleSettingList"     , _sslItems = Nothing     } + -- | Total number of styles for the table. sslTotalItems :: Lens' StyleSettingList (Maybe Int32) sslTotalItems@@ -473,15 +496,18 @@ -- 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))     , _bIcon    :: !(Maybe Text)     , _bOpacity :: !(Maybe (Textual Double))     , _bMin     :: !(Maybe (Textual Double))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Bucket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -500,7 +526,7 @@ bucket     :: Bucket bucket =-    Bucket'+  Bucket'     { _bMax = Nothing     , _bColor = Nothing     , _bWeight = Nothing@@ -509,6 +535,7 @@     , _bMin = Nothing     } + -- | Maximum value in the selected column for a row to be styled according to -- the bucket color, opacity, icon, or weight. bMax :: Lens' Bucket (Maybe Double)@@ -565,11 +592,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Line' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -579,12 +609,9 @@ -- * 'lType' line     :: Line-line =-    Line'-    { _lCoordinates = Nothing-    , _lType = "LineString"-    }+line = Line' {_lCoordinates = Nothing, _lType = "LineString"} + -- | The coordinates that define the line. lCoordinates :: Lens' Line [[Double]] lCoordinates@@ -615,7 +642,8 @@ -- 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)@@ -623,8 +651,10 @@     , _ssName            :: !(Maybe Text)     , _ssStyleId         :: !(Maybe (Textual Int32))     , _ssTableId         :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleSetting' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -645,7 +675,7 @@ styleSetting     :: StyleSetting styleSetting =-    StyleSetting'+  StyleSetting'     { _ssPolylineOptions = Nothing     , _ssPolygonOptions = Nothing     , _ssMarkerOptions = Nothing@@ -655,6 +685,7 @@     , _ssTableId = Nothing     } + -- | Style definition for lines in the table. ssPolylineOptions :: Lens' StyleSetting (Maybe LineStyle) ssPolylineOptions@@ -722,11 +753,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Point' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -736,12 +770,9 @@ -- * 'pType' point     :: Point-point =-    Point'-    { _pCoordinates = Nothing-    , _pType = "Point"-    }+point = Point' {_pCoordinates = Nothing, _pType = "Point"} + -- | The coordinates that define the point. pCoordinates :: Lens' Point [Double] pCoordinates@@ -771,11 +802,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Polygon' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -785,12 +819,9 @@ -- * 'polType' polygon     :: Polygon-polygon =-    Polygon'-    { _polCoordinates = Nothing-    , _polType = "Polygon"-    }+polygon = Polygon' {_polCoordinates = Nothing, _polType = "Polygon"} + -- | The coordinates that define the polygon. polCoordinates :: Lens' Polygon [[[Double]]] polCoordinates@@ -821,13 +852,16 @@ -- | 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     , _tItems         :: !(Maybe [Task])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -842,13 +876,14 @@ taskList     :: TaskList taskList =-    TaskList'+  TaskList'     { _tTotalItems = Nothing     , _tNextPageToken = Nothing     , _tKind = "fusiontables#taskList"     , _tItems = Nothing     } + -- | Total number of tasks for the table. tTotalItems :: Lens' TaskList (Maybe Int32) tTotalItems@@ -892,12 +927,15 @@ -- | Represents a Geometry object. -- -- /See:/ 'geometry' smart constructor.-data Geometry = Geometry'+data Geometry =+  Geometry'     { _gGeometries :: !(Maybe [JSONValue])     , _gGeometry   :: !(Maybe JSONValue)     , _gType       :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Geometry' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -910,12 +948,13 @@ geometry     :: Geometry geometry =-    Geometry'+  Geometry'     { _gGeometries = Nothing     , _gGeometry = Nothing     , _gType = "GeometryCollection"     } + -- | The list of geometries in this geometry collection. gGeometries :: Lens' Geometry [JSONValue] gGeometries@@ -951,13 +990,16 @@ -- | 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     , _temItems         :: !(Maybe [Template])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplateList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -972,13 +1014,14 @@ templateList     :: TemplateList templateList =-    TemplateList'+  TemplateList'     { _temTotalItems = Nothing     , _temNextPageToken = Nothing     , _temKind = "fusiontables#templateList"     , _temItems = Nothing     } + -- | Total number of templates for the table. temTotalItems :: Lens' TemplateList (Maybe Int32) temTotalItems@@ -1026,11 +1069,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Import' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1040,12 +1086,9 @@ -- * 'iNumRowsReceived' import'     :: Import-import' =-    Import'-    { _iKind = "fusiontables#import"-    , _iNumRowsReceived = Nothing-    }+import' = Import' {_iKind = "fusiontables#import", _iNumRowsReceived = Nothing} + -- | The kind of item this is. For an import, this is always -- fusiontables#import. iKind :: Lens' Import Text@@ -1077,14 +1120,17 @@ -- 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     , _tasType     :: !(Maybe Text)     , _tasStarted  :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Task' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1101,7 +1147,7 @@ task     :: Task task =-    Task'+  Task'     { _tasProgress = Nothing     , _tasTaskId = Nothing     , _tasKind = "fusiontables#task"@@ -1109,6 +1155,7 @@     , _tasStarted = Nothing     } + -- | Task percentage completion. tasProgress :: Lens' Task (Maybe Text) tasProgress@@ -1156,15 +1203,18 @@ -- | 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     , _ttBody                 :: !(Maybe Text)     , _ttName                 :: !(Maybe Text)     , _ttTableId              :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Template' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1183,7 +1233,7 @@ template     :: Template template =-    Template'+  Template'     { _ttAutomaticColumnNames = Nothing     , _ttTemplateId = Nothing     , _ttKind = "fusiontables#template"@@ -1192,6 +1242,7 @@     , _ttTableId = Nothing     } + -- | List of columns from which the template is to be automatically -- constructed. Only one of body or automaticColumns can be specified. ttAutomaticColumnNames :: Lens' Template [Text]@@ -1255,11 +1306,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PointStyle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1269,12 +1323,9 @@ -- * 'psIconStyler' pointStyle     :: PointStyle-pointStyle =-    PointStyle'-    { _psIconName = Nothing-    , _psIconStyler = Nothing-    }+pointStyle = PointStyle' {_psIconName = Nothing, _psIconStyler = Nothing} + -- | Name of the icon. Use values defined in -- http:\/\/www.google.com\/fusiontables\/DataSource?dsrcid=308519 psIconName :: Lens' PointStyle (Maybe Text)@@ -1303,7 +1354,8 @@ -- | 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)@@ -1312,8 +1364,10 @@     , _psFillOpacity        :: !(Maybe (Textual Double))     , _psStrokeWeightStyler :: !(Maybe StyleFunction)     , _psStrokeColor        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolygonStyle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1336,7 +1390,7 @@ polygonStyle     :: PolygonStyle polygonStyle =-    PolygonStyle'+  PolygonStyle'     { _psFillColorStyler = Nothing     , _psFillColor = Nothing     , _psStrokeColorStyler = Nothing@@ -1347,6 +1401,7 @@     , _psStrokeColor = Nothing     } + -- | Column-value, gradient, or bucket styler that is used to determine the -- interior color and opacity of the polygon. psFillColorStyler :: Lens' PolygonStyle (Maybe StyleFunction)@@ -1431,12 +1486,15 @@ -- value. -- -- /See:/ 'styleFunctionGradient' smart constructor.-data StyleFunctionGradient = StyleFunctionGradient'+data StyleFunctionGradient =+  StyleFunctionGradient'     { _sfgMax    :: !(Maybe (Textual Double))     , _sfgMin    :: !(Maybe (Textual Double))     , _sfgColors :: !(Maybe [StyleFunctionGradientColorsItem])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleFunctionGradient' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1449,12 +1507,10 @@ styleFunctionGradient     :: StyleFunctionGradient styleFunctionGradient =-    StyleFunctionGradient'-    { _sfgMax = Nothing-    , _sfgMin = Nothing-    , _sfgColors = Nothing-    }+  StyleFunctionGradient'+    {_sfgMax = Nothing, _sfgMin = Nothing, _sfgColors = Nothing} + -- | Higher-end of the interpolation range: rows with this value will be -- assigned to colors[n-1]. sfgMax :: Lens' StyleFunctionGradient (Maybe Double)@@ -1494,7 +1550,8 @@ -- | 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@@ -1507,8 +1564,10 @@     , _cValidValues          :: !(Maybe [Text])     , _cValidateData         :: !(Maybe Bool)     , _cDescription          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Column' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1539,7 +1598,7 @@ column     :: Column column =-    Column'+  Column'     { _cColumnJSONSchema = Nothing     , _cGraphPredicate = Nothing     , _cKind = "fusiontables#column"@@ -1554,6 +1613,7 @@     , _cDescription = Nothing     } + -- | JSON schema for interpreting JSON in this column. cColumnJSONSchema :: Lens' Column (Maybe Text) cColumnJSONSchema@@ -1686,7 +1746,8 @@ -- | Represents a table. -- -- /See:/ 'table' smart constructor.-data Table = Table'+data Table =+  Table'     { _tabaIsExportable               :: !(Maybe Bool)     , _tabaKind                       :: !Text     , _tabaColumnPropertiesJSONSchema :: !(Maybe Text)@@ -1700,8 +1761,10 @@     , _tabaDescription                :: !(Maybe Text)     , _tabaAttribution                :: !(Maybe Text)     , _tabaAttributionLink            :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Table' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1734,7 +1797,7 @@ table     :: Table table =-    Table'+  Table'     { _tabaIsExportable = Nothing     , _tabaKind = "fusiontables#table"     , _tabaColumnPropertiesJSONSchema = Nothing@@ -1750,6 +1813,7 @@     , _tabaAttributionLink = Nothing     } + -- | Variable for whether table is exportable. tabaIsExportable :: Lens' Table (Maybe Bool) tabaIsExportable@@ -1868,14 +1932,17 @@ -- | 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))     , _lsStrokeWeightStyler :: !(Maybe StyleFunction)     , _lsStrokeColor        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LineStyle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1892,13 +1959,14 @@ lineStyle     :: LineStyle lineStyle =-    LineStyle'+  LineStyle'     { _lsStrokeColorStyler = Nothing     , _lsStrokeWeight = Nothing     , _lsStrokeOpacity = Nothing     , _lsStrokeWeightStyler = Nothing     , _lsStrokeColor = Nothing     }+  -- | Column-value, gradient or buckets styler that is used to determine the -- line color and opacity.
gen/Network/Google/Resource/FusionTables/Column/Delete.hs view
@@ -54,11 +54,14 @@ -- | Deletes the specified column. -- -- /See:/ 'columnDelete' smart constructor.-data ColumnDelete = ColumnDelete'+data ColumnDelete =+  ColumnDelete'     { _cdTableId  :: !Text     , _cdColumnId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'cdColumnId'     -> ColumnDelete columnDelete pCdTableId_ pCdColumnId_ =-    ColumnDelete'-    { _cdTableId = pCdTableId_-    , _cdColumnId = pCdColumnId_-    }+  ColumnDelete' {_cdTableId = pCdTableId_, _cdColumnId = pCdColumnId_}+  -- | Table from which the column is being deleted. cdTableId :: Lens' ColumnDelete Text
gen/Network/Google/Resource/FusionTables/Column/Get.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'cgColumnId'     -> ColumnGet columnGet pCgTableId_ pCgColumnId_ =-    ColumnGet'-    { _cgTableId = pCgTableId_-    , _cgColumnId = pCgColumnId_-    }+  ColumnGet' {_cgTableId = pCgTableId_, _cgColumnId = pCgColumnId_}+  -- | Table to which the column belongs. cgTableId :: Lens' ColumnGet Text
gen/Network/Google/Resource/FusionTables/Column/Insert.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'ciTableId'     -> ColumnInsert columnInsert pCiPayload_ pCiTableId_ =-    ColumnInsert'-    { _ciPayload = pCiPayload_-    , _ciTableId = pCiTableId_-    }+  ColumnInsert' {_ciPayload = pCiPayload_, _ciTableId = pCiTableId_}+  -- | Multipart request metadata. ciPayload :: Lens' ColumnInsert Column
gen/Network/Google/Resource/FusionTables/Column/List.hs view
@@ -56,12 +56,15 @@ -- | Retrieves a list of columns. -- -- /See:/ 'columnList'' smart constructor.-data ColumnList' = ColumnList''+data ColumnList' =+  ColumnList''     { _clPageToken  :: !(Maybe Text)     , _clTableId    :: !Text     , _clMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnList'' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +78,9 @@     :: Text -- ^ 'clTableId'     -> ColumnList' columnList' pClTableId_ =-    ColumnList''-    { _clPageToken = Nothing-    , _clTableId = pClTableId_-    , _clMaxResults = Nothing-    }+  ColumnList''+    {_clPageToken = Nothing, _clTableId = pClTableId_, _clMaxResults = Nothing}+  -- | Continuation token specifying which result page to return. clPageToken :: Lens' ColumnList' (Maybe Text)
gen/Network/Google/Resource/FusionTables/Column/Patch.hs view
@@ -58,12 +58,15 @@ -- patch semantics. -- -- /See:/ 'columnPatch' smart constructor.-data ColumnPatch = ColumnPatch'+data ColumnPatch =+  ColumnPatch'     { _cpPayload  :: !Column     , _cpTableId  :: !Text     , _cpColumnId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@     -> Text -- ^ 'cpColumnId'     -> ColumnPatch columnPatch pCpPayload_ pCpTableId_ pCpColumnId_ =-    ColumnPatch'+  ColumnPatch'     { _cpPayload = pCpPayload_     , _cpTableId = pCpTableId_     , _cpColumnId = pCpColumnId_     }+  -- | Multipart request metadata. cpPayload :: Lens' ColumnPatch Column
gen/Network/Google/Resource/FusionTables/Column/Update.hs view
@@ -56,12 +56,15 @@ -- | 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ColumnUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,12 @@     -> Text -- ^ 'cuColumnId'     -> ColumnUpdate columnUpdate pCuPayload_ pCuTableId_ pCuColumnId_ =-    ColumnUpdate'+  ColumnUpdate'     { _cuPayload = pCuPayload_     , _cuTableId = pCuTableId_     , _cuColumnId = pCuColumnId_     }+  -- | Multipart request metadata. cuPayload :: Lens' ColumnUpdate Column
gen/Network/Google/Resource/FusionTables/Query/SQL.hs view
@@ -66,12 +66,15 @@ -- 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'QuerySQL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,11 +88,8 @@     :: Text -- ^ 'qsqlSQL'     -> QuerySQL querySQL pQsqlSQL_ =-    QuerySQL'-    { _qsqlTyped = Nothing-    , _qsqlHdrs = Nothing-    , _qsqlSQL = pQsqlSQL_-    }+  QuerySQL' {_qsqlTyped = Nothing, _qsqlHdrs = Nothing, _qsqlSQL = pQsqlSQL_}+  -- | Whether typed values are returned in the (JSON) response: numbers for -- numeric values and parsed geometries for KML values. Default is true.
gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs view
@@ -64,12 +64,15 @@ -- | 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'QuerySQLGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,11 +86,9 @@     :: Text -- ^ 'qsqlgSQL'     -> QuerySQLGet querySQLGet pQsqlgSQL_ =-    QuerySQLGet'-    { _qsqlgTyped = Nothing-    , _qsqlgHdrs = Nothing-    , _qsqlgSQL = pQsqlgSQL_-    }+  QuerySQLGet'+    {_qsqlgTyped = Nothing, _qsqlgHdrs = Nothing, _qsqlgSQL = pQsqlgSQL_}+  -- | Whether typed values are returned in the (JSON) response: numbers for -- numeric values and parsed geometries for KML values. Default is true.
gen/Network/Google/Resource/FusionTables/Style/Delete.hs view
@@ -54,11 +54,14 @@ -- | Deletes a style. -- -- /See:/ 'styleDelete' smart constructor.-data StyleDelete = StyleDelete'+data StyleDelete =+  StyleDelete'     { _sdStyleId :: !(Textual Int32)     , _sdTableId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'sdTableId'     -> StyleDelete styleDelete pSdStyleId_ pSdTableId_ =-    StyleDelete'-    { _sdStyleId = _Coerce # pSdStyleId_-    , _sdTableId = pSdTableId_-    }+  StyleDelete' {_sdStyleId = _Coerce # pSdStyleId_, _sdTableId = pSdTableId_}+  -- | Identifier (within a table) for the style being deleted sdStyleId :: Lens' StyleDelete Int32
gen/Network/Google/Resource/FusionTables/Style/Get.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'sgTableId'     -> StyleGet styleGet pSgStyleId_ pSgTableId_ =-    StyleGet'-    { _sgStyleId = _Coerce # pSgStyleId_-    , _sgTableId = pSgTableId_-    }+  StyleGet' {_sgStyleId = _Coerce # pSgStyleId_, _sgTableId = pSgTableId_}+  -- | Identifier (integer) for a specific style in a table sgStyleId :: Lens' StyleGet Int32
gen/Network/Google/Resource/FusionTables/Style/Insert.hs view
@@ -55,11 +55,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@     -> Text -- ^ 'siTableId'     -> StyleInsert styleInsert pSiPayload_ pSiTableId_ =-    StyleInsert'-    { _siPayload = pSiPayload_-    , _siTableId = pSiTableId_-    }+  StyleInsert' {_siPayload = pSiPayload_, _siTableId = pSiTableId_}+  -- | Multipart request metadata. siPayload :: Lens' StyleInsert StyleSetting
gen/Network/Google/Resource/FusionTables/Style/List.hs view
@@ -57,12 +57,15 @@ -- | Retrieves a list of styles. -- -- /See:/ 'styleList' smart constructor.-data StyleList = StyleList'+data StyleList =+  StyleList'     { _slPageToken  :: !(Maybe Text)     , _slTableId    :: !Text     , _slMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,9 @@     :: Text -- ^ 'slTableId'     -> StyleList styleList pSlTableId_ =-    StyleList'-    { _slPageToken = Nothing-    , _slTableId = pSlTableId_-    , _slMaxResults = Nothing-    }+  StyleList'+    {_slPageToken = Nothing, _slTableId = pSlTableId_, _slMaxResults = Nothing}+  -- | Continuation token specifying which result page to return. Optional. slPageToken :: Lens' StyleList (Maybe Text)
gen/Network/Google/Resource/FusionTables/Style/Patch.hs view
@@ -57,12 +57,15 @@ -- | 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StylePatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> Text -- ^ 'spTableId'     -> StylePatch stylePatch pSpPayload_ pSpStyleId_ pSpTableId_ =-    StylePatch'+  StylePatch'     { _spPayload = pSpPayload_     , _spStyleId = _Coerce # pSpStyleId_     , _spTableId = pSpTableId_     }+  -- | Multipart request metadata. spPayload :: Lens' StylePatch StyleSetting
gen/Network/Google/Resource/FusionTables/Style/Update.hs view
@@ -57,12 +57,15 @@ -- | Updates an existing style. -- -- /See:/ 'styleUpdate' smart constructor.-data StyleUpdate = StyleUpdate'+data StyleUpdate =+  StyleUpdate'     { _suPayload :: !StyleSetting     , _suStyleId :: !(Textual Int32)     , _suTableId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StyleUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> Text -- ^ 'suTableId'     -> StyleUpdate styleUpdate pSuPayload_ pSuStyleId_ pSuTableId_ =-    StyleUpdate'+  StyleUpdate'     { _suPayload = pSuPayload_     , _suStyleId = _Coerce # pSuStyleId_     , _suTableId = pSuTableId_     }+  -- | Multipart request metadata. suPayload :: Lens' StyleUpdate StyleSetting
gen/Network/Google/Resource/FusionTables/Table/Copy.hs view
@@ -54,11 +54,14 @@ -- | Copies a table. -- -- /See:/ 'tableCopy' smart constructor.-data TableCopy = TableCopy'+data TableCopy =+  TableCopy'     { _tcTableId          :: !Text     , _tcCopyPresentation :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableCopy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +73,8 @@     :: Text -- ^ 'tcTableId'     -> TableCopy tableCopy pTcTableId_ =-    TableCopy'-    { _tcTableId = pTcTableId_-    , _tcCopyPresentation = Nothing-    }+  TableCopy' {_tcTableId = pTcTableId_, _tcCopyPresentation = Nothing}+  -- | ID of the table that is being copied. tcTableId :: Lens' TableCopy Text
gen/Network/Google/Resource/FusionTables/Table/Delete.hs view
@@ -51,10 +51,13 @@ -- | Deletes a table. -- -- /See:/ 'tableDelete' smart constructor.-newtype TableDelete = TableDelete'+newtype TableDelete =+  TableDelete'     { _tddTableId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ tableDelete     :: Text -- ^ 'tddTableId'     -> TableDelete-tableDelete pTddTableId_ =-    TableDelete'-    { _tddTableId = pTddTableId_-    }+tableDelete pTddTableId_ = TableDelete' {_tddTableId = pTddTableId_}+  -- | ID of the table to be deleted. tddTableId :: Lens' TableDelete Text
gen/Network/Google/Resource/FusionTables/Table/Get.hs view
@@ -51,10 +51,13 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ tableGet     :: Text -- ^ 'tgTableId'     -> TableGet-tableGet pTgTableId_ =-    TableGet'-    { _tgTableId = pTgTableId_-    }+tableGet pTgTableId_ = TableGet' {_tgTableId = pTgTableId_}+  -- | Identifier for the table being requested. tgTableId :: Lens' TableGet Text
gen/Network/Google/Resource/FusionTables/Table/ImportRows.hs view
@@ -77,15 +77,18 @@ -- | 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     , _tirDelimiter :: !(Maybe Text)     , _tirEncoding  :: !(Maybe Text)     , _tirIsStrict  :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableImportRows' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     :: Text -- ^ 'tirTableId'     -> TableImportRows tableImportRows pTirTableId_ =-    TableImportRows'+  TableImportRows'     { _tirStartLine = Nothing     , _tirEndLine = Nothing     , _tirTableId = pTirTableId_@@ -113,6 +116,7 @@     , _tirEncoding = Nothing     , _tirIsStrict = Nothing     }+  -- | The index of the first line from which to start importing, inclusive. -- Default is 0.
gen/Network/Google/Resource/FusionTables/Table/ImportTable.hs view
@@ -68,12 +68,15 @@ -- | Imports a new table. -- -- /See:/ 'tableImportTable' smart constructor.-data TableImportTable = TableImportTable'+data TableImportTable =+  TableImportTable'     { _titName      :: !Text     , _titDelimiter :: !(Maybe Text)     , _titEncoding  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableImportTable' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,11 +90,9 @@     :: Text -- ^ 'titName'     -> TableImportTable tableImportTable pTitName_ =-    TableImportTable'-    { _titName = pTitName_-    , _titDelimiter = Nothing-    , _titEncoding = Nothing-    }+  TableImportTable'+    {_titName = pTitName_, _titDelimiter = Nothing, _titEncoding = Nothing}+  -- | The name to be assigned to the new table. titName :: Lens' TableImportTable Text
gen/Network/Google/Resource/FusionTables/Table/Insert.hs view
@@ -51,10 +51,13 @@ -- | Creates a new table. -- -- /See:/ 'tableInsert' smart constructor.-newtype TableInsert = TableInsert'+newtype TableInsert =+  TableInsert'     { _tiPayload :: Table-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ tableInsert     :: Table -- ^ 'tiPayload'     -> TableInsert-tableInsert pTiPayload_ =-    TableInsert'-    { _tiPayload = pTiPayload_-    }+tableInsert pTiPayload_ = TableInsert' {_tiPayload = pTiPayload_}+  -- | Multipart request metadata. tiPayload :: Lens' TableInsert Table
gen/Network/Google/Resource/FusionTables/Table/List.hs view
@@ -53,11 +53,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableList'' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +70,8 @@ -- * 'tMaxResults' tableList'     :: TableList'-tableList' =-    TableList''-    { _tPageToken = Nothing-    , _tMaxResults = Nothing-    }+tableList' = TableList'' {_tPageToken = Nothing, _tMaxResults = Nothing}+  -- | Continuation token specifying which result page to return. tPageToken :: Lens' TableList' (Maybe Text)
gen/Network/Google/Resource/FusionTables/Table/Patch.hs view
@@ -59,12 +59,15 @@ -- semantics. -- -- /See:/ 'tablePatch' smart constructor.-data TablePatch = TablePatch'+data TablePatch =+  TablePatch'     { _tpPayload               :: !Table     , _tpReplaceViewDefinition :: !(Maybe Bool)     , _tpTableId               :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TablePatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@     -> Text -- ^ 'tpTableId'     -> TablePatch tablePatch pTpPayload_ pTpTableId_ =-    TablePatch'+  TablePatch'     { _tpPayload = pTpPayload_     , _tpReplaceViewDefinition = Nothing     , _tpTableId = pTpTableId_     }+  -- | Multipart request metadata. tpPayload :: Lens' TablePatch Table
gen/Network/Google/Resource/FusionTables/Table/RefetchSheet.hs view
@@ -56,10 +56,13 @@ -- rows are ready. -- -- /See:/ 'tableRefetchSheet' smart constructor.-newtype TableRefetchSheet = TableRefetchSheet'+newtype TableRefetchSheet =+  TableRefetchSheet'     { _trsTableId :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableRefetchSheet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,10 +71,8 @@ tableRefetchSheet     :: Text -- ^ 'trsTableId'     -> TableRefetchSheet-tableRefetchSheet pTrsTableId_ =-    TableRefetchSheet'-    { _trsTableId = pTrsTableId_-    }+tableRefetchSheet pTrsTableId_ = TableRefetchSheet' {_trsTableId = pTrsTableId_}+  -- | Table whose rows will be replaced from the spreadsheet. trsTableId :: Lens' TableRefetchSheet Text
gen/Network/Google/Resource/FusionTables/Table/ReplaceRows.hs view
@@ -79,15 +79,18 @@ -- 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     , _trrDelimiter :: !(Maybe Text)     , _trrEncoding  :: !(Maybe Text)     , _trrIsStrict  :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableReplaceRows' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -107,7 +110,7 @@     :: Text -- ^ 'trrTableId'     -> TableReplaceRows tableReplaceRows pTrrTableId_ =-    TableReplaceRows'+  TableReplaceRows'     { _trrStartLine = Nothing     , _trrEndLine = Nothing     , _trrTableId = pTrrTableId_@@ -115,6 +118,7 @@     , _trrEncoding = Nothing     , _trrIsStrict = Nothing     }+  -- | The index of the first line from which to start importing, inclusive. -- Default is 0.
gen/Network/Google/Resource/FusionTables/Table/Update.hs view
@@ -57,12 +57,15 @@ -- description, and attribution will be updated. -- -- /See:/ 'tableUpdate' smart constructor.-data TableUpdate = TableUpdate'+data TableUpdate =+  TableUpdate'     { _tabPayload               :: !Table     , _tabReplaceViewDefinition :: !(Maybe Bool)     , _tabTableId               :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TableUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,12 @@     -> Text -- ^ 'tabTableId'     -> TableUpdate tableUpdate pTabPayload_ pTabTableId_ =-    TableUpdate'+  TableUpdate'     { _tabPayload = pTabPayload_     , _tabReplaceViewDefinition = Nothing     , _tabTableId = pTabTableId_     }+  -- | Multipart request metadata. tabPayload :: Lens' TableUpdate Table
gen/Network/Google/Resource/FusionTables/Task/Delete.hs view
@@ -56,11 +56,14 @@ -- running. -- -- /See:/ 'taskDelete' smart constructor.-data TaskDelete = TaskDelete'+data TaskDelete =+  TaskDelete'     { _tdTaskId  :: !Text     , _tdTableId :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,8 @@     -> Text -- ^ 'tdTableId'     -> TaskDelete taskDelete pTdTaskId_ pTdTableId_ =-    TaskDelete'-    { _tdTaskId = pTdTaskId_-    , _tdTableId = pTdTableId_-    }+  TaskDelete' {_tdTaskId = pTdTaskId_, _tdTableId = pTdTableId_}+  -- | The identifier of the task to delete. tdTaskId :: Lens' TaskDelete Text
gen/Network/Google/Resource/FusionTables/Task/Get.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'tggTableId'     -> TaskGet taskGet pTggTaskId_ pTggTableId_ =-    TaskGet'-    { _tggTaskId = pTggTaskId_-    , _tggTableId = pTggTableId_-    }+  TaskGet' {_tggTaskId = pTggTaskId_, _tggTableId = pTggTableId_}+  -- | The identifier of the task to get. tggTaskId :: Lens' TaskGet Text
gen/Network/Google/Resource/FusionTables/Task/List.hs view
@@ -58,13 +58,16 @@ -- | Retrieves a list of tasks. -- -- /See:/ 'taskList'' smart constructor.-data TaskList' = TaskList''+data TaskList' =+  TaskList''     { _tlPageToken  :: !(Maybe Text)     , _tlTableId    :: !Text     , _tlStartIndex :: !(Maybe (Textual Word32))     , _tlMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskList'' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,12 +83,13 @@     :: Text -- ^ 'tlTableId'     -> TaskList' taskList' pTlTableId_ =-    TaskList''+  TaskList''     { _tlPageToken = Nothing     , _tlTableId = pTlTableId_     , _tlStartIndex = Nothing     , _tlMaxResults = Nothing     }+  -- | Continuation token specifying which result page to return. tlPageToken :: Lens' TaskList' (Maybe Text)
gen/Network/Google/Resource/FusionTables/Template/Delete.hs view
@@ -54,11 +54,14 @@ -- | Deletes a template -- -- /See:/ 'templateDelete' smart constructor.-data TemplateDelete = TemplateDelete'+data TemplateDelete =+  TemplateDelete'     { _tTemplateId :: !(Textual Int32)     , _tTableId    :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplateDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,9 @@     -> Text -- ^ 'tTableId'     -> TemplateDelete templateDelete pTTemplateId_ pTTableId_ =-    TemplateDelete'-    { _tTemplateId = _Coerce # pTTemplateId_-    , _tTableId = pTTableId_-    }+  TemplateDelete'+    {_tTemplateId = _Coerce # pTTemplateId_, _tTableId = pTTableId_}+  -- | Identifier for the template which is being deleted tTemplateId :: Lens' TemplateDelete Int32
gen/Network/Google/Resource/FusionTables/Template/Get.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplateGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,9 @@     -> Text -- ^ 'temeTableId'     -> TemplateGet templateGet pTemeTemplateId_ pTemeTableId_ =-    TemplateGet'-    { _temeTemplateId = _Coerce # pTemeTemplateId_-    , _temeTableId = pTemeTableId_-    }+  TemplateGet'+    {_temeTemplateId = _Coerce # pTemeTemplateId_, _temeTableId = pTemeTableId_}+  -- | Identifier for the template that is being requested temeTemplateId :: Lens' TemplateGet Int32
gen/Network/Google/Resource/FusionTables/Template/Insert.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplateInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'temTableId'     -> TemplateInsert templateInsert pTemPayload_ pTemTableId_ =-    TemplateInsert'-    { _temPayload = pTemPayload_-    , _temTableId = pTemTableId_-    }+  TemplateInsert' {_temPayload = pTemPayload_, _temTableId = pTemTableId_}+  -- | Multipart request metadata. temPayload :: Lens' TemplateInsert Template
gen/Network/Google/Resource/FusionTables/Template/List.hs view
@@ -56,12 +56,15 @@ -- | Retrieves a list of templates. -- -- /See:/ 'templateList'' smart constructor.-data TemplateList' = TemplateList''+data TemplateList' =+  TemplateList''     { _tllPageToken  :: !(Maybe Text)     , _tllTableId    :: !Text     , _tllMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplateList'' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +78,12 @@     :: Text -- ^ 'tllTableId'     -> TemplateList' templateList' pTllTableId_ =-    TemplateList''+  TemplateList''     { _tllPageToken = Nothing     , _tllTableId = pTllTableId_     , _tllMaxResults = Nothing     }+  -- | Continuation token specifying which results page to return. Optional. tllPageToken :: Lens' TemplateList' (Maybe Text)
gen/Network/Google/Resource/FusionTables/Template/Patch.hs view
@@ -56,12 +56,15 @@ -- | 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplatePatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,12 @@     -> Text -- ^ 'tppTableId'     -> TemplatePatch templatePatch pTppTemplateId_ pTppPayload_ pTppTableId_ =-    TemplatePatch'+  TemplatePatch'     { _tppTemplateId = _Coerce # pTppTemplateId_     , _tppPayload = pTppPayload_     , _tppTableId = pTppTableId_     }+  -- | Identifier for the template that is being updated tppTemplateId :: Lens' TemplatePatch Int32
gen/Network/Google/Resource/FusionTables/Template/Update.hs view
@@ -56,12 +56,15 @@ -- | Updates an existing template -- -- /See:/ 'templateUpdate' smart constructor.-data TemplateUpdate = TemplateUpdate'+data TemplateUpdate =+  TemplateUpdate'     { _tuTemplateId :: !(Textual Int32)     , _tuPayload    :: !Template     , _tuTableId    :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TemplateUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,12 @@     -> Text -- ^ 'tuTableId'     -> TemplateUpdate templateUpdate pTuTemplateId_ pTuPayload_ pTuTableId_ =-    TemplateUpdate'+  TemplateUpdate'     { _tuTemplateId = _Coerce # pTuTemplateId_     , _tuPayload = pTuPayload_     , _tuTableId = pTuTableId_     }+  -- | Identifier for the template that is being updated tuTemplateId :: Lens' TemplateUpdate Int32
gogol-fusiontables.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-fusiontables-version:               0.4.0+version:               0.5.0 synopsis:              Google Fusion Tables SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -75,5 +75,5 @@         , Network.Google.FusionTables.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5