gogol-fitness 0.1.0 → 0.1.1

raw patch · 18 files changed

+399/−74 lines, 18 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 +24/−1
• gen/Network/Google/Fitness/Types.hs +30/−0
• gen/Network/Google/Fitness/Types/Product.hs +137/−26
• gen/Network/Google/Fitness/Types/Sum.hs +150/−0
• gen/Network/Google/Resource/Fitness/Users/DataSet/Aggregate.hs +3/−1
• gen/Network/Google/Resource/Fitness/Users/DataSources/Create.hs +2/−1
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Delete.hs +2/−1
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Get.hs +4/−2
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Patch.hs +2/−1
• gen/Network/Google/Resource/Fitness/Users/DataSources/Delete.hs +6/−3
• gen/Network/Google/Resource/Fitness/Users/DataSources/Get.hs +5/−3
• gen/Network/Google/Resource/Fitness/Users/DataSources/List.hs +7/−5
• gen/Network/Google/Resource/Fitness/Users/DataSources/Patch.hs +10/−13
• gen/Network/Google/Resource/Fitness/Users/DataSources/Update.hs +8/−11
• gen/Network/Google/Resource/Fitness/Users/Sessions/List.hs +3/−1
• gogol-fitness.cabal +5/−4
• src/.gitkeep +0/−0

@@ -8,7 +8,7 @@  ## Version -`0.1.0`+`0.1.1`   ## Description

@@ -13,7 +13,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Google Fit API+-- Stores and accesses user data in the fitness store from apps on any+-- platform. -- -- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> module Network.Google.Fitness@@ -23,10 +24,12 @@      -- * OAuth Scopes     , fitnessBodyReadScope+    , fitnessNutritionReadScope     , fitnessActivityReadScope     , fitnessActivityWriteScope     , fitnessLocationReadScope     , fitnessLocationWriteScope+    , fitnessNutritionWriteScope     , fitnessBodyWriteScope      -- * API Declaration@@ -109,6 +112,9 @@     -- ** DataSourceType     , DataSourceType (..) +    -- ** BucketByTimePeriodType+    , BucketByTimePeriodType (..)+     -- ** BucketByActivity     , BucketByActivity     , bucketByActivity@@ -119,6 +125,7 @@     , AggregateRequest     , aggregateRequest     , arEndTimeMillis+    , arFilteredDataQualityStandard     , arAggregateBy     , arBucketBySession     , arBucketByActivityType@@ -165,6 +172,7 @@     , listSessionsResponse     , lsrNextPageToken     , lsrDeletedSession+    , lsrHasMoreData     , lsrSession      -- ** AggregateBucket@@ -194,17 +202,28 @@     , dtfName     , dtfOptional +    -- ** AggregateRequestFilteredDataQualityStandardItem+    , AggregateRequestFilteredDataQualityStandardItem (..)+     -- ** DataSource     , DataSource     , dataSource     , dsApplication     , dsDevice+    , dsDataQualityStandard     , dsName     , dsDataType     , dsType     , dsDataStreamName     , dsDataStreamId +    -- ** BucketByTimePeriod+    , BucketByTimePeriod+    , bucketByTimePeriod+    , bbtpValue+    , bbtpType+    , bbtpTimeZoneId+     -- ** DeviceType     , DeviceType (..) @@ -217,6 +236,7 @@     -- ** BucketByTime     , BucketByTime     , bucketByTime+    , bbtPeriod     , bbtDurationMillis      -- ** DataType@@ -237,6 +257,9 @@     , sId     , sStartTimeMillis     , sDescription++    -- ** DataSourceDataQualityStandardItem+    , DataSourceDataQualityStandardItem (..)      -- ** DataTypeFieldFormat     , DataTypeFieldFormat (..)

@@ -21,10 +21,12 @@      -- * OAuth Scopes     , fitnessBodyReadScope+    , fitnessNutritionReadScope     , fitnessActivityReadScope     , fitnessActivityWriteScope     , fitnessLocationReadScope     , fitnessLocationWriteScope+    , fitnessNutritionWriteScope     , fitnessBodyWriteScope      -- * AggregateBucketType@@ -61,6 +63,9 @@     -- * DataSourceType     , DataSourceType (..) +    -- * BucketByTimePeriodType+    , BucketByTimePeriodType (..)+     -- * BucketByActivity     , BucketByActivity     , bucketByActivity@@ -71,6 +76,7 @@     , AggregateRequest     , aggregateRequest     , arEndTimeMillis+    , arFilteredDataQualityStandard     , arAggregateBy     , arBucketBySession     , arBucketByActivityType@@ -117,6 +123,7 @@     , listSessionsResponse     , lsrNextPageToken     , lsrDeletedSession+    , lsrHasMoreData     , lsrSession      -- * AggregateBucket@@ -146,17 +153,28 @@     , dtfName     , dtfOptional +    -- * AggregateRequestFilteredDataQualityStandardItem+    , AggregateRequestFilteredDataQualityStandardItem (..)+     -- * DataSource     , DataSource     , dataSource     , dsApplication     , dsDevice+    , dsDataQualityStandard     , dsName     , dsDataType     , dsType     , dsDataStreamName     , dsDataStreamId +    -- * BucketByTimePeriod+    , BucketByTimePeriod+    , bucketByTimePeriod+    , bbtpValue+    , bbtpType+    , bbtpTimeZoneId+     -- * DeviceType     , DeviceType (..) @@ -169,6 +187,7 @@     -- * BucketByTime     , BucketByTime     , bucketByTime+    , bbtPeriod     , bbtDurationMillis      -- * DataType@@ -190,6 +209,9 @@     , sStartTimeMillis     , sDescription +    -- * DataSourceDataQualityStandardItem+    , DataSourceDataQualityStandardItem (..)+     -- * DataTypeFieldFormat     , DataTypeFieldFormat (..)     ) where@@ -208,6 +230,10 @@ fitnessBodyReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.body.read"] fitnessBodyReadScope = Proxy; +-- | View nutrition information in Google Fit+fitnessNutritionReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.nutrition.read"]+fitnessNutritionReadScope = Proxy;+ -- | View your activity information in Google Fit fitnessActivityReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.activity.read"] fitnessActivityReadScope = Proxy;@@ -223,6 +249,10 @@ -- | View and store your location data in Google Fit fitnessLocationWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.location.write"] fitnessLocationWriteScope = Proxy;++-- | View and store nutrition information in Google Fit+fitnessNutritionWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.nutrition.write"]+fitnessNutritionWriteScope = Proxy;  -- | View and store body sensor data in Google Fit fitnessBodyWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.body.write"]

@@ -121,8 +121,7 @@                   ("minStartTimeNs" .=) <$> _dsMinStartTimeNs,                   ("maxEndTimeNs" .=) <$> _dsMaxEndTimeNs]) --- | See:--- google3\/java\/com\/google\/android\/apps\/heart\/platform\/api\/Application.java+-- | -- -- /See:/ 'application' smart constructor. data Application = Application'@@ -339,16 +338,18 @@                   ("activityDataSourceId" .=) <$>                     _bbaActivityDataSourceId]) +-- | Next id: 10 -- -- /See:/ 'aggregateRequest' smart constructor. data AggregateRequest = AggregateRequest'-    { _arEndTimeMillis           :: !(Maybe (Textual Int64))-    , _arAggregateBy             :: !(Maybe [AggregateBy])-    , _arBucketBySession         :: !(Maybe BucketBySession)-    , _arBucketByActivityType    :: !(Maybe BucketByActivity)-    , _arBucketByTime            :: !(Maybe BucketByTime)-    , _arStartTimeMillis         :: !(Maybe (Textual Int64))-    , _arBucketByActivitySegment :: !(Maybe BucketByActivity)+    { _arEndTimeMillis               :: !(Maybe (Textual Int64))+    , _arFilteredDataQualityStandard :: !(Maybe [AggregateRequestFilteredDataQualityStandardItem])+    , _arAggregateBy                 :: !(Maybe [AggregateBy])+    , _arBucketBySession             :: !(Maybe BucketBySession)+    , _arBucketByActivityType        :: !(Maybe BucketByActivity)+    , _arBucketByTime                :: !(Maybe BucketByTime)+    , _arStartTimeMillis             :: !(Maybe (Textual Int64))+    , _arBucketByActivitySegment     :: !(Maybe BucketByActivity)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'AggregateRequest' with the minimum fields required to make a request.@@ -357,6 +358,8 @@ -- -- * 'arEndTimeMillis' --+-- * 'arFilteredDataQualityStandard'+-- -- * 'arAggregateBy' -- -- * 'arBucketBySession'@@ -373,6 +376,7 @@ aggregateRequest =     AggregateRequest'     { _arEndTimeMillis = Nothing+    , _arFilteredDataQualityStandard = Nothing     , _arAggregateBy = Nothing     , _arBucketBySession = Nothing     , _arBucketByActivityType = Nothing@@ -389,6 +393,16 @@       (\ 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.+arFilteredDataQualityStandard :: Lens' AggregateRequest [AggregateRequestFilteredDataQualityStandardItem]+arFilteredDataQualityStandard+  = lens _arFilteredDataQualityStandard+      (\ s a -> s{_arFilteredDataQualityStandard = a})+      . _Default+      . _Coerce+ -- | The specification of data to be aggregated. At least one aggregateBy -- spec must be provided. All data that is specified will be aggregated -- using the same bucketing criteria. There will be one dataset in the@@ -450,7 +464,8 @@               (\ o ->                  AggregateRequest' <$>                    (o .:? "endTimeMillis") <*>-                     (o .:? "aggregateBy" .!= mempty)+                     (o .:? "filteredDataQualityStandard" .!= mempty)+                     <*> (o .:? "aggregateBy" .!= mempty)                      <*> (o .:? "bucketBySession")                      <*> (o .:? "bucketByActivityType")                      <*> (o .:? "bucketByTime")@@ -462,6 +477,8 @@           = object               (catMaybes                  [("endTimeMillis" .=) <$> _arEndTimeMillis,+                  ("filteredDataQualityStandard" .=) <$>+                    _arFilteredDataQualityStandard,                   ("aggregateBy" .=) <$> _arAggregateBy,                   ("bucketBySession" .=) <$> _arBucketBySession,                   ("bucketByActivityType" .=) <$>@@ -828,6 +845,7 @@ data ListSessionsResponse = ListSessionsResponse'     { _lsrNextPageToken  :: !(Maybe Text)     , _lsrDeletedSession :: !(Maybe [Session])+    , _lsrHasMoreData    :: !(Maybe Bool)     , _lsrSession        :: !(Maybe [Session])     } deriving (Eq,Show,Data,Typeable,Generic) @@ -839,6 +857,8 @@ -- -- * 'lsrDeletedSession' --+-- * 'lsrHasMoreData'+-- -- * 'lsrSession' listSessionsResponse     :: ListSessionsResponse@@ -846,6 +866,7 @@     ListSessionsResponse'     { _lsrNextPageToken = Nothing     , _lsrDeletedSession = Nothing+    , _lsrHasMoreData = Nothing     , _lsrSession = Nothing     } @@ -867,6 +888,12 @@       . _Default       . _Coerce +-- | Flag to indicate server has more data to transfer+lsrHasMoreData :: Lens' ListSessionsResponse (Maybe Bool)+lsrHasMoreData+  = lens _lsrHasMoreData+      (\ s a -> s{_lsrHasMoreData = a})+ -- | Sessions with an end time that is between startTime and endTime of the -- request. lsrSession :: Lens' ListSessionsResponse [Session]@@ -882,6 +909,7 @@                  ListSessionsResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "deletedSession" .!= mempty)+                     <*> (o .:? "hasMoreData")                      <*> (o .:? "session" .!= mempty))  instance ToJSON ListSessionsResponse where@@ -890,6 +918,7 @@               (catMaybes                  [("nextPageToken" .=) <$> _lsrNextPageToken,                   ("deletedSession" .=) <$> _lsrDeletedSession,+                  ("hasMoreData" .=) <$> _lsrHasMoreData,                   ("session" .=) <$> _lsrSession])  --@@ -1144,13 +1173,14 @@ -- -- /See:/ 'dataSource' smart constructor. data DataSource = DataSource'-    { _dsApplication    :: !(Maybe Application)-    , _dsDevice         :: !(Maybe Device)-    , _dsName           :: !(Maybe Text)-    , _dsDataType       :: !(Maybe DataType)-    , _dsType           :: !(Maybe DataSourceType)-    , _dsDataStreamName :: !(Maybe Text)-    , _dsDataStreamId   :: !(Maybe Text)+    { _dsApplication         :: !(Maybe Application)+    , _dsDevice              :: !(Maybe Device)+    , _dsDataQualityStandard :: !(Maybe [DataSourceDataQualityStandardItem])+    , _dsName                :: !(Maybe Text)+    , _dsDataType            :: !(Maybe DataType)+    , _dsType                :: !(Maybe DataSourceType)+    , _dsDataStreamName      :: !(Maybe Text)+    , _dsDataStreamId        :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)  -- | Creates a value of 'DataSource' with the minimum fields required to make a request.@@ -1161,6 +1191,8 @@ -- -- * 'dsDevice' --+-- * 'dsDataQualityStandard'+-- -- * 'dsName' -- -- * 'dsDataType'@@ -1176,6 +1208,7 @@     DataSource'     { _dsApplication = Nothing     , _dsDevice = Nothing+    , _dsDataQualityStandard = Nothing     , _dsName = Nothing     , _dsDataType = Nothing     , _dsType = Nothing@@ -1195,6 +1228,14 @@ dsDevice :: Lens' DataSource (Maybe Device) dsDevice = lens _dsDevice (\ s a -> s{_dsDevice = a}) +-- |+dsDataQualityStandard :: Lens' DataSource [DataSourceDataQualityStandardItem]+dsDataQualityStandard+  = lens _dsDataQualityStandard+      (\ s a -> s{_dsDataQualityStandard = a})+      . _Default+      . _Coerce+ -- | An end-user visible name for this data source. dsName :: Lens' DataSource (Maybe Text) dsName = lens _dsName (\ s a -> s{_dsName = a})@@ -1255,7 +1296,8 @@               (\ o ->                  DataSource' <$>                    (o .:? "application") <*> (o .:? "device") <*>-                     (o .:? "name")+                     (o .:? "dataQualityStandard" .!= mempty)+                     <*> (o .:? "name")                      <*> (o .:? "dataType")                      <*> (o .:? "type")                      <*> (o .:? "dataStreamName")@@ -1266,13 +1308,72 @@           = object               (catMaybes                  [("application" .=) <$> _dsApplication,-                  ("device" .=) <$> _dsDevice, ("name" .=) <$> _dsName,+                  ("device" .=) <$> _dsDevice,+                  ("dataQualityStandard" .=) <$>+                    _dsDataQualityStandard,+                  ("name" .=) <$> _dsName,                   ("dataType" .=) <$> _dsDataType,                   ("type" .=) <$> _dsType,                   ("dataStreamName" .=) <$> _dsDataStreamName,                   ("dataStreamId" .=) <$> _dsDataStreamId])  --+-- /See:/ 'bucketByTimePeriod' smart constructor.+data BucketByTimePeriod = BucketByTimePeriod'+    { _bbtpValue      :: !(Maybe (Textual Int32))+    , _bbtpType       :: !(Maybe BucketByTimePeriodType)+    , _bbtpTimeZoneId :: !(Maybe Text)+    } 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:+--+-- * 'bbtpValue'+--+-- * 'bbtpType'+--+-- * 'bbtpTimeZoneId'+bucketByTimePeriod+    :: BucketByTimePeriod+bucketByTimePeriod =+    BucketByTimePeriod'+    { _bbtpValue = Nothing+    , _bbtpType = Nothing+    , _bbtpTimeZoneId = Nothing+    }++bbtpValue :: Lens' BucketByTimePeriod (Maybe Int32)+bbtpValue+  = lens _bbtpValue (\ s a -> s{_bbtpValue = a}) .+      mapping _Coerce++bbtpType :: Lens' BucketByTimePeriod (Maybe BucketByTimePeriodType)+bbtpType = lens _bbtpType (\ s a -> s{_bbtpType = a})++-- | org.joda.timezone.DateTimeZone+bbtpTimeZoneId :: Lens' BucketByTimePeriod (Maybe Text)+bbtpTimeZoneId+  = lens _bbtpTimeZoneId+      (\ s a -> s{_bbtpTimeZoneId = a})++instance FromJSON BucketByTimePeriod where+        parseJSON+          = withObject "BucketByTimePeriod"+              (\ o ->+                 BucketByTimePeriod' <$>+                   (o .:? "value") <*> (o .:? "type") <*>+                     (o .:? "timeZoneId"))++instance ToJSON BucketByTimePeriod where+        toJSON BucketByTimePeriod'{..}+          = object+              (catMaybes+                 [("value" .=) <$> _bbtpValue,+                  ("type" .=) <$> _bbtpType,+                  ("timeZoneId" .=) <$> _bbtpTimeZoneId])++-- -- /See:/ 'valueMapValEntry' smart constructor. data ValueMapValEntry = ValueMapValEntry'     { _vmveValue :: !(Maybe MapValue)@@ -1317,22 +1418,30 @@  -- -- /See:/ 'bucketByTime' smart constructor.-newtype BucketByTime = BucketByTime'-    { _bbtDurationMillis :: Maybe (Textual Int64)+data BucketByTime = BucketByTime'+    { _bbtPeriod         :: !(Maybe BucketByTimePeriod)+    , _bbtDurationMillis :: !(Maybe (Textual Int64))     } 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: --+-- * 'bbtPeriod'+-- -- * 'bbtDurationMillis' bucketByTime     :: BucketByTime bucketByTime =     BucketByTime'-    { _bbtDurationMillis = Nothing+    { _bbtPeriod = Nothing+    , _bbtDurationMillis = Nothing     } +bbtPeriod :: Lens' BucketByTime (Maybe BucketByTimePeriod)+bbtPeriod+  = lens _bbtPeriod (\ s a -> s{_bbtPeriod = a})+ -- | Specifies that result buckets aggregate data by exactly durationMillis -- time frames. Time frames that contain no data will be included in the -- response with an empty dataset.@@ -1345,16 +1454,18 @@ instance FromJSON BucketByTime where         parseJSON           = withObject "BucketByTime"-              (\ o -> BucketByTime' <$> (o .:? "durationMillis"))+              (\ o ->+                 BucketByTime' <$>+                   (o .:? "period") <*> (o .:? "durationMillis"))  instance ToJSON BucketByTime where         toJSON BucketByTime'{..}           = object               (catMaybes-                 [("durationMillis" .=) <$> _bbtDurationMillis])+                 [("period" .=) <$> _bbtPeriod,+                  ("durationMillis" .=) <$> _bbtDurationMillis]) --- | See:--- google3\/java\/com\/google\/android\/apps\/heart\/platform\/api\/DataType.java+-- | -- -- /See:/ 'dataType' smart constructor. data DataType = DataType'

@@ -86,10 +86,100 @@ instance ToJSON DataSourceType where     toJSON = toJSONText +data BucketByTimePeriodType+    = Day+      -- ^ @day@+    | Month+      -- ^ @month@+    | Week+      -- ^ @week@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable BucketByTimePeriodType++instance FromHttpApiData BucketByTimePeriodType where+    parseQueryParam = \case+        "day" -> Right Day+        "month" -> Right Month+        "week" -> Right Week+        x -> Left ("Unable to parse BucketByTimePeriodType from: " <> x)++instance ToHttpApiData BucketByTimePeriodType where+    toQueryParam = \case+        Day -> "day"+        Month -> "month"+        Week -> "week"++instance FromJSON BucketByTimePeriodType where+    parseJSON = parseJSONText "BucketByTimePeriodType"++instance ToJSON BucketByTimePeriodType where+    toJSON = toJSONText++data AggregateRequestFilteredDataQualityStandardItem+    = DATAQUALITYBLOODGLUCOSEISO151972003+      -- ^ @dataQualityBloodGlucoseIso151972003@+    | DATAQUALITYBLOODGLUCOSEISO151972013+      -- ^ @dataQualityBloodGlucoseIso151972013@+    | DataQualityBloodPressureAami+      -- ^ @dataQualityBloodPressureAami@+    | DataQualityBloodPressureBhsAA+      -- ^ @dataQualityBloodPressureBhsAA@+    | DataQualityBloodPressureBhsAB+      -- ^ @dataQualityBloodPressureBhsAB@+    | DataQualityBloodPressureBhsBA+      -- ^ @dataQualityBloodPressureBhsBA@+    | DataQualityBloodPressureBhsBB+      -- ^ @dataQualityBloodPressureBhsBB@+    | DATAQUALITYBLOODPRESSUREESH2002+      -- ^ @dataQualityBloodPressureEsh2002@+    | DATAQUALITYBLOODPRESSUREESH2010+      -- ^ @dataQualityBloodPressureEsh2010@+    | DataQualityUnknown+      -- ^ @dataQualityUnknown@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable AggregateRequestFilteredDataQualityStandardItem++instance FromHttpApiData AggregateRequestFilteredDataQualityStandardItem where+    parseQueryParam = \case+        "dataQualityBloodGlucoseIso151972003" -> Right DATAQUALITYBLOODGLUCOSEISO151972003+        "dataQualityBloodGlucoseIso151972013" -> Right DATAQUALITYBLOODGLUCOSEISO151972013+        "dataQualityBloodPressureAami" -> Right DataQualityBloodPressureAami+        "dataQualityBloodPressureBhsAA" -> Right DataQualityBloodPressureBhsAA+        "dataQualityBloodPressureBhsAB" -> Right DataQualityBloodPressureBhsAB+        "dataQualityBloodPressureBhsBA" -> Right DataQualityBloodPressureBhsBA+        "dataQualityBloodPressureBhsBB" -> Right DataQualityBloodPressureBhsBB+        "dataQualityBloodPressureEsh2002" -> Right DATAQUALITYBLOODPRESSUREESH2002+        "dataQualityBloodPressureEsh2010" -> Right DATAQUALITYBLOODPRESSUREESH2010+        "dataQualityUnknown" -> Right DataQualityUnknown+        x -> Left ("Unable to parse AggregateRequestFilteredDataQualityStandardItem from: " <> x)++instance ToHttpApiData AggregateRequestFilteredDataQualityStandardItem where+    toQueryParam = \case+        DATAQUALITYBLOODGLUCOSEISO151972003 -> "dataQualityBloodGlucoseIso151972003"+        DATAQUALITYBLOODGLUCOSEISO151972013 -> "dataQualityBloodGlucoseIso151972013"+        DataQualityBloodPressureAami -> "dataQualityBloodPressureAami"+        DataQualityBloodPressureBhsAA -> "dataQualityBloodPressureBhsAA"+        DataQualityBloodPressureBhsAB -> "dataQualityBloodPressureBhsAB"+        DataQualityBloodPressureBhsBA -> "dataQualityBloodPressureBhsBA"+        DataQualityBloodPressureBhsBB -> "dataQualityBloodPressureBhsBB"+        DATAQUALITYBLOODPRESSUREESH2002 -> "dataQualityBloodPressureEsh2002"+        DATAQUALITYBLOODPRESSUREESH2010 -> "dataQualityBloodPressureEsh2010"+        DataQualityUnknown -> "dataQualityUnknown"++instance FromJSON AggregateRequestFilteredDataQualityStandardItem where+    parseJSON = parseJSONText "AggregateRequestFilteredDataQualityStandardItem"++instance ToJSON AggregateRequestFilteredDataQualityStandardItem where+    toJSON = toJSONText+ -- | A constant representing the type of the device. data DeviceType     = ChestStrap       -- ^ @chestStrap@+    | HeadMounted+      -- ^ @headMounted@     | Phone       -- ^ @phone@     | Scale@@ -107,6 +197,7 @@ instance FromHttpApiData DeviceType where     parseQueryParam = \case         "chestStrap" -> Right ChestStrap+        "headMounted" -> Right HeadMounted         "phone" -> Right Phone         "scale" -> Right Scale         "tablet" -> Right Tablet@@ -117,6 +208,7 @@ instance ToHttpApiData DeviceType where     toQueryParam = \case         ChestStrap -> "chestStrap"+        HeadMounted -> "headMounted"         Phone -> "phone"         Scale -> "scale"         Tablet -> "tablet"@@ -127,6 +219,64 @@     parseJSON = parseJSONText "DeviceType"  instance ToJSON DeviceType where+    toJSON = toJSONText++data DataSourceDataQualityStandardItem+    = DSDQSIDATAQUALITYBLOODGLUCOSEISO151972003+      -- ^ @dataQualityBloodGlucoseIso151972003@+    | DSDQSIDATAQUALITYBLOODGLUCOSEISO151972013+      -- ^ @dataQualityBloodGlucoseIso151972013@+    | DSDQSIDataQualityBloodPressureAami+      -- ^ @dataQualityBloodPressureAami@+    | DSDQSIDataQualityBloodPressureBhsAA+      -- ^ @dataQualityBloodPressureBhsAA@+    | DSDQSIDataQualityBloodPressureBhsAB+      -- ^ @dataQualityBloodPressureBhsAB@+    | DSDQSIDataQualityBloodPressureBhsBA+      -- ^ @dataQualityBloodPressureBhsBA@+    | DSDQSIDataQualityBloodPressureBhsBB+      -- ^ @dataQualityBloodPressureBhsBB@+    | DSDQSIDATAQUALITYBLOODPRESSUREESH2002+      -- ^ @dataQualityBloodPressureEsh2002@+    | DSDQSIDATAQUALITYBLOODPRESSUREESH2010+      -- ^ @dataQualityBloodPressureEsh2010@+    | DSDQSIDataQualityUnknown+      -- ^ @dataQualityUnknown@+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable DataSourceDataQualityStandardItem++instance FromHttpApiData DataSourceDataQualityStandardItem where+    parseQueryParam = \case+        "dataQualityBloodGlucoseIso151972003" -> Right DSDQSIDATAQUALITYBLOODGLUCOSEISO151972003+        "dataQualityBloodGlucoseIso151972013" -> Right DSDQSIDATAQUALITYBLOODGLUCOSEISO151972013+        "dataQualityBloodPressureAami" -> Right DSDQSIDataQualityBloodPressureAami+        "dataQualityBloodPressureBhsAA" -> Right DSDQSIDataQualityBloodPressureBhsAA+        "dataQualityBloodPressureBhsAB" -> Right DSDQSIDataQualityBloodPressureBhsAB+        "dataQualityBloodPressureBhsBA" -> Right DSDQSIDataQualityBloodPressureBhsBA+        "dataQualityBloodPressureBhsBB" -> Right DSDQSIDataQualityBloodPressureBhsBB+        "dataQualityBloodPressureEsh2002" -> Right DSDQSIDATAQUALITYBLOODPRESSUREESH2002+        "dataQualityBloodPressureEsh2010" -> Right DSDQSIDATAQUALITYBLOODPRESSUREESH2010+        "dataQualityUnknown" -> Right DSDQSIDataQualityUnknown+        x -> Left ("Unable to parse DataSourceDataQualityStandardItem from: " <> x)++instance ToHttpApiData DataSourceDataQualityStandardItem where+    toQueryParam = \case+        DSDQSIDATAQUALITYBLOODGLUCOSEISO151972003 -> "dataQualityBloodGlucoseIso151972003"+        DSDQSIDATAQUALITYBLOODGLUCOSEISO151972013 -> "dataQualityBloodGlucoseIso151972013"+        DSDQSIDataQualityBloodPressureAami -> "dataQualityBloodPressureAami"+        DSDQSIDataQualityBloodPressureBhsAA -> "dataQualityBloodPressureBhsAA"+        DSDQSIDataQualityBloodPressureBhsAB -> "dataQualityBloodPressureBhsAB"+        DSDQSIDataQualityBloodPressureBhsBA -> "dataQualityBloodPressureBhsBA"+        DSDQSIDataQualityBloodPressureBhsBB -> "dataQualityBloodPressureBhsBB"+        DSDQSIDATAQUALITYBLOODPRESSUREESH2002 -> "dataQualityBloodPressureEsh2002"+        DSDQSIDATAQUALITYBLOODPRESSUREESH2010 -> "dataQualityBloodPressureEsh2010"+        DSDQSIDataQualityUnknown -> "dataQualityUnknown"++instance FromJSON DataSourceDataQualityStandardItem where+    parseJSON = parseJSONText "DataSourceDataQualityStandardItem"++instance ToJSON DataSourceDataQualityStandardItem where     toJSON = toJSONText  -- | The different supported formats for each field in a data type.

@@ -102,7 +102,9 @@                "https://www.googleapis.com/auth/fitness.body.read",                "https://www.googleapis.com/auth/fitness.body.write",                "https://www.googleapis.com/auth/fitness.location.read",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.read",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSetAggregate'{..}           = go _udsaUserId (Just AltJSON) _udsaPayload               fitnessService

@@ -106,7 +106,8 @@         type Scopes UsersDataSourcesCreate =              '["https://www.googleapis.com/auth/fitness.activity.write",                "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesCreate'{..}           = go _udscUserId (Just AltJSON) _udscPayload               fitnessService

@@ -149,7 +149,8 @@         type Scopes UsersDataSourcesDataSetsDelete =              '["https://www.googleapis.com/auth/fitness.activity.write",                "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesDataSetsDelete'{..}           = go _udsdsdUserId _udsdsdDataSourceId               _udsdsdDataSetId

@@ -126,7 +126,7 @@       (\ s a -> s{_udsdsgDataSetId = a})  -- | If specified, no more than this many data points will be included in the--- dataset. If the there are more data points in the dataset, nextPageToken+-- dataset. If there are more data points in the dataset, nextPageToken -- will be set in the dataset response. udsdsgLimit :: Lens' UsersDataSourcesDataSetsGet (Maybe Int32) udsdsgLimit@@ -152,7 +152,9 @@                "https://www.googleapis.com/auth/fitness.body.read",                "https://www.googleapis.com/auth/fitness.body.write",                "https://www.googleapis.com/auth/fitness.location.read",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.read",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesDataSetsGet'{..}           = go _udsdsgUserId _udsdsgDataSourceId               _udsdsgDataSetId

@@ -145,7 +145,8 @@         type Scopes UsersDataSourcesDataSetsPatch =              '["https://www.googleapis.com/auth/fitness.activity.write",                "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesDataSetsPatch'{..}           = go _udsdspUserId _udsdspDataSourceId               _udsdspDataSetId

@@ -20,7 +20,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Delete the data source if there are no datapoints associated with it+-- Deletes the specified data source. The request will fail if the data+-- source contains any data points. -- -- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.delete@. module Network.Google.Resource.Fitness.Users.DataSources.Delete@@ -51,7 +52,8 @@                Capture "dataSourceId" Text :>                  QueryParam "alt" AltJSON :> Delete '[JSON] DataSource --- | Delete the data source if there are no datapoints associated with it+-- | Deletes the specified data source. The request will fail if the data+-- source contains any data points. -- -- /See:/ 'usersDataSourcesDelete' smart constructor. data UsersDataSourcesDelete = UsersDataSourcesDelete'@@ -93,7 +95,8 @@         type Scopes UsersDataSourcesDelete =              '["https://www.googleapis.com/auth/fitness.activity.write",                "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesDelete'{..}           = go _udsdUserId _udsdDataSourceId (Just AltJSON)               fitnessService

@@ -20,7 +20,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a data source identified by a data stream ID.+-- Returns the specified data source. -- -- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.get@. module Network.Google.Resource.Fitness.Users.DataSources.Get@@ -51,7 +51,7 @@                Capture "dataSourceId" Text :>                  QueryParam "alt" AltJSON :> Get '[JSON] DataSource --- | Returns a data source identified by a data stream ID.+-- | Returns the specified data source. -- -- /See:/ 'usersDataSourcesGet' smart constructor. data UsersDataSourcesGet = UsersDataSourcesGet'@@ -96,7 +96,9 @@                "https://www.googleapis.com/auth/fitness.body.read",                "https://www.googleapis.com/auth/fitness.body.write",                "https://www.googleapis.com/auth/fitness.location.read",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.read",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesGet'{..}           = go _udsgUserId _udsgDataSourceId (Just AltJSON)               fitnessService

@@ -21,8 +21,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists all data sources that are visible to the developer, using the--- OAuth scopes provided. The list is not exhaustive: the user may have--- private data sources that are only visible to other developers or calls+-- OAuth scopes provided. The list is not exhaustive; the user may have+-- private data sources that are only visible to other developers, or calls -- using other scopes. -- -- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.list@.@@ -56,8 +56,8 @@                    Get '[JSON] ListDataSourcesResponse  -- | Lists all data sources that are visible to the developer, using the--- OAuth scopes provided. The list is not exhaustive: the user may have--- private data sources that are only visible to other developers or calls+-- OAuth scopes provided. The list is not exhaustive; the user may have+-- private data sources that are only visible to other developers, or calls -- using other scopes. -- -- /See:/ 'usersDataSourcesList' smart constructor.@@ -106,7 +106,9 @@                "https://www.googleapis.com/auth/fitness.body.read",                "https://www.googleapis.com/auth/fitness.body.write",                "https://www.googleapis.com/auth/fitness.location.read",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.read",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesList'{..}           = go _udslUserId (_udslDataTypeName ^. _Default)               (Just AltJSON)

@@ -20,12 +20,10 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates a given data source. It is an error to modify the data source\'s--- data stream ID, data type, type, stream name or device information apart--- from the device version. Changing these fields would require a new--- unique data stream ID and separate data source. Data sources are--- identified by their data stream ID. This method supports patch--- semantics.+-- 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@@ -59,12 +57,10 @@                    ReqBody '[JSON] DataSource :>                      Patch '[JSON] DataSource --- | Updates a given data source. It is an error to modify the data source\'s--- data stream ID, data type, type, stream name or device information apart--- from the device version. Changing these fields would require a new--- unique data stream ID and separate data source. Data sources are--- identified by their data stream ID. This method supports patch--- semantics.+-- | 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'@@ -116,7 +112,8 @@         type Scopes UsersDataSourcesPatch =              '["https://www.googleapis.com/auth/fitness.activity.write",                "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesPatch'{..}           = go _udspUserId _udspDataSourceId (Just AltJSON)               _udspPayload

@@ -20,11 +20,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates a given data source. It is an error to modify the data source\'s--- data stream ID, data type, type, stream name or device information apart--- from the device version. Changing these fields would require a new--- unique data stream ID and separate data source. Data sources are--- identified by their data stream ID.+-- 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. -- -- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference> for @fitness.users.dataSources.update@. module Network.Google.Resource.Fitness.Users.DataSources.Update@@ -57,11 +55,9 @@                  QueryParam "alt" AltJSON :>                    ReqBody '[JSON] DataSource :> Put '[JSON] DataSource --- | Updates a given data source. It is an error to modify the data source\'s--- data stream ID, data type, type, stream name or device information apart--- from the device version. Changing these fields would require a new--- unique data stream ID and separate data source. Data sources are--- identified by their data stream ID.+-- | 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. -- -- /See:/ 'usersDataSourcesUpdate' smart constructor. data UsersDataSourcesUpdate = UsersDataSourcesUpdate'@@ -113,7 +109,8 @@         type Scopes UsersDataSourcesUpdate =              '["https://www.googleapis.com/auth/fitness.activity.write",                "https://www.googleapis.com/auth/fitness.body.write",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersDataSourcesUpdate'{..}           = go _udsuUserId _udsuDataSourceId (Just AltJSON)               _udsuPayload

@@ -135,7 +135,9 @@                "https://www.googleapis.com/auth/fitness.body.read",                "https://www.googleapis.com/auth/fitness.body.write",                "https://www.googleapis.com/auth/fitness.location.read",-               "https://www.googleapis.com/auth/fitness.location.write"]+               "https://www.googleapis.com/auth/fitness.location.write",+               "https://www.googleapis.com/auth/fitness.nutrition.read",+               "https://www.googleapis.com/auth/fitness.nutrition.write"]         requestClient UsersSessionsList'{..}           = go _uslUserId _uslStartTime _uslEndTime               _uslPageToken

@@ -1,5 +1,5 @@ name:                  gogol-fitness-version:               0.1.0+version:               0.1.1 synopsis:              Google Fitness SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -11,10 +11,11 @@ category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md+extra-source-files:    README.md src/.gitkeep  description:-    Google Fit API+    Stores and accesses user data in the fitness store from apps on any+    platform.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -54,5 +55,5 @@         , Network.Google.Fitness.Types.Sum      build-depends:-          gogol-core == 0.1.0.*+          gogol-core == 0.1.1.*         , base       >= 4.7 && < 5