gogol-fitness 0.4.0 → 0.5.0

raw patch · 19 files changed

+294/−328 lines, 19 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/Fitness.hs +0/−5
• gen/Network/Google/Fitness/Types.hs +18/−18
• gen/Network/Google/Fitness/Types/Product.hs +174/−116
• gen/Network/Google/Resource/Fitness/Users/DataSet/Aggregate.hs +8/−6
• gen/Network/Google/Resource/Fitness/Users/DataSources/Create.hs +8/−6
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataPointChanges/List.hs +9/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Delete.hs +7/−3
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Get.hs +7/−3
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Patch.hs +7/−3
• gen/Network/Google/Resource/Fitness/Users/DataSources/Delete.hs +8/−6
• gen/Network/Google/Resource/Fitness/Users/DataSources/Get.hs +8/−6
• gen/Network/Google/Resource/Fitness/Users/DataSources/List.hs +8/−6
• gen/Network/Google/Resource/Fitness/Users/DataSources/Patch.hs +0/−129
• gen/Network/Google/Resource/Fitness/Users/DataSources/Update.hs +7/−3
• gen/Network/Google/Resource/Fitness/Users/Sessions/Delete.hs +7/−3
• gen/Network/Google/Resource/Fitness/Users/Sessions/List.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/Sessions/Update.hs +7/−3
• gogol-fitness.cabal +2/−3

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -71,9 +71,6 @@     -- ** fitness.users.dataSources.list     , module Network.Google.Resource.Fitness.Users.DataSources.List -    -- ** fitness.users.dataSources.patch-    , module Network.Google.Resource.Fitness.Users.DataSources.Patch-     -- ** fitness.users.dataSources.update     , module Network.Google.Resource.Fitness.Users.DataSources.Update @@ -297,7 +294,6 @@ import           Network.Google.Resource.Fitness.Users.DataSources.Delete import           Network.Google.Resource.Fitness.Users.DataSources.Get import           Network.Google.Resource.Fitness.Users.DataSources.List-import           Network.Google.Resource.Fitness.Users.DataSources.Patch import           Network.Google.Resource.Fitness.Users.DataSources.Update import           Network.Google.Resource.Fitness.Users.Sessions.Delete import           Network.Google.Resource.Fitness.Users.Sessions.List@@ -315,7 +311,6 @@        :<|> UsersDataSourcesDataSetsDeleteResource        :<|> UsersDataSourcesDataPointChangesListResource        :<|> UsersDataSourcesListResource-       :<|> UsersDataSourcesPatchResource        :<|> UsersDataSourcesGetResource        :<|> UsersDataSourcesCreateResource        :<|> UsersDataSourcesDeleteResource

@@ -246,72 +246,72 @@  -- | View body temperature data in Google Fit fitnessBodyTemperatureReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.body_temperature.read"]-fitnessBodyTemperatureReadScope = Proxy;+fitnessBodyTemperatureReadScope = Proxy  -- | View body sensor information in Google Fit fitnessBodyReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.body.read"]-fitnessBodyReadScope = Proxy;+fitnessBodyReadScope = Proxy  -- | View nutrition information in Google Fit fitnessNutritionReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.nutrition.read"]-fitnessNutritionReadScope = Proxy;+fitnessNutritionReadScope = Proxy  -- | View reproductive health data in Google Fit fitnessReProductiveHealthReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.reproductive_health.read"]-fitnessReProductiveHealthReadScope = Proxy;+fitnessReProductiveHealthReadScope = Proxy  -- | View your activity information in Google Fit fitnessActivityReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.activity.read"]-fitnessActivityReadScope = Proxy;+fitnessActivityReadScope = Proxy  -- | View and store reproductive health data in Google Fit fitnessReProductiveHealthWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.reproductive_health.write"]-fitnessReProductiveHealthWriteScope = Proxy;+fitnessReProductiveHealthWriteScope = Proxy  -- | View and store your activity information in Google Fit fitnessActivityWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.activity.write"]-fitnessActivityWriteScope = Proxy;+fitnessActivityWriteScope = Proxy  -- | View and store blood pressure data in Google Fit fitnessBloodPressureWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.blood_pressure.write"]-fitnessBloodPressureWriteScope = Proxy;+fitnessBloodPressureWriteScope = Proxy  -- | View and store body temperature data in Google Fit fitnessBodyTemperatureWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.body_temperature.write"]-fitnessBodyTemperatureWriteScope = Proxy;+fitnessBodyTemperatureWriteScope = Proxy  -- | View oxygen saturation data in Google Fit fitnessOxygenSaturationReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.oxygen_saturation.read"]-fitnessOxygenSaturationReadScope = Proxy;+fitnessOxygenSaturationReadScope = Proxy  -- | View and store blood glucose data in Google Fit fitnessBloodGlucoseWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.blood_glucose.write"]-fitnessBloodGlucoseWriteScope = Proxy;+fitnessBloodGlucoseWriteScope = Proxy  -- | View blood pressure data in Google Fit fitnessBloodPressureReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.blood_pressure.read"]-fitnessBloodPressureReadScope = Proxy;+fitnessBloodPressureReadScope = Proxy  -- | View your stored location data in Google Fit fitnessLocationReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.location.read"]-fitnessLocationReadScope = Proxy;+fitnessLocationReadScope = Proxy  -- | View and store your location data in Google Fit fitnessLocationWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.location.write"]-fitnessLocationWriteScope = Proxy;+fitnessLocationWriteScope = Proxy  -- | View and store nutrition information in Google Fit fitnessNutritionWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.nutrition.write"]-fitnessNutritionWriteScope = Proxy;+fitnessNutritionWriteScope = Proxy  -- | View and store body sensor data in Google Fit fitnessBodyWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.body.write"]-fitnessBodyWriteScope = Proxy;+fitnessBodyWriteScope = Proxy  -- | View blood glucose data in Google Fit fitnessBloodGlucoseReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.blood_glucose.read"]-fitnessBloodGlucoseReadScope = Proxy;+fitnessBloodGlucoseReadScope = Proxy  -- | View and store oxygen saturation data in Google Fit fitnessOxygenSaturationWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.oxygen_saturation.write"]-fitnessOxygenSaturationWriteScope = Proxy;+fitnessOxygenSaturationWriteScope = Proxy

@@ -26,14 +26,17 @@ -- one dataset. -- -- /See:/ 'dataSet' smart constructor.-data DataSet = DataSet'+data DataSet =+  DataSet'     { _dsNextPageToken  :: !(Maybe Text)     , _dsDataSourceId   :: !(Maybe Text)     , _dsPoint          :: !(Maybe [DataPoint])     , _dsMinStartTimeNs :: !(Maybe (Textual Int64))     , _dsMaxEndTimeNs   :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -50,7 +53,7 @@ dataSet     :: DataSet dataSet =-    DataSet'+  DataSet'     { _dsNextPageToken = Nothing     , _dsDataSourceId = Nothing     , _dsPoint = Nothing@@ -58,6 +61,7 @@     , _dsMaxEndTimeNs = Nothing     } + -- | This token will be set when a dataset is received in response to a GET -- request and the dataset is too large to be included in a single -- response. Provide this value in a subsequent GET request to return the@@ -94,7 +98,7 @@  -- | The largest end time of all data points in this possibly partial -- representation of the dataset. Time is in nanoseconds from epoch. This--- should also match the first part of the dataset identifier.+-- should also match the second part of the dataset identifier. dsMaxEndTimeNs :: Lens' DataSet (Maybe Int64) dsMaxEndTimeNs   = lens _dsMaxEndTimeNs@@ -124,13 +128,16 @@ -- | -- -- /See:/ 'application' smart constructor.-data Application = Application'+data Application =+  Application'     { _aPackageName :: !(Maybe Text)     , _aName        :: !(Maybe Text)     , _aVersion     :: !(Maybe Text)     , _aDetailsURL  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Application' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -145,13 +152,14 @@ application     :: Application application =-    Application'+  Application'     { _aPackageName = Nothing     , _aName = Nothing     , _aVersion = Nothing     , _aDetailsURL = Nothing     } + -- | Package name for this application. This is used as a unique identifier -- when created by Android applications, but cannot be specified by REST -- clients. REST clients will have their developer project number reflected@@ -196,10 +204,13 @@  -- -- /See:/ 'aggregateResponse' smart constructor.-newtype AggregateResponse = AggregateResponse'+newtype AggregateResponse =+  AggregateResponse'     { _arBucket :: Maybe [AggregateBucket]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AggregateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -207,11 +218,9 @@ -- * 'arBucket' aggregateResponse     :: AggregateResponse-aggregateResponse =-    AggregateResponse'-    { _arBucket = Nothing-    }+aggregateResponse = AggregateResponse' {_arBucket = Nothing} + -- | A list of buckets containing the aggregated data. arBucket :: Lens' AggregateResponse [AggregateBucket] arBucket@@ -232,11 +241,14 @@ -- | The specification of which data to aggregate. -- -- /See:/ 'aggregateBy' smart constructor.-data AggregateBy = AggregateBy'+data AggregateBy =+  AggregateBy'     { _abDataTypeName :: !(Maybe Text)     , _abDataSourceId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AggregateBy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -247,11 +259,9 @@ aggregateBy     :: AggregateBy aggregateBy =-    AggregateBy'-    { _abDataTypeName = Nothing-    , _abDataSourceId = Nothing-    }+  AggregateBy' {_abDataTypeName = Nothing, _abDataSourceId = Nothing} + -- | The data type to aggregate. All data sources providing this data type -- will contribute data to the aggregation. The response will contain a -- single dataset for this data type name. The dataset will have a data@@ -286,11 +296,14 @@  -- -- /See:/ 'bucketByActivity' smart constructor.-data BucketByActivity = BucketByActivity'+data BucketByActivity =+  BucketByActivity'     { _bbaMinDurationMillis    :: !(Maybe (Textual Int64))     , _bbaActivityDataSourceId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BucketByActivity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -301,11 +314,10 @@ bucketByActivity     :: BucketByActivity bucketByActivity =-    BucketByActivity'-    { _bbaMinDurationMillis = Nothing-    , _bbaActivityDataSourceId = Nothing-    }+  BucketByActivity'+    {_bbaMinDurationMillis = Nothing, _bbaActivityDataSourceId = Nothing} + -- | Specifies that only activity segments of duration longer than -- minDurationMillis are considered and used as a container for aggregated -- data.@@ -341,7 +353,8 @@ -- | Next id: 10 -- -- /See:/ 'aggregateRequest' smart constructor.-data AggregateRequest = AggregateRequest'+data AggregateRequest =+  AggregateRequest'     { _arEndTimeMillis               :: !(Maybe (Textual Int64))     , _arFilteredDataQualityStandard :: !(Maybe [AggregateRequestFilteredDataQualityStandardItem])     , _arAggregateBy                 :: !(Maybe [AggregateBy])@@ -350,8 +363,10 @@     , _arBucketByTime                :: !(Maybe BucketByTime)     , _arStartTimeMillis             :: !(Maybe (Textual Int64))     , _arBucketByActivitySegment     :: !(Maybe BucketByActivity)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AggregateRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -374,7 +389,7 @@ aggregateRequest     :: AggregateRequest aggregateRequest =-    AggregateRequest'+  AggregateRequest'     { _arEndTimeMillis = Nothing     , _arFilteredDataQualityStandard = Nothing     , _arAggregateBy = Nothing@@ -385,6 +400,7 @@     , _arBucketByActivitySegment = Nothing     } + -- | The end of a window of time. Data that intersects with this time window -- will be aggregated. The time is in milliseconds since epoch, inclusive. arEndTimeMillis :: Lens' AggregateRequest (Maybe Int64)@@ -393,9 +409,9 @@       (\ s a -> s{_arEndTimeMillis = a})       . mapping _Coerce --- | A list of acceptable data quality standards. Only data points which--- conform to at least one of the specified data quality standards will be--- returned. If the list is empty, all data points are returned.+-- | DO NOT POPULATE THIS FIELD. As data quality standards are deprecated,+-- filling it in will result in no data sources being returned. It will be+-- removed in a future version entirely. arFilteredDataQualityStandard :: Lens' AggregateRequest [AggregateRequestFilteredDataQualityStandardItem] arFilteredDataQualityStandard   = lens _arFilteredDataQualityStandard@@ -500,14 +516,17 @@ -- different analysis models for each device\/version. -- -- /See:/ 'device' smart constructor.-data Device = Device'+data Device =+  Device'     { _dManufacturer :: !(Maybe Text)     , _dUid          :: !(Maybe Text)     , _dModel        :: !(Maybe Text)     , _dVersion      :: !(Maybe Text)     , _dType         :: !(Maybe DeviceType)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Device' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -524,7 +543,7 @@ device     :: Device device =-    Device'+  Device'     { _dManufacturer = Nothing     , _dUid = Nothing     , _dModel = Nothing@@ -532,6 +551,7 @@     , _dType = Nothing     } + -- | Manufacturer of the product\/hardware. dManufacturer :: Lens' Device (Maybe Text) dManufacturer@@ -581,13 +601,16 @@ -- or a floating point value. LINT.IfChange -- -- /See:/ 'value' smart constructor.-data Value = Value'+data Value =+  Value'     { _vMapVal    :: !(Maybe [ValueMapValEntry])     , _vFpVal     :: !(Maybe (Textual Double))     , _vIntVal    :: !(Maybe (Textual Int32))     , _vStringVal :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Value' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -602,13 +625,14 @@ value     :: Value value =-    Value'+  Value'     { _vMapVal = Nothing     , _vFpVal = Nothing     , _vIntVal = Nothing     , _vStringVal = Nothing     } + -- | Map value. The valid key space and units for the corresponding value of -- each entry should be documented as part of the data type definition. -- Keys should be kept small whenever possible. Data streams with large@@ -656,10 +680,13 @@  -- -- /See:/ 'bucketBySession' smart constructor.-newtype BucketBySession = BucketBySession'+newtype BucketBySession =+  BucketBySession'     { _bbsMinDurationMillis :: Maybe (Textual Int64)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BucketBySession' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -667,11 +694,9 @@ -- * 'bbsMinDurationMillis' bucketBySession     :: BucketBySession-bucketBySession =-    BucketBySession'-    { _bbsMinDurationMillis = Nothing-    }+bucketBySession = BucketBySession' {_bbsMinDurationMillis = Nothing} + -- | Specifies that only sessions of duration longer than minDurationMillis -- are considered and used as a container for aggregated data. bbsMinDurationMillis :: Lens' BucketBySession (Maybe Int64)@@ -703,7 +728,8 @@ -- field of the data type. -- -- /See:/ 'dataPoint' smart constructor.-data DataPoint = DataPoint'+data DataPoint =+  DataPoint'     { _dpOriginDataSourceId    :: !(Maybe Text)     , _dpRawTimestampNanos     :: !(Maybe (Textual Int64))     , _dpDataTypeName          :: !(Maybe Text)@@ -712,8 +738,10 @@     , _dpEndTimeNanos          :: !(Maybe (Textual Int64))     , _dpModifiedTimeMillis    :: !(Maybe (Textual Int64))     , _dpStartTimeNanos        :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataPoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -736,7 +764,7 @@ dataPoint     :: DataPoint dataPoint =-    DataPoint'+  DataPoint'     { _dpOriginDataSourceId = Nothing     , _dpRawTimestampNanos = Nothing     , _dpDataTypeName = Nothing@@ -747,9 +775,13 @@     , _dpStartTimeNanos = Nothing     } + -- | If the data point is contained in a dataset for a derived data source, -- this field will be populated with the data source stream ID that created--- the data point originally.+-- the data point originally. WARNING: do not rely on this field for+-- anything other than debugging. The value of this field, if it is set at+-- all, is an implementation detail and is not guaranteed to remain+-- consistent. dpOriginDataSourceId :: Lens' DataPoint (Maybe Text) dpOriginDataSourceId   = lens _dpOriginDataSourceId@@ -840,13 +872,16 @@  -- -- /See:/ 'listSessionsResponse' smart constructor.-data ListSessionsResponse = ListSessionsResponse'+data ListSessionsResponse =+  ListSessionsResponse'     { _lsrNextPageToken  :: !(Maybe Text)     , _lsrDeletedSession :: !(Maybe [Session])     , _lsrHasMoreData    :: !(Maybe Bool)     , _lsrSession        :: !(Maybe [Session])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListSessionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -861,13 +896,14 @@ listSessionsResponse     :: ListSessionsResponse listSessionsResponse =-    ListSessionsResponse'+  ListSessionsResponse'     { _lsrNextPageToken = Nothing     , _lsrDeletedSession = Nothing     , _lsrHasMoreData = Nothing     , _lsrSession = Nothing     } + -- | The continuation token, which is used to page through large result sets. -- Provide this value in a subsequent request to return the next page of -- results.@@ -921,15 +957,18 @@  -- -- /See:/ 'aggregateBucket' smart constructor.-data AggregateBucket = AggregateBucket'+data AggregateBucket =+  AggregateBucket'     { _abEndTimeMillis   :: !(Maybe (Textual Int64))     , _abDataSet         :: !(Maybe [DataSet])     , _abActivity        :: !(Maybe (Textual Int32))     , _abType            :: !(Maybe AggregateBucketType)     , _abStartTimeMillis :: !(Maybe (Textual Int64))     , _abSession         :: !(Maybe Session)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AggregateBucket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -948,7 +987,7 @@ aggregateBucket     :: AggregateBucket aggregateBucket =-    AggregateBucket'+  AggregateBucket'     { _abEndTimeMillis = Nothing     , _abDataSet = Nothing     , _abActivity = Nothing@@ -957,6 +996,7 @@     , _abSession = Nothing     } + -- | The end time for the aggregated data, in milliseconds since epoch, -- inclusive. abEndTimeMillis :: Lens' AggregateBucket (Maybe Int64)@@ -1024,10 +1064,13 @@ -- supports. -- -- /See:/ 'mapValue' smart constructor.-newtype MapValue = MapValue'+newtype MapValue =+  MapValue'     { _mvFpVal :: Maybe (Textual Double)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MapValue' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1035,11 +1078,9 @@ -- * 'mvFpVal' mapValue     :: MapValue-mapValue =-    MapValue'-    { _mvFpVal = Nothing-    }+mapValue = MapValue' {_mvFpVal = Nothing} + -- | Floating point value. mvFpVal :: Lens' MapValue (Maybe Double) mvFpVal@@ -1057,10 +1098,13 @@  -- -- /See:/ 'listDataSourcesResponse' smart constructor.-newtype ListDataSourcesResponse = ListDataSourcesResponse'+newtype ListDataSourcesResponse =+  ListDataSourcesResponse'     { _ldsrDataSource :: Maybe [DataSource]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDataSourcesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1068,11 +1112,9 @@ -- * 'ldsrDataSource' listDataSourcesResponse     :: ListDataSourcesResponse-listDataSourcesResponse =-    ListDataSourcesResponse'-    { _ldsrDataSource = Nothing-    }+listDataSourcesResponse = ListDataSourcesResponse' {_ldsrDataSource = Nothing} + -- | A previously created data source. ldsrDataSource :: Lens' ListDataSourcesResponse [DataSource] ldsrDataSource@@ -1100,12 +1142,15 @@ -- code and not used for wire comms or stored in any way. -- -- /See:/ 'dataTypeField' smart constructor.-data DataTypeField = DataTypeField'+data DataTypeField =+  DataTypeField'     { _dtfFormat   :: !(Maybe DataTypeFieldFormat)     , _dtfName     :: !(Maybe Text)     , _dtfOptional :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataTypeField' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1118,12 +1163,10 @@ dataTypeField     :: DataTypeField dataTypeField =-    DataTypeField'-    { _dtfFormat = Nothing-    , _dtfName = Nothing-    , _dtfOptional = Nothing-    }+  DataTypeField'+    {_dtfFormat = Nothing, _dtfName = Nothing, _dtfOptional = Nothing} + -- | The different supported formats for each field in a data type. dtfFormat :: Lens' DataTypeField (Maybe DataTypeFieldFormat) dtfFormat@@ -1170,7 +1213,8 @@ -- stream. -- -- /See:/ 'dataSource' smart constructor.-data DataSource = DataSource'+data DataSource =+  DataSource'     { _dsApplication         :: !(Maybe Application)     , _dsDevice              :: !(Maybe Device)     , _dsDataQualityStandard :: !(Maybe [DataSourceDataQualityStandardItem])@@ -1179,8 +1223,10 @@     , _dsType                :: !(Maybe DataSourceType)     , _dsDataStreamName      :: !(Maybe Text)     , _dsDataStreamId        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1203,7 +1249,7 @@ dataSource     :: DataSource dataSource =-    DataSource'+  DataSource'     { _dsApplication = Nothing     , _dsDevice = Nothing     , _dsDataQualityStandard = Nothing@@ -1214,6 +1260,7 @@     , _dsDataStreamId = Nothing     } + -- | Information about an application which feeds sensor data into the -- platform. dsApplication :: Lens' DataSource (Maybe Application)@@ -1226,7 +1273,9 @@ dsDevice :: Lens' DataSource (Maybe Device) dsDevice = lens _dsDevice (\ s a -> s{_dsDevice = a}) --- |+-- | DO NOT POPULATE THIS FIELD. It is never populated in responses from the+-- platform, and is ignored in queries. It will be removed in a future+-- version entirely. dsDataQualityStandard :: Lens' DataSource [DataSourceDataQualityStandardItem] dsDataQualityStandard   = lens _dsDataQualityStandard@@ -1276,13 +1325,12 @@ -- The exact format of the data stream ID created by a REST client is: -- type:dataType.name:developer project -- number:device.manufacturer:device.model:device.uid:dataStreamName When--- any of the optional fields that comprise of the data stream ID are--- blank, they will be omitted from the data stream ID. The minimum viable--- data stream ID would be: type:dataType.name:developer project number--- Finally, the developer project number is obfuscated when read by any--- REST or Android client that did not create the data source. Only the--- data source creator will see the developer project number in clear and--- normal form.+-- any of the optional fields that make up the data stream ID are absent,+-- they will be omitted from the data stream ID. The minimum viable data+-- stream ID would be: type:dataType.name:developer project number Finally,+-- the developer project number is obfuscated when read by any REST or+-- Android client that did not create the data source. Only the data source+-- creator will see the developer project number in clear and normal form. dsDataStreamId :: Lens' DataSource (Maybe Text) dsDataStreamId   = lens _dsDataStreamId@@ -1317,12 +1365,15 @@  -- -- /See:/ 'bucketByTimePeriod' smart constructor.-data BucketByTimePeriod = BucketByTimePeriod'+data BucketByTimePeriod =+  BucketByTimePeriod'     { _bbtpValue      :: !(Maybe (Textual Int32))     , _bbtpType       :: !(Maybe BucketByTimePeriodType)     , _bbtpTimeZoneId :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BucketByTimePeriod' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1335,12 +1386,10 @@ bucketByTimePeriod     :: BucketByTimePeriod bucketByTimePeriod =-    BucketByTimePeriod'-    { _bbtpValue = Nothing-    , _bbtpType = Nothing-    , _bbtpTimeZoneId = Nothing-    }+  BucketByTimePeriod'+    {_bbtpValue = Nothing, _bbtpType = Nothing, _bbtpTimeZoneId = Nothing} + bbtpValue :: Lens' BucketByTimePeriod (Maybe Int32) bbtpValue   = lens _bbtpValue (\ s a -> s{_bbtpValue = a}) .@@ -1373,11 +1422,14 @@  -- -- /See:/ 'valueMapValEntry' smart constructor.-data ValueMapValEntry = ValueMapValEntry'+data ValueMapValEntry =+  ValueMapValEntry'     { _vmveValue :: !(Maybe MapValue)     , _vmveKey   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ValueMapValEntry' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1387,12 +1439,9 @@ -- * 'vmveKey' valueMapValEntry     :: ValueMapValEntry-valueMapValEntry =-    ValueMapValEntry'-    { _vmveValue = Nothing-    , _vmveKey = Nothing-    }+valueMapValEntry = ValueMapValEntry' {_vmveValue = Nothing, _vmveKey = Nothing} + vmveValue :: Lens' ValueMapValEntry (Maybe MapValue) vmveValue   = lens _vmveValue (\ s a -> s{_vmveValue = a})@@ -1416,11 +1465,14 @@  -- -- /See:/ 'bucketByTime' smart constructor.-data BucketByTime = BucketByTime'+data BucketByTime =+  BucketByTime'     { _bbtPeriod         :: !(Maybe BucketByTimePeriod)     , _bbtDurationMillis :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BucketByTime' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1431,11 +1483,9 @@ bucketByTime     :: BucketByTime bucketByTime =-    BucketByTime'-    { _bbtPeriod = Nothing-    , _bbtDurationMillis = Nothing-    }+  BucketByTime' {_bbtPeriod = Nothing, _bbtDurationMillis = Nothing} + bbtPeriod :: Lens' BucketByTime (Maybe BucketByTimePeriod) bbtPeriod   = lens _bbtPeriod (\ s a -> s{_bbtPeriod = a})@@ -1466,11 +1516,14 @@ -- | -- -- /See:/ 'dataType' smart constructor.-data DataType = DataType'+data DataType =+  DataType'     { _dtField :: !(Maybe [DataTypeField])     , _dtName  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DataType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1480,12 +1533,9 @@ -- * 'dtName' dataType     :: DataType-dataType =-    DataType'-    { _dtField = Nothing-    , _dtName = Nothing-    }+dataType = DataType' {_dtField = Nothing, _dtName = Nothing} + -- | A field represents one dimension of a data type. dtField :: Lens' DataType [DataTypeField] dtField@@ -1512,13 +1562,16 @@  -- -- /See:/ 'listDataPointChangesResponse' smart constructor.-data ListDataPointChangesResponse = ListDataPointChangesResponse'+data ListDataPointChangesResponse =+  ListDataPointChangesResponse'     { _ldpcrNextPageToken     :: !(Maybe Text)     , _ldpcrInsertedDataPoint :: !(Maybe [DataPoint])     , _ldpcrDataSourceId      :: !(Maybe Text)     , _ldpcrDeletedDataPoint  :: !(Maybe [DataPoint])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDataPointChangesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1533,13 +1586,14 @@ listDataPointChangesResponse     :: ListDataPointChangesResponse listDataPointChangesResponse =-    ListDataPointChangesResponse'+  ListDataPointChangesResponse'     { _ldpcrNextPageToken = Nothing     , _ldpcrInsertedDataPoint = Nothing     , _ldpcrDataSourceId = Nothing     , _ldpcrDeletedDataPoint = Nothing     } + -- | The continuation token, which is used to page through large result sets. -- Provide this value in a subsequent request to return the next page of -- results.@@ -1594,7 +1648,8 @@ -- interval information. -- -- /See:/ 'session' smart constructor.-data Session = Session'+data Session =+  Session'     { _sEndTimeMillis      :: !(Maybe (Textual Int64))     , _sActiveTimeMillis   :: !(Maybe (Textual Int64))     , _sApplication        :: !(Maybe Application)@@ -1604,8 +1659,10 @@     , _sId                 :: !(Maybe Text)     , _sStartTimeMillis    :: !(Maybe (Textual Int64))     , _sDescription        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Session' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1630,7 +1687,7 @@ session     :: Session session =-    Session'+  Session'     { _sEndTimeMillis = Nothing     , _sActiveTimeMillis = Nothing     , _sApplication = Nothing@@ -1641,6 +1698,7 @@     , _sStartTimeMillis = Nothing     , _sDescription = Nothing     }+  -- | An end time, in milliseconds since epoch, inclusive. sEndTimeMillis :: Lens' Session (Maybe Int64)

@@ -61,11 +61,14 @@ -- request. -- -- /See:/ 'usersDataSetAggregate' smart constructor.-data UsersDataSetAggregate = UsersDataSetAggregate'+data UsersDataSetAggregate =+  UsersDataSetAggregate'     { _udsaPayload :: !AggregateRequest     , _udsaUserId  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSetAggregate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,10 +81,9 @@     -> Text -- ^ 'udsaUserId'     -> UsersDataSetAggregate usersDataSetAggregate pUdsaPayload_ pUdsaUserId_ =-    UsersDataSetAggregate'-    { _udsaPayload = pUdsaPayload_-    , _udsaUserId = pUdsaUserId_-    }+  UsersDataSetAggregate'+    {_udsaPayload = pUdsaPayload_, _udsaUserId = pUdsaUserId_}+  -- | Multipart request metadata. udsaPayload :: Lens' UsersDataSetAggregate AggregateRequest

@@ -68,11 +68,14 @@ -- when read by any other developer reading public data types. -- -- /See:/ 'usersDataSourcesCreate' smart constructor.-data UsersDataSourcesCreate = UsersDataSourcesCreate'+data UsersDataSourcesCreate =+  UsersDataSourcesCreate'     { _udscPayload :: !DataSource     , _udscUserId  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,10 +88,9 @@     -> Text -- ^ 'udscUserId'     -> UsersDataSourcesCreate usersDataSourcesCreate pUdscPayload_ pUdscUserId_ =-    UsersDataSourcesCreate'-    { _udscPayload = pUdscPayload_-    , _udscUserId = pUdscUserId_-    }+  UsersDataSourcesCreate'+    {_udscPayload = pUdscPayload_, _udscUserId = pUdscUserId_}+  -- | Multipart request metadata. udscPayload :: Lens' UsersDataSourcesCreate DataSource

@@ -60,13 +60,16 @@ -- | Queries for user\'s data point changes for a particular data source. -- -- /See:/ 'usersDataSourcesDataPointChangesList' smart constructor.-data UsersDataSourcesDataPointChangesList = UsersDataSourcesDataPointChangesList'+data UsersDataSourcesDataPointChangesList =+  UsersDataSourcesDataPointChangesList'     { _udsdpclDataSourceId :: !Text     , _udsdpclUserId       :: !Text     , _udsdpclLimit        :: !(Maybe (Textual Int32))     , _udsdpclPageToken    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesDataPointChangesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,13 +86,14 @@     -> Text -- ^ 'udsdpclUserId'     -> UsersDataSourcesDataPointChangesList usersDataSourcesDataPointChangesList pUdsdpclDataSourceId_ pUdsdpclUserId_ =-    UsersDataSourcesDataPointChangesList'+  UsersDataSourcesDataPointChangesList'     { _udsdpclDataSourceId = pUdsdpclDataSourceId_     , _udsdpclUserId = pUdsdpclUserId_     , _udsdpclLimit = Nothing     , _udsdpclPageToken = Nothing     } + -- | The data stream ID of the data source that created the dataset. udsdpclDataSourceId :: Lens' UsersDataSourcesDataPointChangesList Text udsdpclDataSourceId@@ -119,7 +123,8 @@       (\ s a -> s{_udsdpclPageToken = a})  instance GoogleRequest-         UsersDataSourcesDataPointChangesList where+           UsersDataSourcesDataPointChangesList+         where         type Rs UsersDataSourcesDataPointChangesList =              ListDataPointChangesResponse         type Scopes UsersDataSourcesDataPointChangesList =

@@ -73,14 +73,17 @@ -- will be deleted. -- -- /See:/ 'usersDataSourcesDataSetsDelete' smart constructor.-data UsersDataSourcesDataSetsDelete = UsersDataSourcesDataSetsDelete'+data UsersDataSourcesDataSetsDelete =+  UsersDataSourcesDataSetsDelete'     { _udsdsdDataSourceId       :: !Text     , _udsdsdUserId             :: !Text     , _udsdsdDataSetId          :: !Text     , _udsdsdModifiedTimeMillis :: !(Maybe (Textual Int64))     , _udsdsdCurrentTimeMillis  :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesDataSetsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -100,13 +103,14 @@     -> Text -- ^ 'udsdsdDataSetId'     -> UsersDataSourcesDataSetsDelete usersDataSourcesDataSetsDelete pUdsdsdDataSourceId_ pUdsdsdUserId_ pUdsdsdDataSetId_ =-    UsersDataSourcesDataSetsDelete'+  UsersDataSourcesDataSetsDelete'     { _udsdsdDataSourceId = pUdsdsdDataSourceId_     , _udsdsdUserId = pUdsdsdUserId_     , _udsdsdDataSetId = pUdsdsdDataSetId_     , _udsdsdModifiedTimeMillis = Nothing     , _udsdsdCurrentTimeMillis = Nothing     }+  -- | The data stream ID of the data source that created the dataset. udsdsdDataSourceId :: Lens' UsersDataSourcesDataSetsDelete Text

@@ -69,14 +69,17 @@ -- or equal to the dataset start time. -- -- /See:/ 'usersDataSourcesDataSetsGet' smart constructor.-data UsersDataSourcesDataSetsGet = UsersDataSourcesDataSetsGet'+data UsersDataSourcesDataSetsGet =+  UsersDataSourcesDataSetsGet'     { _udsdsgDataSourceId :: !Text     , _udsdsgUserId       :: !Text     , _udsdsgDataSetId    :: !Text     , _udsdsgLimit        :: !(Maybe (Textual Int32))     , _udsdsgPageToken    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesDataSetsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -96,13 +99,14 @@     -> Text -- ^ 'udsdsgDataSetId'     -> UsersDataSourcesDataSetsGet usersDataSourcesDataSetsGet pUdsdsgDataSourceId_ pUdsdsgUserId_ pUdsdsgDataSetId_ =-    UsersDataSourcesDataSetsGet'+  UsersDataSourcesDataSetsGet'     { _udsdsgDataSourceId = pUdsdsgDataSourceId_     , _udsdsgUserId = pUdsdsgUserId_     , _udsdsgDataSetId = pUdsdsgDataSetId_     , _udsdsgLimit = Nothing     , _udsdsgPageToken = Nothing     }+  -- | The data stream ID of the data source that created the dataset. udsdsgDataSourceId :: Lens' UsersDataSourcesDataSetsGet Text

@@ -67,14 +67,17 @@ -- than one dataset. This method does not use patch semantics. -- -- /See:/ 'usersDataSourcesDataSetsPatch' smart constructor.-data UsersDataSourcesDataSetsPatch = UsersDataSourcesDataSetsPatch'+data UsersDataSourcesDataSetsPatch =+  UsersDataSourcesDataSetsPatch'     { _udsdspDataSourceId      :: !Text     , _udsdspPayload           :: !DataSet     , _udsdspUserId            :: !Text     , _udsdspDataSetId         :: !Text     , _udsdspCurrentTimeMillis :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesDataSetsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,13 +98,14 @@     -> Text -- ^ 'udsdspDataSetId'     -> UsersDataSourcesDataSetsPatch usersDataSourcesDataSetsPatch pUdsdspDataSourceId_ pUdsdspPayload_ pUdsdspUserId_ pUdsdspDataSetId_ =-    UsersDataSourcesDataSetsPatch'+  UsersDataSourcesDataSetsPatch'     { _udsdspDataSourceId = pUdsdspDataSourceId_     , _udsdspPayload = pUdsdspPayload_     , _udsdspUserId = pUdsdspUserId_     , _udsdspDataSetId = pUdsdspDataSetId_     , _udsdspCurrentTimeMillis = Nothing     }+  -- | The data stream ID of the data source that created the dataset. udsdspDataSourceId :: Lens' UsersDataSourcesDataSetsPatch Text

@@ -56,11 +56,14 @@ -- source contains any data points. -- -- /See:/ 'usersDataSourcesDelete' smart constructor.-data UsersDataSourcesDelete = UsersDataSourcesDelete'+data UsersDataSourcesDelete =+  UsersDataSourcesDelete'     { _udsdDataSourceId :: !Text     , _udsdUserId       :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,9 @@     -> Text -- ^ 'udsdUserId'     -> UsersDataSourcesDelete usersDataSourcesDelete pUdsdDataSourceId_ pUdsdUserId_ =-    UsersDataSourcesDelete'-    { _udsdDataSourceId = pUdsdDataSourceId_-    , _udsdUserId = pUdsdUserId_-    }+  UsersDataSourcesDelete'+    {_udsdDataSourceId = pUdsdDataSourceId_, _udsdUserId = pUdsdUserId_}+  -- | The data stream ID of the data source to delete. udsdDataSourceId :: Lens' UsersDataSourcesDelete Text

@@ -54,11 +54,14 @@ -- | Returns the specified data source. -- -- /See:/ 'usersDataSourcesGet' smart constructor.-data UsersDataSourcesGet = UsersDataSourcesGet'+data UsersDataSourcesGet =+  UsersDataSourcesGet'     { _udsgDataSourceId :: !Text     , _udsgUserId       :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesGet' 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 -- ^ 'udsgUserId'     -> UsersDataSourcesGet usersDataSourcesGet pUdsgDataSourceId_ pUdsgUserId_ =-    UsersDataSourcesGet'-    { _udsgDataSourceId = pUdsgDataSourceId_-    , _udsgUserId = pUdsgUserId_-    }+  UsersDataSourcesGet'+    {_udsgDataSourceId = pUdsgDataSourceId_, _udsgUserId = pUdsgUserId_}+  -- | The data stream ID of the data source to retrieve. udsgDataSourceId :: Lens' UsersDataSourcesGet Text

@@ -61,11 +61,14 @@ -- using other scopes. -- -- /See:/ 'usersDataSourcesList' smart constructor.-data UsersDataSourcesList = UsersDataSourcesList'+data UsersDataSourcesList =+  UsersDataSourcesList'     { _udslDataTypeName :: !(Maybe [Text])     , _udslUserId       :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,10 +80,9 @@     :: Text -- ^ 'udslUserId'     -> UsersDataSourcesList usersDataSourcesList pUdslUserId_ =-    UsersDataSourcesList'-    { _udslDataTypeName = Nothing-    , _udslUserId = pUdslUserId_-    }+  UsersDataSourcesList'+    {_udslDataTypeName = Nothing, _udslUserId = pUdslUserId_}+  -- | The names of data types to include in the list. If not specified, all -- data sources will be returned.

@@ -1,129 +0,0 @@-{-# LANGUAGE DataKinds          #-}-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE FlexibleInstances  #-}-{-# LANGUAGE NoImplicitPrelude  #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}-{-# LANGUAGE TypeOperators      #-}--{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds      #-}-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}---- |--- Module      : Network.Google.Resource.Fitness.Users.DataSources.Patch--- Copyright   : (c) 2015-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates the specified data source. The dataStreamId, dataType, type,--- dataStreamName, and device properties with the exception of version,--- cannot be modified. Data sources are identified by their dataStreamId.--- This method supports patch semantics.------ /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.patch@.-module Network.Google.Resource.Fitness.Users.DataSources.Patch-    (-    -- * REST Resource-      UsersDataSourcesPatchResource--    -- * Creating a Request-    , usersDataSourcesPatch-    , UsersDataSourcesPatch--    -- * Request Lenses-    , udspDataSourceId-    , udspPayload-    , udspUserId-    ) where--import           Network.Google.Fitness.Types-import           Network.Google.Prelude---- | A resource alias for @fitness.users.dataSources.patch@ method which the--- 'UsersDataSourcesPatch' request conforms to.-type UsersDataSourcesPatchResource =-     "fitness" :>-       "v1" :>-         "users" :>-           Capture "userId" Text :>-             "dataSources" :>-               Capture "dataSourceId" Text :>-                 QueryParam "alt" AltJSON :>-                   ReqBody '[JSON] DataSource :>-                     Patch '[JSON] DataSource---- | Updates the specified data source. The dataStreamId, dataType, type,--- dataStreamName, and device properties with the exception of version,--- cannot be modified. Data sources are identified by their dataStreamId.--- This method supports patch semantics.------ /See:/ 'usersDataSourcesPatch' smart constructor.-data UsersDataSourcesPatch = UsersDataSourcesPatch'-    { _udspDataSourceId :: !Text-    , _udspPayload      :: !DataSource-    , _udspUserId       :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)---- | Creates a value of 'UsersDataSourcesPatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udspDataSourceId'------ * 'udspPayload'------ * 'udspUserId'-usersDataSourcesPatch-    :: Text -- ^ 'udspDataSourceId'-    -> DataSource -- ^ 'udspPayload'-    -> Text -- ^ 'udspUserId'-    -> UsersDataSourcesPatch-usersDataSourcesPatch pUdspDataSourceId_ pUdspPayload_ pUdspUserId_ =-    UsersDataSourcesPatch'-    { _udspDataSourceId = pUdspDataSourceId_-    , _udspPayload = pUdspPayload_-    , _udspUserId = pUdspUserId_-    }---- | The data stream ID of the data source to update.-udspDataSourceId :: Lens' UsersDataSourcesPatch Text-udspDataSourceId-  = lens _udspDataSourceId-      (\ s a -> s{_udspDataSourceId = a})---- | Multipart request metadata.-udspPayload :: Lens' UsersDataSourcesPatch DataSource-udspPayload-  = lens _udspPayload (\ s a -> s{_udspPayload = a})---- | Update the data source for the person identified. Use me to indicate the--- authenticated user. Only me is supported at this time.-udspUserId :: Lens' UsersDataSourcesPatch Text-udspUserId-  = lens _udspUserId (\ s a -> s{_udspUserId = a})--instance GoogleRequest UsersDataSourcesPatch where-        type Rs UsersDataSourcesPatch = DataSource-        type Scopes UsersDataSourcesPatch =-             '["https://www.googleapis.com/auth/fitness.activity.write",-               "https://www.googleapis.com/auth/fitness.blood_glucose.write",-               "https://www.googleapis.com/auth/fitness.blood_pressure.write",-               "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.body_temperature.write",-               "https://www.googleapis.com/auth/fitness.location.write",-               "https://www.googleapis.com/auth/fitness.nutrition.write",-               "https://www.googleapis.com/auth/fitness.oxygen_saturation.write",-               "https://www.googleapis.com/auth/fitness.reproductive_health.write"]-        requestClient UsersDataSourcesPatch'{..}-          = go _udspUserId _udspDataSourceId (Just AltJSON)-              _udspPayload-              fitnessService-          where go-                  = buildClient-                      (Proxy :: Proxy UsersDataSourcesPatchResource)-                      mempty

@@ -60,12 +60,15 @@ -- cannot be modified. Data sources are identified by their dataStreamId. -- -- /See:/ 'usersDataSourcesUpdate' smart constructor.-data UsersDataSourcesUpdate = UsersDataSourcesUpdate'+data UsersDataSourcesUpdate =+  UsersDataSourcesUpdate'     { _udsuDataSourceId :: !Text     , _udsuPayload      :: !DataSource     , _udsuUserId       :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersDataSourcesUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,11 +84,12 @@     -> Text -- ^ 'udsuUserId'     -> UsersDataSourcesUpdate usersDataSourcesUpdate pUdsuDataSourceId_ pUdsuPayload_ pUdsuUserId_ =-    UsersDataSourcesUpdate'+  UsersDataSourcesUpdate'     { _udsuDataSourceId = pUdsuDataSourceId_     , _udsuPayload = pUdsuPayload_     , _udsuUserId = pUdsuUserId_     }+  -- | The data stream ID of the data source to update. udsuDataSourceId :: Lens' UsersDataSourcesUpdate Text

@@ -56,12 +56,15 @@ -- | Deletes a session specified by the given session ID. -- -- /See:/ 'usersSessionsDelete' smart constructor.-data UsersSessionsDelete = UsersSessionsDelete'+data UsersSessionsDelete =+  UsersSessionsDelete'     { _usdUserId            :: !Text     , _usdCurrentTimeMillis :: !(Maybe (Textual Int64))     , _usdSessionId         :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSessionsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@     -> Text -- ^ 'usdSessionId'     -> UsersSessionsDelete usersSessionsDelete pUsdUserId_ pUsdSessionId_ =-    UsersSessionsDelete'+  UsersSessionsDelete'     { _usdUserId = pUsdUserId_     , _usdCurrentTimeMillis = Nothing     , _usdSessionId = pUsdSessionId_     }+  -- | Delete a session for the person identified. Use me to indicate the -- authenticated user. Only me is supported at this time.

@@ -61,14 +61,17 @@ -- | Lists sessions previously created. -- -- /See:/ 'usersSessionsList' smart constructor.-data UsersSessionsList = UsersSessionsList'+data UsersSessionsList =+  UsersSessionsList'     { _uslStartTime      :: !(Maybe Text)     , _uslUserId         :: !Text     , _uslEndTime        :: !(Maybe Text)     , _uslPageToken      :: !(Maybe Text)     , _uslIncludeDeleted :: !(Maybe Bool)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSessionsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,7 +89,7 @@     :: Text -- ^ 'uslUserId'     -> UsersSessionsList usersSessionsList pUslUserId_ =-    UsersSessionsList'+  UsersSessionsList'     { _uslStartTime = Nothing     , _uslUserId = pUslUserId_     , _uslEndTime = Nothing@@ -94,6 +97,7 @@     , _uslIncludeDeleted = Nothing     } + -- | An RFC3339 timestamp. Only sessions ending between the start and end -- times will be included in the response. uslStartTime :: Lens' UsersSessionsList (Maybe Text)@@ -118,7 +122,7 @@ -- timestamp (in millis since epoch). If specified, the API returns -- sessions modified since this time. The page token is ignored if either -- start or end time is specified. If none of start time, end time, and the--- page token is specified, sessions modified in the last 7 days are+-- page token is specified, sessions modified in the last 30 days are -- returned. uslPageToken :: Lens' UsersSessionsList (Maybe Text) uslPageToken

@@ -58,13 +58,16 @@ -- | Updates or insert a given session. -- -- /See:/ 'usersSessionsUpdate' smart constructor.-data UsersSessionsUpdate = UsersSessionsUpdate'+data UsersSessionsUpdate =+  UsersSessionsUpdate'     { _usuPayload           :: !Session     , _usuUserId            :: !Text     , _usuCurrentTimeMillis :: !(Maybe (Textual Int64))     , _usuSessionId         :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersSessionsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@     -> Text -- ^ 'usuSessionId'     -> UsersSessionsUpdate usersSessionsUpdate pUsuPayload_ pUsuUserId_ pUsuSessionId_ =-    UsersSessionsUpdate'+  UsersSessionsUpdate'     { _usuPayload = pUsuPayload_     , _usuUserId = pUsuUserId_     , _usuCurrentTimeMillis = Nothing     , _usuSessionId = pUsuSessionId_     }+  -- | Multipart request metadata. usuPayload :: Lens' UsersSessionsUpdate Session

@@ -1,5 +1,5 @@ name:                  gogol-fitness-version:               0.4.0+version:               0.5.0 synopsis:              Google Fitness SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -45,7 +45,6 @@         , Network.Google.Resource.Fitness.Users.DataSources.Delete         , Network.Google.Resource.Fitness.Users.DataSources.Get         , Network.Google.Resource.Fitness.Users.DataSources.List-        , Network.Google.Resource.Fitness.Users.DataSources.Patch         , Network.Google.Resource.Fitness.Users.DataSources.Update         , Network.Google.Resource.Fitness.Users.Sessions.Delete         , Network.Google.Resource.Fitness.Users.Sessions.List@@ -56,5 +55,5 @@         , Network.Google.Fitness.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5