gogol-fitness 0.0.1 → 0.1.0

raw patch · 19 files changed

+275/−199 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 +3/−3
• gen/Network/Google/Fitness.hs +9/−1
• gen/Network/Google/Fitness/Types.hs +15/−14
• gen/Network/Google/Fitness/Types/Product.hs +81/−81
• gen/Network/Google/Fitness/Types/Sum.hs +49/−45
• gen/Network/Google/Resource/Fitness/Users/DataSet/Aggregate.hs +11/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/Create.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Delete.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Get.hs +11/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/DataSets/Patch.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/Delete.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/Get.hs +11/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/List.hs +11/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/Patch.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/DataSources/Update.hs +8/−4
• gen/Network/Google/Resource/Fitness/Users/Sessions/Delete.hs +6/−4
• gen/Network/Google/Resource/Fitness/Users/Sessions/List.hs +11/−4
• gen/Network/Google/Resource/Fitness/Users/Sessions/Update.hs +6/−4
• gogol-fitness.cabal +3/−3

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

@@ -7,7 +7,7 @@  -- | -- Module      : Network.Google.Fitness--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -20,6 +20,14 @@     (     -- * Service Configuration       fitnessService++    -- * OAuth Scopes+    , fitnessBodyReadScope+    , fitnessActivityReadScope+    , fitnessActivityWriteScope+    , fitnessLocationReadScope+    , fitnessLocationWriteScope+    , fitnessBodyWriteScope      -- * API Declaration     , FitnessAPI

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.Fitness.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -198,31 +199,31 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v1' of the Fitness. This contains the host and root path used as a starting point for constructing service requests.-fitnessService :: Service+fitnessService :: ServiceConfig fitnessService   = defaultService (ServiceId "fitness:v1")       "www.googleapis.com"  -- | View body sensor information in Google Fit-fitnessBodyReadScope :: OAuthScope-fitnessBodyReadScope = "https://www.googleapis.com/auth/fitness.body.read";+fitnessBodyReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.body.read"]+fitnessBodyReadScope = Proxy;  -- | View your activity information in Google Fit-fitnessActivityReadScope :: OAuthScope-fitnessActivityReadScope = "https://www.googleapis.com/auth/fitness.activity.read";+fitnessActivityReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.activity.read"]+fitnessActivityReadScope = Proxy;  -- | View and store your activity information in Google Fit-fitnessActivityWriteScope :: OAuthScope-fitnessActivityWriteScope = "https://www.googleapis.com/auth/fitness.activity.write";+fitnessActivityWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.activity.write"]+fitnessActivityWriteScope = Proxy;  -- | View your stored location data in Google Fit-fitnessLocationReadScope :: OAuthScope-fitnessLocationReadScope = "https://www.googleapis.com/auth/fitness.location.read";+fitnessLocationReadScope :: Proxy '["https://www.googleapis.com/auth/fitness.location.read"]+fitnessLocationReadScope = Proxy;  -- | View and store your location data in Google Fit-fitnessLocationWriteScope :: OAuthScope-fitnessLocationWriteScope = "https://www.googleapis.com/auth/fitness.location.write";+fitnessLocationWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.location.write"]+fitnessLocationWriteScope = Proxy;  -- | View and store body sensor data in Google Fit-fitnessBodyWriteScope :: OAuthScope-fitnessBodyWriteScope = "https://www.googleapis.com/auth/fitness.body.write";+fitnessBodyWriteScope :: Proxy '["https://www.googleapis.com/auth/fitness.body.write"]+fitnessBodyWriteScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.Fitness.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -26,7 +26,7 @@ -- one dataset. -- -- /See:/ 'dataSet' smart constructor.-data DataSet = DataSet+data DataSet = DataSet'     { _dsNextPageToken  :: !(Maybe Text)     , _dsDataSourceId   :: !(Maybe Text)     , _dsPoint          :: !(Maybe [DataPoint])@@ -50,7 +50,7 @@ dataSet     :: DataSet dataSet =-    DataSet+    DataSet'     { _dsNextPageToken = Nothing     , _dsDataSourceId = Nothing     , _dsPoint = Nothing@@ -105,14 +105,14 @@         parseJSON           = withObject "DataSet"               (\ o ->-                 DataSet <$>+                 DataSet' <$>                    (o .:? "nextPageToken") <*> (o .:? "dataSourceId")                      <*> (o .:? "point" .!= mempty)                      <*> (o .:? "minStartTimeNs")                      <*> (o .:? "maxEndTimeNs"))  instance ToJSON DataSet where-        toJSON DataSet{..}+        toJSON DataSet'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _dsNextPageToken,@@ -125,7 +125,7 @@ -- google3\/java\/com\/google\/android\/apps\/heart\/platform\/api\/Application.java -- -- /See:/ 'application' smart constructor.-data Application = Application+data Application = Application'     { _aPackageName :: !(Maybe Text)     , _aName        :: !(Maybe Text)     , _aVersion     :: !(Maybe Text)@@ -146,7 +146,7 @@ application     :: Application application =-    Application+    Application'     { _aPackageName = Nothing     , _aName = Nothing     , _aVersion = Nothing@@ -182,13 +182,13 @@         parseJSON           = withObject "Application"               (\ o ->-                 Application <$>+                 Application' <$>                    (o .:? "packageName") <*> (o .:? "name") <*>                      (o .:? "version")                      <*> (o .:? "detailsUrl"))  instance ToJSON Application where-        toJSON Application{..}+        toJSON Application'{..}           = object               (catMaybes                  [("packageName" .=) <$> _aPackageName,@@ -197,7 +197,7 @@  -- -- /See:/ 'aggregateResponse' smart constructor.-newtype AggregateResponse = AggregateResponse+newtype AggregateResponse = AggregateResponse'     { _arBucket :: Maybe [AggregateBucket]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -209,7 +209,7 @@ aggregateResponse     :: AggregateResponse aggregateResponse =-    AggregateResponse+    AggregateResponse'     { _arBucket = Nothing     } @@ -224,16 +224,16 @@         parseJSON           = withObject "AggregateResponse"               (\ o ->-                 AggregateResponse <$> (o .:? "bucket" .!= mempty))+                 AggregateResponse' <$> (o .:? "bucket" .!= mempty))  instance ToJSON AggregateResponse where-        toJSON AggregateResponse{..}+        toJSON AggregateResponse'{..}           = object (catMaybes [("bucket" .=) <$> _arBucket])  -- | 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)@@ -248,7 +248,7 @@ aggregateBy     :: AggregateBy aggregateBy =-    AggregateBy+    AggregateBy'     { _abDataTypeName = Nothing     , _abDataSourceId = Nothing     }@@ -275,11 +275,11 @@         parseJSON           = withObject "AggregateBy"               (\ o ->-                 AggregateBy <$>+                 AggregateBy' <$>                    (o .:? "dataTypeName") <*> (o .:? "dataSourceId"))  instance ToJSON AggregateBy where-        toJSON AggregateBy{..}+        toJSON AggregateBy'{..}           = object               (catMaybes                  [("dataTypeName" .=) <$> _abDataTypeName,@@ -287,7 +287,7 @@  -- -- /See:/ 'bucketByActivity' smart constructor.-data BucketByActivity = BucketByActivity+data BucketByActivity = BucketByActivity'     { _bbaMinDurationMillis    :: !(Maybe (Textual Int64))     , _bbaActivityDataSourceId :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -302,7 +302,7 @@ bucketByActivity     :: BucketByActivity bucketByActivity =-    BucketByActivity+    BucketByActivity'     { _bbaMinDurationMillis = Nothing     , _bbaActivityDataSourceId = Nothing     }@@ -327,12 +327,12 @@         parseJSON           = withObject "BucketByActivity"               (\ o ->-                 BucketByActivity <$>+                 BucketByActivity' <$>                    (o .:? "minDurationMillis") <*>                      (o .:? "activityDataSourceId"))  instance ToJSON BucketByActivity where-        toJSON BucketByActivity{..}+        toJSON BucketByActivity'{..}           = object               (catMaybes                  [("minDurationMillis" .=) <$> _bbaMinDurationMillis,@@ -341,7 +341,7 @@  -- -- /See:/ 'aggregateRequest' smart constructor.-data AggregateRequest = AggregateRequest+data AggregateRequest = AggregateRequest'     { _arEndTimeMillis           :: !(Maybe (Textual Int64))     , _arAggregateBy             :: !(Maybe [AggregateBy])     , _arBucketBySession         :: !(Maybe BucketBySession)@@ -371,7 +371,7 @@ aggregateRequest     :: AggregateRequest aggregateRequest =-    AggregateRequest+    AggregateRequest'     { _arEndTimeMillis = Nothing     , _arAggregateBy = Nothing     , _arBucketBySession = Nothing@@ -448,7 +448,7 @@         parseJSON           = withObject "AggregateRequest"               (\ o ->-                 AggregateRequest <$>+                 AggregateRequest' <$>                    (o .:? "endTimeMillis") <*>                      (o .:? "aggregateBy" .!= mempty)                      <*> (o .:? "bucketBySession")@@ -458,7 +458,7 @@                      <*> (o .:? "bucketByActivitySegment"))  instance ToJSON AggregateRequest where-        toJSON AggregateRequest{..}+        toJSON AggregateRequest'{..}           = object               (catMaybes                  [("endTimeMillis" .=) <$> _arEndTimeMillis,@@ -483,7 +483,7 @@ -- 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)@@ -507,7 +507,7 @@ device     :: Device device =-    Device+    Device'     { _dManufacturer = Nothing     , _dUid = Nothing     , _dModel = Nothing@@ -544,14 +544,14 @@         parseJSON           = withObject "Device"               (\ o ->-                 Device <$>+                 Device' <$>                    (o .:? "manufacturer") <*> (o .:? "uid") <*>                      (o .:? "model")                      <*> (o .:? "version")                      <*> (o .:? "type"))  instance ToJSON Device where-        toJSON Device{..}+        toJSON Device'{..}           = object               (catMaybes                  [("manufacturer" .=) <$> _dManufacturer,@@ -564,7 +564,7 @@ -- or a floating point value. -- -- /See:/ 'value' smart constructor.-data Value = Value+data Value = Value'     { _vMapVal    :: !(Maybe [ValueMapValEntry])     , _vFpVal     :: !(Maybe (Textual Double))     , _vIntVal    :: !(Maybe (Textual Int32))@@ -585,7 +585,7 @@ value     :: Value value =-    Value+    Value'     { _vMapVal = Nothing     , _vFpVal = Nothing     , _vIntVal = Nothing@@ -624,13 +624,13 @@         parseJSON           = withObject "Value"               (\ o ->-                 Value <$>+                 Value' <$>                    (o .:? "mapVal" .!= mempty) <*> (o .:? "fpVal") <*>                      (o .:? "intVal")                      <*> (o .:? "stringVal"))  instance ToJSON Value where-        toJSON Value{..}+        toJSON Value'{..}           = object               (catMaybes                  [("mapVal" .=) <$> _vMapVal,@@ -639,7 +639,7 @@  -- -- /See:/ 'bucketBySession' smart constructor.-newtype BucketBySession = BucketBySession+newtype BucketBySession = BucketBySession'     { _bbsMinDurationMillis :: Maybe (Textual Int64)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -651,7 +651,7 @@ bucketBySession     :: BucketBySession bucketBySession =-    BucketBySession+    BucketBySession'     { _bbsMinDurationMillis = Nothing     } @@ -667,10 +667,10 @@         parseJSON           = withObject "BucketBySession"               (\ o ->-                 BucketBySession <$> (o .:? "minDurationMillis"))+                 BucketBySession' <$> (o .:? "minDurationMillis"))  instance ToJSON BucketBySession where-        toJSON BucketBySession{..}+        toJSON BucketBySession'{..}           = object               (catMaybes                  [("minDurationMillis" .=) <$> _bbsMinDurationMillis])@@ -686,7 +686,7 @@ -- 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)@@ -719,7 +719,7 @@ dataPoint     :: DataPoint dataPoint =-    DataPoint+    DataPoint'     { _dpOriginDataSourceId = Nothing     , _dpRawTimestampNanos = Nothing     , _dpDataTypeName = Nothing@@ -799,7 +799,7 @@         parseJSON           = withObject "DataPoint"               (\ o ->-                 DataPoint <$>+                 DataPoint' <$>                    (o .:? "originDataSourceId") <*>                      (o .:? "rawTimestampNanos")                      <*> (o .:? "dataTypeName")@@ -810,7 +810,7 @@                      <*> (o .:? "startTimeNanos"))  instance ToJSON DataPoint where-        toJSON DataPoint{..}+        toJSON DataPoint'{..}           = object               (catMaybes                  [("originDataSourceId" .=) <$> _dpOriginDataSourceId,@@ -825,7 +825,7 @@  -- -- /See:/ 'listSessionsResponse' smart constructor.-data ListSessionsResponse = ListSessionsResponse+data ListSessionsResponse = ListSessionsResponse'     { _lsrNextPageToken  :: !(Maybe Text)     , _lsrDeletedSession :: !(Maybe [Session])     , _lsrSession        :: !(Maybe [Session])@@ -843,7 +843,7 @@ listSessionsResponse     :: ListSessionsResponse listSessionsResponse =-    ListSessionsResponse+    ListSessionsResponse'     { _lsrNextPageToken = Nothing     , _lsrDeletedSession = Nothing     , _lsrSession = Nothing@@ -879,13 +879,13 @@         parseJSON           = withObject "ListSessionsResponse"               (\ o ->-                 ListSessionsResponse <$>+                 ListSessionsResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "deletedSession" .!= mempty)                      <*> (o .:? "session" .!= mempty))  instance ToJSON ListSessionsResponse where-        toJSON ListSessionsResponse{..}+        toJSON ListSessionsResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _lsrNextPageToken,@@ -894,7 +894,7 @@  -- -- /See:/ 'aggregateBucket' smart constructor.-data AggregateBucket = AggregateBucket+data AggregateBucket = AggregateBucket'     { _abEndTimeMillis   :: !(Maybe (Textual Int64))     , _abDataSet         :: !(Maybe [DataSet])     , _abActivity        :: !(Maybe (Textual Int32))@@ -921,7 +921,7 @@ aggregateBucket     :: AggregateBucket aggregateBucket =-    AggregateBucket+    AggregateBucket'     { _abEndTimeMillis = Nothing     , _abDataSet = Nothing     , _abActivity = Nothing@@ -973,7 +973,7 @@         parseJSON           = withObject "AggregateBucket"               (\ o ->-                 AggregateBucket <$>+                 AggregateBucket' <$>                    (o .:? "endTimeMillis") <*>                      (o .:? "dataset" .!= mempty)                      <*> (o .:? "activity")@@ -982,7 +982,7 @@                      <*> (o .:? "session"))  instance ToJSON AggregateBucket where-        toJSON AggregateBucket{..}+        toJSON AggregateBucket'{..}           = object               (catMaybes                  [("endTimeMillis" .=) <$> _abEndTimeMillis,@@ -997,7 +997,7 @@ -- supports. -- -- /See:/ 'mapValue' smart constructor.-newtype MapValue = MapValue+newtype MapValue = MapValue'     { _mvFpVal :: Maybe (Textual Double)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1009,7 +1009,7 @@ mapValue     :: MapValue mapValue =-    MapValue+    MapValue'     { _mvFpVal = Nothing     } @@ -1022,15 +1022,15 @@ instance FromJSON MapValue where         parseJSON           = withObject "MapValue"-              (\ o -> MapValue <$> (o .:? "fpVal"))+              (\ o -> MapValue' <$> (o .:? "fpVal"))  instance ToJSON MapValue where-        toJSON MapValue{..}+        toJSON MapValue'{..}           = object (catMaybes [("fpVal" .=) <$> _mvFpVal])  -- -- /See:/ 'listDataSourcesResponse' smart constructor.-newtype ListDataSourcesResponse = ListDataSourcesResponse+newtype ListDataSourcesResponse = ListDataSourcesResponse'     { _ldsrDataSource :: Maybe [DataSource]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1042,7 +1042,7 @@ listDataSourcesResponse     :: ListDataSourcesResponse listDataSourcesResponse =-    ListDataSourcesResponse+    ListDataSourcesResponse'     { _ldsrDataSource = Nothing     } @@ -1058,11 +1058,11 @@         parseJSON           = withObject "ListDataSourcesResponse"               (\ o ->-                 ListDataSourcesResponse <$>+                 ListDataSourcesResponse' <$>                    (o .:? "dataSource" .!= mempty))  instance ToJSON ListDataSourcesResponse where-        toJSON ListDataSourcesResponse{..}+        toJSON ListDataSourcesResponse'{..}           = object               (catMaybes [("dataSource" .=) <$> _ldsrDataSource]) @@ -1073,7 +1073,7 @@ -- 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)@@ -1091,7 +1091,7 @@ dataTypeField     :: DataTypeField dataTypeField =-    DataTypeField+    DataTypeField'     { _dtfFormat = Nothing     , _dtfName = Nothing     , _dtfOptional = Nothing@@ -1115,12 +1115,12 @@         parseJSON           = withObject "DataTypeField"               (\ o ->-                 DataTypeField <$>+                 DataTypeField' <$>                    (o .:? "format") <*> (o .:? "name") <*>                      (o .:? "optional"))  instance ToJSON DataTypeField where-        toJSON DataTypeField{..}+        toJSON DataTypeField'{..}           = object               (catMaybes                  [("format" .=) <$> _dtfFormat,@@ -1143,7 +1143,7 @@ -- stream. -- -- /See:/ 'dataSource' smart constructor.-data DataSource = DataSource+data DataSource = DataSource'     { _dsApplication    :: !(Maybe Application)     , _dsDevice         :: !(Maybe Device)     , _dsName           :: !(Maybe Text)@@ -1173,7 +1173,7 @@ dataSource     :: DataSource dataSource =-    DataSource+    DataSource'     { _dsApplication = Nothing     , _dsDevice = Nothing     , _dsName = Nothing@@ -1253,7 +1253,7 @@         parseJSON           = withObject "DataSource"               (\ o ->-                 DataSource <$>+                 DataSource' <$>                    (o .:? "application") <*> (o .:? "device") <*>                      (o .:? "name")                      <*> (o .:? "dataType")@@ -1262,7 +1262,7 @@                      <*> (o .:? "dataStreamId"))  instance ToJSON DataSource where-        toJSON DataSource{..}+        toJSON DataSource'{..}           = object               (catMaybes                  [("application" .=) <$> _dsApplication,@@ -1274,7 +1274,7 @@  -- -- /See:/ 'valueMapValEntry' smart constructor.-data ValueMapValEntry = ValueMapValEntry+data ValueMapValEntry = ValueMapValEntry'     { _vmveValue :: !(Maybe MapValue)     , _vmveKey   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1289,7 +1289,7 @@ valueMapValEntry     :: ValueMapValEntry valueMapValEntry =-    ValueMapValEntry+    ValueMapValEntry'     { _vmveValue = Nothing     , _vmveKey = Nothing     }@@ -1305,11 +1305,11 @@         parseJSON           = withObject "ValueMapValEntry"               (\ o ->-                 ValueMapValEntry <$>+                 ValueMapValEntry' <$>                    (o .:? "value") <*> (o .:? "key"))  instance ToJSON ValueMapValEntry where-        toJSON ValueMapValEntry{..}+        toJSON ValueMapValEntry'{..}           = object               (catMaybes                  [("value" .=) <$> _vmveValue,@@ -1317,7 +1317,7 @@  -- -- /See:/ 'bucketByTime' smart constructor.-newtype BucketByTime = BucketByTime+newtype BucketByTime = BucketByTime'     { _bbtDurationMillis :: Maybe (Textual Int64)     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1329,7 +1329,7 @@ bucketByTime     :: BucketByTime bucketByTime =-    BucketByTime+    BucketByTime'     { _bbtDurationMillis = Nothing     } @@ -1345,10 +1345,10 @@ instance FromJSON BucketByTime where         parseJSON           = withObject "BucketByTime"-              (\ o -> BucketByTime <$> (o .:? "durationMillis"))+              (\ o -> BucketByTime' <$> (o .:? "durationMillis"))  instance ToJSON BucketByTime where-        toJSON BucketByTime{..}+        toJSON BucketByTime'{..}           = object               (catMaybes                  [("durationMillis" .=) <$> _bbtDurationMillis])@@ -1357,7 +1357,7 @@ -- google3\/java\/com\/google\/android\/apps\/heart\/platform\/api\/DataType.java -- -- /See:/ 'dataType' smart constructor.-data DataType = DataType+data DataType = DataType'     { _dtField :: !(Maybe [DataTypeField])     , _dtName  :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1372,7 +1372,7 @@ dataType     :: DataType dataType =-    DataType+    DataType'     { _dtField = Nothing     , _dtName = Nothing     }@@ -1392,11 +1392,11 @@         parseJSON           = withObject "DataType"               (\ o ->-                 DataType <$>+                 DataType' <$>                    (o .:? "field" .!= mempty) <*> (o .:? "name"))  instance ToJSON DataType where-        toJSON DataType{..}+        toJSON DataType'{..}           = object               (catMaybes                  [("field" .=) <$> _dtField, ("name" .=) <$> _dtName])@@ -1405,7 +1405,7 @@ -- interval information. -- -- /See:/ 'session' smart constructor.-data Session = Session+data Session = Session'     { _sEndTimeMillis      :: !(Maybe (Textual Int64))     , _sActiveTimeMillis   :: !(Maybe (Textual Int64))     , _sApplication        :: !(Maybe Application)@@ -1441,7 +1441,7 @@ session     :: Session session =-    Session+    Session'     { _sEndTimeMillis = Nothing     , _sActiveTimeMillis = Nothing     , _sApplication = Nothing@@ -1515,7 +1515,7 @@         parseJSON           = withObject "Session"               (\ o ->-                 Session <$>+                 Session' <$>                    (o .:? "endTimeMillis") <*>                      (o .:? "activeTimeMillis")                      <*> (o .:? "application")@@ -1527,7 +1527,7 @@                      <*> (o .:? "description"))  instance ToJSON Session where-        toJSON Session{..}+        toJSON Session'{..}           = object               (catMaybes                  [("endTimeMillis" .=) <$> _sEndTimeMillis,

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.Fitness.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -31,21 +31,21 @@       -- ^ @time@     | ABTUnknown       -- ^ @unknown@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable AggregateBucketType -instance FromText AggregateBucketType where-    fromText = \case-        "activitySegment" -> Just ABTActivitySegment-        "activityType" -> Just ABTActivityType-        "session" -> Just ABTSession-        "time" -> Just ABTTime-        "unknown" -> Just ABTUnknown-        _ -> Nothing+instance FromHttpApiData AggregateBucketType where+    parseQueryParam = \case+        "activitySegment" -> Right ABTActivitySegment+        "activityType" -> Right ABTActivityType+        "session" -> Right ABTSession+        "time" -> Right ABTTime+        "unknown" -> Right ABTUnknown+        x -> Left ("Unable to parse AggregateBucketType from: " <> x) -instance ToText AggregateBucketType where-    toText = \case+instance ToHttpApiData AggregateBucketType where+    toQueryParam = \case         ABTActivitySegment -> "activitySegment"         ABTActivityType -> "activityType"         ABTSession -> "session"@@ -65,18 +65,18 @@       -- ^ @derived@     | Raw       -- ^ @raw@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DataSourceType -instance FromText DataSourceType where-    fromText = \case-        "derived" -> Just Derived-        "raw" -> Just Raw-        _ -> Nothing+instance FromHttpApiData DataSourceType where+    parseQueryParam = \case+        "derived" -> Right Derived+        "raw" -> Right Raw+        x -> Left ("Unable to parse DataSourceType from: " <> x) -instance ToText DataSourceType where-    toText = \case+instance ToHttpApiData DataSourceType where+    toQueryParam = \case         Derived -> "derived"         Raw -> "raw" @@ -100,22 +100,22 @@       -- ^ @unknown@     | Watch       -- ^ @watch@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DeviceType -instance FromText DeviceType where-    fromText = \case-        "chestStrap" -> Just ChestStrap-        "phone" -> Just Phone-        "scale" -> Just Scale-        "tablet" -> Just Tablet-        "unknown" -> Just Unknown-        "watch" -> Just Watch-        _ -> Nothing+instance FromHttpApiData DeviceType where+    parseQueryParam = \case+        "chestStrap" -> Right ChestStrap+        "phone" -> Right Phone+        "scale" -> Right Scale+        "tablet" -> Right Tablet+        "unknown" -> Right Unknown+        "watch" -> Right Watch+        x -> Left ("Unable to parse DeviceType from: " <> x) -instance ToText DeviceType where-    toText = \case+instance ToHttpApiData DeviceType where+    toQueryParam = \case         ChestStrap -> "chestStrap"         Phone -> "phone"         Scale -> "scale"@@ -131,7 +131,9 @@  -- | The different supported formats for each field in a data type. data DataTypeFieldFormat-    = FloatList+    = Blob+      -- ^ @blob@+    | FloatList       -- ^ @floatList@     | FloatPoint       -- ^ @floatPoint@@@ -143,22 +145,24 @@       -- ^ @map@     | String       -- ^ @string@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable DataTypeFieldFormat -instance FromText DataTypeFieldFormat where-    fromText = \case-        "floatList" -> Just FloatList-        "floatPoint" -> Just FloatPoint-        "integer" -> Just Integer-        "integerList" -> Just IntegerList-        "map" -> Just Map-        "string" -> Just String-        _ -> Nothing+instance FromHttpApiData DataTypeFieldFormat where+    parseQueryParam = \case+        "blob" -> Right Blob+        "floatList" -> Right FloatList+        "floatPoint" -> Right FloatPoint+        "integer" -> Right Integer+        "integerList" -> Right IntegerList+        "map" -> Right Map+        "string" -> Right String+        x -> Left ("Unable to parse DataTypeFieldFormat from: " <> x) -instance ToText DataTypeFieldFormat where-    toText = \case+instance ToHttpApiData DataTypeFieldFormat where+    toQueryParam = \case+        Blob -> "blob"         FloatList -> "floatList"         FloatPoint -> "floatPoint"         Integer -> "integer"

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSet.Aggregate--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- request. -- -- /See:/ 'usersDataSetAggregate' smart constructor.-data UsersDataSetAggregate = UsersDataSetAggregate+data UsersDataSetAggregate = UsersDataSetAggregate'     { _udsaPayload :: !AggregateRequest     , _udsaUserId  :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -78,7 +78,7 @@     -> Text -- ^ 'udsaUserId'     -> UsersDataSetAggregate usersDataSetAggregate pUdsaPayload_ pUdsaUserId_ =-    UsersDataSetAggregate+    UsersDataSetAggregate'     { _udsaPayload = pUdsaPayload_     , _udsaUserId = pUdsaUserId_     }@@ -96,7 +96,14 @@  instance GoogleRequest UsersDataSetAggregate where         type Rs UsersDataSetAggregate = AggregateResponse-        requestClient UsersDataSetAggregate{..}+        type Scopes UsersDataSetAggregate =+             '["https://www.googleapis.com/auth/fitness.activity.read",+               "https://www.googleapis.com/auth/fitness.activity.write",+               "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"]+        requestClient UsersDataSetAggregate'{..}           = go _udsaUserId (Just AltJSON) _udsaPayload               fitnessService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.Create--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@ -- 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)@@ -85,7 +85,7 @@     -> Text -- ^ 'udscUserId'     -> UsersDataSourcesCreate usersDataSourcesCreate pUdscPayload_ pUdscUserId_ =-    UsersDataSourcesCreate+    UsersDataSourcesCreate'     { _udscPayload = pUdscPayload_     , _udscUserId = pUdscUserId_     }@@ -103,7 +103,11 @@  instance GoogleRequest UsersDataSourcesCreate where         type Rs UsersDataSourcesCreate = DataSource-        requestClient UsersDataSourcesCreate{..}+        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"]+        requestClient UsersDataSourcesCreate'{..}           = go _udscUserId (Just AltJSON) _udscPayload               fitnessService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.DataSets.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@ -- will be deleted. -- -- /See:/ 'usersDataSourcesDataSetsDelete' smart constructor.-data UsersDataSourcesDataSetsDelete = UsersDataSourcesDataSetsDelete+data UsersDataSourcesDataSetsDelete = UsersDataSourcesDataSetsDelete'     { _udsdsdDataSourceId       :: !Text     , _udsdsdUserId             :: !Text     , _udsdsdDataSetId          :: !Text@@ -100,7 +100,7 @@     -> Text -- ^ 'udsdsdDataSetId'     -> UsersDataSourcesDataSetsDelete usersDataSourcesDataSetsDelete pUdsdsdDataSourceId_ pUdsdsdUserId_ pUdsdsdDataSetId_ =-    UsersDataSourcesDataSetsDelete+    UsersDataSourcesDataSetsDelete'     { _udsdsdDataSourceId = pUdsdsdDataSourceId_     , _udsdsdUserId = pUdsdsdUserId_     , _udsdsdDataSetId = pUdsdsdDataSetId_@@ -146,7 +146,11 @@ instance GoogleRequest UsersDataSourcesDataSetsDelete          where         type Rs UsersDataSourcesDataSetsDelete = ()-        requestClient UsersDataSourcesDataSetsDelete{..}+        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"]+        requestClient UsersDataSourcesDataSetsDelete'{..}           = go _udsdsdUserId _udsdsdDataSourceId               _udsdsdDataSetId               _udsdsdModifiedTimeMillis

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.DataSets.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@ -- or equal to the dataset start time. -- -- /See:/ 'usersDataSourcesDataSetsGet' smart constructor.-data UsersDataSourcesDataSetsGet = UsersDataSourcesDataSetsGet+data UsersDataSourcesDataSetsGet = UsersDataSourcesDataSetsGet'     { _udsdsgDataSourceId :: !Text     , _udsdsgUserId       :: !Text     , _udsdsgDataSetId    :: !Text@@ -96,7 +96,7 @@     -> Text -- ^ 'udsdsgDataSetId'     -> UsersDataSourcesDataSetsGet usersDataSourcesDataSetsGet pUdsdsgDataSourceId_ pUdsdsgUserId_ pUdsdsgDataSetId_ =-    UsersDataSourcesDataSetsGet+    UsersDataSourcesDataSetsGet'     { _udsdsgDataSourceId = pUdsdsgDataSourceId_     , _udsdsgUserId = pUdsdsgUserId_     , _udsdsgDataSetId = pUdsdsgDataSetId_@@ -146,7 +146,14 @@ instance GoogleRequest UsersDataSourcesDataSetsGet          where         type Rs UsersDataSourcesDataSetsGet = DataSet-        requestClient UsersDataSourcesDataSetsGet{..}+        type Scopes UsersDataSourcesDataSetsGet =+             '["https://www.googleapis.com/auth/fitness.activity.read",+               "https://www.googleapis.com/auth/fitness.activity.write",+               "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"]+        requestClient UsersDataSourcesDataSetsGet'{..}           = go _udsdsgUserId _udsdsgDataSourceId               _udsdsgDataSetId               _udsdsgLimit

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.DataSets.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@ -- 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@@ -95,7 +95,7 @@     -> Text -- ^ 'udsdspDataSetId'     -> UsersDataSourcesDataSetsPatch usersDataSourcesDataSetsPatch pUdsdspDataSourceId_ pUdsdspPayload_ pUdsdspUserId_ pUdsdspDataSetId_ =-    UsersDataSourcesDataSetsPatch+    UsersDataSourcesDataSetsPatch'     { _udsdspDataSourceId = pUdsdspDataSourceId_     , _udsdspPayload = pUdsdspPayload_     , _udsdspUserId = pUdsdspUserId_@@ -142,7 +142,11 @@ instance GoogleRequest UsersDataSourcesDataSetsPatch          where         type Rs UsersDataSourcesDataSetsPatch = DataSet-        requestClient UsersDataSourcesDataSetsPatch{..}+        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"]+        requestClient UsersDataSourcesDataSetsPatch'{..}           = go _udsdspUserId _udsdspDataSourceId               _udsdspDataSetId               _udsdspCurrentTimeMillis

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Delete the data source if there are no datapoints associated with it -- -- /See:/ 'usersDataSourcesDelete' smart constructor.-data UsersDataSourcesDelete = UsersDataSourcesDelete+data UsersDataSourcesDelete = UsersDataSourcesDelete'     { _udsdDataSourceId :: !Text     , _udsdUserId       :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'udsdUserId'     -> UsersDataSourcesDelete usersDataSourcesDelete pUdsdDataSourceId_ pUdsdUserId_ =-    UsersDataSourcesDelete+    UsersDataSourcesDelete'     { _udsdDataSourceId = pUdsdDataSourceId_     , _udsdUserId = pUdsdUserId_     }@@ -90,7 +90,11 @@  instance GoogleRequest UsersDataSourcesDelete where         type Rs UsersDataSourcesDelete = DataSource-        requestClient UsersDataSourcesDelete{..}+        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"]+        requestClient UsersDataSourcesDelete'{..}           = go _udsdUserId _udsdDataSourceId (Just AltJSON)               fitnessService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Returns a data source identified by a data stream ID. -- -- /See:/ 'usersDataSourcesGet' smart constructor.-data UsersDataSourcesGet = UsersDataSourcesGet+data UsersDataSourcesGet = UsersDataSourcesGet'     { _udsgDataSourceId :: !Text     , _udsgUserId       :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'udsgUserId'     -> UsersDataSourcesGet usersDataSourcesGet pUdsgDataSourceId_ pUdsgUserId_ =-    UsersDataSourcesGet+    UsersDataSourcesGet'     { _udsgDataSourceId = pUdsgDataSourceId_     , _udsgUserId = pUdsgUserId_     }@@ -90,7 +90,14 @@  instance GoogleRequest UsersDataSourcesGet where         type Rs UsersDataSourcesGet = DataSource-        requestClient UsersDataSourcesGet{..}+        type Scopes UsersDataSourcesGet =+             '["https://www.googleapis.com/auth/fitness.activity.read",+               "https://www.googleapis.com/auth/fitness.activity.write",+               "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"]+        requestClient UsersDataSourcesGet'{..}           = go _udsgUserId _udsgDataSourceId (Just AltJSON)               fitnessService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- using other scopes. -- -- /See:/ 'usersDataSourcesList' smart constructor.-data UsersDataSourcesList = UsersDataSourcesList+data UsersDataSourcesList = UsersDataSourcesList'     { _udslDataTypeName :: !(Maybe [Text])     , _udslUserId       :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -77,7 +77,7 @@     :: Text -- ^ 'udslUserId'     -> UsersDataSourcesList usersDataSourcesList pUdslUserId_ =-    UsersDataSourcesList+    UsersDataSourcesList'     { _udslDataTypeName = Nothing     , _udslUserId = pUdslUserId_     }@@ -100,7 +100,14 @@ instance GoogleRequest UsersDataSourcesList where         type Rs UsersDataSourcesList =              ListDataSourcesResponse-        requestClient UsersDataSourcesList{..}+        type Scopes UsersDataSourcesList =+             '["https://www.googleapis.com/auth/fitness.activity.read",+               "https://www.googleapis.com/auth/fitness.activity.write",+               "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"]+        requestClient UsersDataSourcesList'{..}           = go _udslUserId (_udslDataTypeName ^. _Default)               (Just AltJSON)               fitnessService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@ -- semantics. -- -- /See:/ 'usersDataSourcesPatch' smart constructor.-data UsersDataSourcesPatch = UsersDataSourcesPatch+data UsersDataSourcesPatch = UsersDataSourcesPatch'     { _udspDataSourceId :: !Text     , _udspPayload      :: !DataSource     , _udspUserId       :: !Text@@ -88,7 +88,7 @@     -> Text -- ^ 'udspUserId'     -> UsersDataSourcesPatch usersDataSourcesPatch pUdspDataSourceId_ pUdspPayload_ pUdspUserId_ =-    UsersDataSourcesPatch+    UsersDataSourcesPatch'     { _udspDataSourceId = pUdspDataSourceId_     , _udspPayload = pUdspPayload_     , _udspUserId = pUdspUserId_@@ -113,7 +113,11 @@  instance GoogleRequest UsersDataSourcesPatch where         type Rs UsersDataSourcesPatch = DataSource-        requestClient UsersDataSourcesPatch{..}+        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"]+        requestClient UsersDataSourcesPatch'{..}           = go _udspUserId _udspDataSourceId (Just AltJSON)               _udspPayload               fitnessService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.DataSources.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- identified by their data stream ID. -- -- /See:/ 'usersDataSourcesUpdate' smart constructor.-data UsersDataSourcesUpdate = UsersDataSourcesUpdate+data UsersDataSourcesUpdate = UsersDataSourcesUpdate'     { _udsuDataSourceId :: !Text     , _udsuPayload      :: !DataSource     , _udsuUserId       :: !Text@@ -85,7 +85,7 @@     -> Text -- ^ 'udsuUserId'     -> UsersDataSourcesUpdate usersDataSourcesUpdate pUdsuDataSourceId_ pUdsuPayload_ pUdsuUserId_ =-    UsersDataSourcesUpdate+    UsersDataSourcesUpdate'     { _udsuDataSourceId = pUdsuDataSourceId_     , _udsuPayload = pUdsuPayload_     , _udsuUserId = pUdsuUserId_@@ -110,7 +110,11 @@  instance GoogleRequest UsersDataSourcesUpdate where         type Rs UsersDataSourcesUpdate = DataSource-        requestClient UsersDataSourcesUpdate{..}+        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"]+        requestClient UsersDataSourcesUpdate'{..}           = go _udsuUserId _udsuDataSourceId (Just AltJSON)               _udsuPayload               fitnessService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.Sessions.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | 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@@ -76,7 +76,7 @@     -> Text -- ^ 'usdSessionId'     -> UsersSessionsDelete usersSessionsDelete pUsdUserId_ pUsdSessionId_ =-    UsersSessionsDelete+    UsersSessionsDelete'     { _usdUserId = pUsdUserId_     , _usdCurrentTimeMillis = Nothing     , _usdSessionId = pUsdSessionId_@@ -102,7 +102,9 @@  instance GoogleRequest UsersSessionsDelete where         type Rs UsersSessionsDelete = ()-        requestClient UsersSessionsDelete{..}+        type Scopes UsersSessionsDelete =+             '["https://www.googleapis.com/auth/fitness.activity.write"]+        requestClient UsersSessionsDelete'{..}           = go _usdUserId _usdSessionId _usdCurrentTimeMillis               (Just AltJSON)               fitnessService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.Sessions.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Lists sessions previously created. -- -- /See:/ 'usersSessionsList' smart constructor.-data UsersSessionsList = UsersSessionsList+data UsersSessionsList = UsersSessionsList'     { _uslStartTime      :: !(Maybe Text)     , _uslUserId         :: !Text     , _uslEndTime        :: !(Maybe Text)@@ -86,7 +86,7 @@     :: Text -- ^ 'uslUserId'     -> UsersSessionsList usersSessionsList pUslUserId_ =-    UsersSessionsList+    UsersSessionsList'     { _uslStartTime = Nothing     , _uslUserId = pUslUserId_     , _uslEndTime = Nothing@@ -129,7 +129,14 @@  instance GoogleRequest UsersSessionsList where         type Rs UsersSessionsList = ListSessionsResponse-        requestClient UsersSessionsList{..}+        type Scopes UsersSessionsList =+             '["https://www.googleapis.com/auth/fitness.activity.read",+               "https://www.googleapis.com/auth/fitness.activity.write",+               "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"]+        requestClient UsersSessionsList'{..}           = go _uslUserId _uslStartTime _uslEndTime               _uslPageToken               _uslIncludeDeleted

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Fitness.Users.Sessions.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Updates or insert a given session. -- -- /See:/ 'usersSessionsUpdate' smart constructor.-data UsersSessionsUpdate = UsersSessionsUpdate+data UsersSessionsUpdate = UsersSessionsUpdate'     { _usuPayload           :: !Session     , _usuUserId            :: !Text     , _usuCurrentTimeMillis :: !(Maybe (Textual Int64))@@ -82,7 +82,7 @@     -> Text -- ^ 'usuSessionId'     -> UsersSessionsUpdate usersSessionsUpdate pUsuPayload_ pUsuUserId_ pUsuSessionId_ =-    UsersSessionsUpdate+    UsersSessionsUpdate'     { _usuPayload = pUsuPayload_     , _usuUserId = pUsuUserId_     , _usuCurrentTimeMillis = Nothing@@ -114,7 +114,9 @@  instance GoogleRequest UsersSessionsUpdate where         type Rs UsersSessionsUpdate = Session-        requestClient UsersSessionsUpdate{..}+        type Scopes UsersSessionsUpdate =+             '["https://www.googleapis.com/auth/fitness.activity.write"]+        requestClient UsersSessionsUpdate'{..}           = go _usuUserId _usuSessionId _usuCurrentTimeMillis               (Just AltJSON)               _usuPayload

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