gogol-maps-coordinate 0.0.1 → 0.1.0

raw patch · 18 files changed

+194/−158 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 +3/−3
• gen/Network/Google/MapsCoordinate.hs +5/−1
• gen/Network/Google/MapsCoordinate/Types.hs +8/−7
• gen/Network/Google/MapsCoordinate/Types/Product.hs +73/−73
• gen/Network/Google/MapsCoordinate/Types/Sum.hs +23/−23
• gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs +7/−4
• gen/Network/Google/Resource/Coordinate/Jobs/Get.hs +7/−4
• gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs +6/−4
• gen/Network/Google/Resource/Coordinate/Jobs/List.hs +7/−4
• gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs +6/−4
• gen/Network/Google/Resource/Coordinate/Jobs/Update.hs +6/−4
• gen/Network/Google/Resource/Coordinate/Location/List.hs +7/−4
• gen/Network/Google/Resource/Coordinate/Schedule/Get.hs +7/−4
• gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs +6/−4
• gen/Network/Google/Resource/Coordinate/Schedule/Update.hs +6/−4
• gen/Network/Google/Resource/Coordinate/Team/List.hs +7/−4
• gen/Network/Google/Resource/Coordinate/Worker/List.hs +7/−4
• gogol-maps-coordinate.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.MapsCoordinate--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -20,6 +20,10 @@     (     -- * Service Configuration       mapsCoordinateService++    -- * OAuth Scopes+    , coordinateScope+    , coordinateReadOnlyScope      -- * API Declaration     , MapsCoordinateAPI

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.MapsCoordinate.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@@ -20,7 +21,7 @@      -- * OAuth Scopes     , coordinateScope-    , coordinateReadonlyScope+    , coordinateReadOnlyScope      -- * LocationListResponse     , LocationListResponse@@ -172,15 +173,15 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v1' of the Google Maps Coordinate API. This contains the host and root path used as a starting point for constructing service requests.-mapsCoordinateService :: Service+mapsCoordinateService :: ServiceConfig mapsCoordinateService   = defaultService (ServiceId "coordinate:v1")       "www.googleapis.com"  -- | View and manage your Google Maps Coordinate jobs-coordinateScope :: OAuthScope-coordinateScope = "https://www.googleapis.com/auth/coordinate";+coordinateScope :: Proxy '["https://www.googleapis.com/auth/coordinate"]+coordinateScope = Proxy;  -- | View your Google Coordinate jobs-coordinateReadonlyScope :: OAuthScope-coordinateReadonlyScope = "https://www.googleapis.com/auth/coordinate.readonly";+coordinateReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/coordinate.readonly"]+coordinateReadOnlyScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.MapsCoordinate.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -23,7 +23,7 @@ -- | Response from a List Locations request. -- -- /See:/ 'locationListResponse' smart constructor.-data LocationListResponse = LocationListResponse+data LocationListResponse = LocationListResponse'     { _llrTokenPagination :: !(Maybe TokenPagination)     , _llrNextPageToken   :: !(Maybe Text)     , _llrKind            :: !Text@@ -44,7 +44,7 @@ locationListResponse     :: LocationListResponse locationListResponse =-    LocationListResponse+    LocationListResponse'     { _llrTokenPagination = Nothing     , _llrNextPageToken = Nothing     , _llrKind = "coordinate#locationList"@@ -78,13 +78,13 @@         parseJSON           = withObject "LocationListResponse"               (\ o ->-                 LocationListResponse <$>+                 LocationListResponse' <$>                    (o .:? "tokenPagination") <*> (o .:? "nextPageToken")                      <*> (o .:? "kind" .!= "coordinate#locationList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON LocationListResponse where-        toJSON LocationListResponse{..}+        toJSON LocationListResponse'{..}           = object               (catMaybes                  [("tokenPagination" .=) <$> _llrTokenPagination,@@ -95,7 +95,7 @@ -- | Pagination information. -- -- /See:/ 'tokenPagination' smart constructor.-data TokenPagination = TokenPagination+data TokenPagination = TokenPagination'     { _tpNextPageToken     :: !(Maybe Text)     , _tpKind              :: !Text     , _tpPreviousPageToken :: !(Maybe Text)@@ -113,7 +113,7 @@ tokenPagination     :: TokenPagination tokenPagination =-    TokenPagination+    TokenPagination'     { _tpNextPageToken = Nothing     , _tpKind = "coordinate#tokenPagination"     , _tpPreviousPageToken = Nothing@@ -139,13 +139,13 @@         parseJSON           = withObject "TokenPagination"               (\ o ->-                 TokenPagination <$>+                 TokenPagination' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "coordinate#tokenPagination")                      <*> (o .:? "previousPageToken"))  instance ToJSON TokenPagination where-        toJSON TokenPagination{..}+        toJSON TokenPagination'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _tpNextPageToken,@@ -155,7 +155,7 @@ -- | Response from a List Workers request. -- -- /See:/ 'workerListResponse' smart constructor.-data WorkerListResponse = WorkerListResponse+data WorkerListResponse = WorkerListResponse'     { _wlrKind  :: !Text     , _wlrItems :: !(Maybe [Worker])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -170,7 +170,7 @@ workerListResponse     :: WorkerListResponse workerListResponse =-    WorkerListResponse+    WorkerListResponse'     { _wlrKind = "coordinate#workerList"     , _wlrItems = Nothing     }@@ -190,12 +190,12 @@         parseJSON           = withObject "WorkerListResponse"               (\ o ->-                 WorkerListResponse <$>+                 WorkerListResponse' <$>                    (o .:? "kind" .!= "coordinate#workerList") <*>                      (o .:? "items" .!= mempty))  instance ToJSON WorkerListResponse where-        toJSON WorkerListResponse{..}+        toJSON WorkerListResponse'{..}           = object               (catMaybes                  [Just ("kind" .= _wlrKind),@@ -204,7 +204,7 @@ -- | Job schedule. -- -- /See:/ 'schedule' smart constructor.-data Schedule = Schedule+data Schedule = Schedule'     { _sAllDay    :: !(Maybe Bool)     , _sStartTime :: !(Maybe (Textual Word64))     , _sKind      :: !Text@@ -228,7 +228,7 @@ schedule     :: Schedule schedule =-    Schedule+    Schedule'     { _sAllDay = Nothing     , _sStartTime = Nothing     , _sKind = "coordinate#schedule"@@ -267,14 +267,14 @@         parseJSON           = withObject "Schedule"               (\ o ->-                 Schedule <$>+                 Schedule' <$>                    (o .:? "allDay") <*> (o .:? "startTime") <*>                      (o .:? "kind" .!= "coordinate#schedule")                      <*> (o .:? "endTime")                      <*> (o .:? "duration"))  instance ToJSON Schedule where-        toJSON Schedule{..}+        toJSON Schedule'{..}           = object               (catMaybes                  [("allDay" .=) <$> _sAllDay,@@ -286,7 +286,7 @@ -- | Location of a job. -- -- /See:/ 'location' smart constructor.-data Location = Location+data Location = Location'     { _lAddressLine :: !(Maybe [Text])     , _lKind        :: !Text     , _lLat         :: !(Maybe (Textual Double))@@ -307,7 +307,7 @@ location     :: Location location =-    Location+    Location'     { _lAddressLine = Nothing     , _lKind = "coordinate#location"     , _lLat = Nothing@@ -341,14 +341,14 @@         parseJSON           = withObject "Location"               (\ o ->-                 Location <$>+                 Location' <$>                    (o .:? "addressLine" .!= mempty) <*>                      (o .:? "kind" .!= "coordinate#location")                      <*> (o .:? "lat")                      <*> (o .:? "lng"))  instance ToJSON Location where-        toJSON Location{..}+        toJSON Location'{..}           = object               (catMaybes                  [("addressLine" .=) <$> _lAddressLine,@@ -358,7 +358,7 @@ -- | Current state of a job. -- -- /See:/ 'jobState' smart constructor.-data JobState = JobState+data JobState = JobState'     { _jsLocation            :: !(Maybe Location)     , _jsProgress            :: !(Maybe Text)     , _jsNote                :: !(Maybe [Text])@@ -394,7 +394,7 @@ jobState     :: JobState jobState =-    JobState+    JobState'     { _jsLocation = Nothing     , _jsProgress = Nothing     , _jsNote = Nothing@@ -458,7 +458,7 @@         parseJSON           = withObject "JobState"               (\ o ->-                 JobState <$>+                 JobState' <$>                    (o .:? "location") <*> (o .:? "progress") <*>                      (o .:? "note" .!= mempty)                      <*> (o .:? "kind" .!= "coordinate#jobState")@@ -469,7 +469,7 @@                      <*> (o .:? "title"))  instance ToJSON JobState where-        toJSON JobState{..}+        toJSON JobState'{..}           = object               (catMaybes                  [("location" .=) <$> _jsLocation,@@ -485,7 +485,7 @@ -- | Custom field definition. -- -- /See:/ 'customFieldDef' smart constructor.-data CustomFieldDef = CustomFieldDef+data CustomFieldDef = CustomFieldDef'     { _cfdEnabled             :: !(Maybe Bool)     , _cfdKind                :: !Text     , _cfdName                :: !(Maybe Text)@@ -515,7 +515,7 @@ customFieldDef     :: CustomFieldDef customFieldDef =-    CustomFieldDef+    CustomFieldDef'     { _cfdEnabled = Nothing     , _cfdKind = "coordinate#customFieldDef"     , _cfdName = Nothing@@ -567,7 +567,7 @@         parseJSON           = withObject "CustomFieldDef"               (\ o ->-                 CustomFieldDef <$>+                 CustomFieldDef' <$>                    (o .:? "enabled") <*>                      (o .:? "kind" .!= "coordinate#customFieldDef")                      <*> (o .:? "name")@@ -577,7 +577,7 @@                      <*> (o .:? "type"))  instance ToJSON CustomFieldDef where-        toJSON CustomFieldDef{..}+        toJSON CustomFieldDef'{..}           = object               (catMaybes                  [("enabled" .=) <$> _cfdEnabled,@@ -591,7 +591,7 @@ -- | Response from a List Jobs request. -- -- /See:/ 'jobListResponse' smart constructor.-data JobListResponse = JobListResponse+data JobListResponse = JobListResponse'     { _jlrNextPageToken :: !(Maybe Text)     , _jlrKind          :: !Text     , _jlrItems         :: !(Maybe [Job])@@ -609,7 +609,7 @@ jobListResponse     :: JobListResponse jobListResponse =-    JobListResponse+    JobListResponse'     { _jlrNextPageToken = Nothing     , _jlrKind = "coordinate#jobList"     , _jlrItems = Nothing@@ -636,13 +636,13 @@         parseJSON           = withObject "JobListResponse"               (\ o ->-                 JobListResponse <$>+                 JobListResponse' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "coordinate#jobList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON JobListResponse where-        toJSON JobListResponse{..}+        toJSON JobListResponse'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _jlrNextPageToken,@@ -652,7 +652,7 @@ -- | Change to a job. For example assigning the job to a different worker. -- -- /See:/ 'jobChange' smart constructor.-data JobChange = JobChange+data JobChange = JobChange'     { _jcState     :: !(Maybe JobState)     , _jcKind      :: !Text     , _jcTimestamp :: !(Maybe (Textual Word64))@@ -670,7 +670,7 @@ jobChange     :: JobChange jobChange =-    JobChange+    JobChange'     { _jcState = Nothing     , _jcKind = "coordinate#jobChange"     , _jcTimestamp = Nothing@@ -694,13 +694,13 @@         parseJSON           = withObject "JobChange"               (\ o ->-                 JobChange <$>+                 JobChange' <$>                    (o .:? "state") <*>                      (o .:? "kind" .!= "coordinate#jobChange")                      <*> (o .:? "timestamp"))  instance ToJSON JobChange where-        toJSON JobChange{..}+        toJSON JobChange'{..}           = object               (catMaybes                  [("state" .=) <$> _jcState, Just ("kind" .= _jcKind),@@ -709,7 +709,7 @@ -- | Response from a List Teams request. -- -- /See:/ 'teamListResponse' smart constructor.-data TeamListResponse = TeamListResponse+data TeamListResponse = TeamListResponse'     { _tlrKind  :: !Text     , _tlrItems :: !(Maybe [Team])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -724,7 +724,7 @@ teamListResponse     :: TeamListResponse teamListResponse =-    TeamListResponse+    TeamListResponse'     { _tlrKind = "coordinate#teamList"     , _tlrItems = Nothing     }@@ -744,12 +744,12 @@         parseJSON           = withObject "TeamListResponse"               (\ o ->-                 TeamListResponse <$>+                 TeamListResponse' <$>                    (o .:? "kind" .!= "coordinate#teamList") <*>                      (o .:? "items" .!= mempty))  instance ToJSON TeamListResponse where-        toJSON TeamListResponse{..}+        toJSON TeamListResponse'{..}           = object               (catMaybes                  [Just ("kind" .= _tlrKind),@@ -758,7 +758,7 @@ -- | Collection of custom field definitions for a team. -- -- /See:/ 'customFieldDefListResponse' smart constructor.-data CustomFieldDefListResponse = CustomFieldDefListResponse+data CustomFieldDefListResponse = CustomFieldDefListResponse'     { _cfdlrKind  :: !Text     , _cfdlrItems :: !(Maybe [CustomFieldDef])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -773,7 +773,7 @@ customFieldDefListResponse     :: CustomFieldDefListResponse customFieldDefListResponse =-    CustomFieldDefListResponse+    CustomFieldDefListResponse'     { _cfdlrKind = "coordinate#customFieldDefList"     , _cfdlrItems = Nothing     }@@ -795,12 +795,12 @@         parseJSON           = withObject "CustomFieldDefListResponse"               (\ o ->-                 CustomFieldDefListResponse <$>+                 CustomFieldDefListResponse' <$>                    (o .:? "kind" .!= "coordinate#customFieldDefList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON CustomFieldDefListResponse where-        toJSON CustomFieldDefListResponse{..}+        toJSON CustomFieldDefListResponse'{..}           = object               (catMaybes                  [Just ("kind" .= _cfdlrKind),@@ -809,7 +809,7 @@ -- | A job. -- -- /See:/ 'job' smart constructor.-data Job = Job+data Job = Job'     { _jState     :: !(Maybe JobState)     , _jKind      :: !Text     , _jJobChange :: !(Maybe [JobChange])@@ -830,7 +830,7 @@ job     :: Job job =-    Job+    Job'     { _jState = Nothing     , _jKind = "coordinate#job"     , _jJobChange = Nothing@@ -862,14 +862,14 @@         parseJSON           = withObject "Job"               (\ o ->-                 Job <$>+                 Job' <$>                    (o .:? "state") <*>                      (o .:? "kind" .!= "coordinate#job")                      <*> (o .:? "jobChange" .!= mempty)                      <*> (o .:? "id"))  instance ToJSON Job where-        toJSON Job{..}+        toJSON Job'{..}           = object               (catMaybes                  [("state" .=) <$> _jState, Just ("kind" .= _jKind),@@ -879,7 +879,7 @@ -- | Collection of custom fields. -- -- /See:/ 'customFields' smart constructor.-data CustomFields = CustomFields+data CustomFields = CustomFields'     { _cfKind        :: !Text     , _cfCustomField :: !(Maybe [CustomField])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -894,7 +894,7 @@ customFields     :: CustomFields customFields =-    CustomFields+    CustomFields'     { _cfKind = "coordinate#customFields"     , _cfCustomField = Nothing     }@@ -915,12 +915,12 @@         parseJSON           = withObject "CustomFields"               (\ o ->-                 CustomFields <$>+                 CustomFields' <$>                    (o .:? "kind" .!= "coordinate#customFields") <*>                      (o .:? "customField" .!= mempty))  instance ToJSON CustomFields where-        toJSON CustomFields{..}+        toJSON CustomFields'{..}           = object               (catMaybes                  [Just ("kind" .= _cfKind),@@ -929,7 +929,7 @@ -- | A Coordinate team. -- -- /See:/ 'team' smart constructor.-data Team = Team+data Team = Team'     { _tKind :: !Text     , _tName :: !(Maybe Text)     , _tId   :: !(Maybe Text)@@ -947,7 +947,7 @@ team     :: Team team =-    Team+    Team'     { _tKind = "coordinate#team"     , _tName = Nothing     , _tId = Nothing@@ -970,13 +970,13 @@         parseJSON           = withObject "Team"               (\ o ->-                 Team <$>+                 Team' <$>                    (o .:? "kind" .!= "coordinate#team") <*>                      (o .:? "name")                      <*> (o .:? "id"))  instance ToJSON Team where-        toJSON Team{..}+        toJSON Team'{..}           = object               (catMaybes                  [Just ("kind" .= _tKind), ("name" .=) <$> _tName,@@ -985,7 +985,7 @@ -- | Recorded location of a worker. -- -- /See:/ 'locationRecord' smart constructor.-data LocationRecord = LocationRecord+data LocationRecord = LocationRecord'     { _lrKind             :: !Text     , _lrLatitude         :: !(Maybe (Textual Double))     , _lrConfidenceRadius :: !(Maybe (Textual Double))@@ -1009,7 +1009,7 @@ locationRecord     :: LocationRecord locationRecord =-    LocationRecord+    LocationRecord'     { _lrKind = "coordinate#locationRecord"     , _lrLatitude = Nothing     , _lrConfidenceRadius = Nothing@@ -1052,7 +1052,7 @@         parseJSON           = withObject "LocationRecord"               (\ o ->-                 LocationRecord <$>+                 LocationRecord' <$>                    (o .:? "kind" .!= "coordinate#locationRecord") <*>                      (o .:? "latitude")                      <*> (o .:? "confidenceRadius")@@ -1060,7 +1060,7 @@                      <*> (o .:? "collectionTime"))  instance ToJSON LocationRecord where-        toJSON LocationRecord{..}+        toJSON LocationRecord'{..}           = object               (catMaybes                  [Just ("kind" .= _lrKind),@@ -1072,7 +1072,7 @@ -- | A worker in a Coordinate team. -- -- /See:/ 'worker' smart constructor.-data Worker = Worker+data Worker = Worker'     { _wKind :: !Text     , _wId   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1087,7 +1087,7 @@ worker     :: Worker worker =-    Worker+    Worker'     { _wKind = "coordinate#worker"     , _wId = Nothing     }@@ -1105,12 +1105,12 @@         parseJSON           = withObject "Worker"               (\ o ->-                 Worker <$>+                 Worker' <$>                    (o .:? "kind" .!= "coordinate#worker") <*>                      (o .:? "id"))  instance ToJSON Worker where-        toJSON Worker{..}+        toJSON Worker'{..}           = object               (catMaybes                  [Just ("kind" .= _wKind), ("id" .=) <$> _wId])@@ -1118,7 +1118,7 @@ -- | Custom field. -- -- /See:/ 'customField' smart constructor.-data CustomField = CustomField+data CustomField = CustomField'     { _cCustomFieldId :: !(Maybe (Textual Int64))     , _cKind          :: !Text     , _cValue         :: !(Maybe Text)@@ -1136,7 +1136,7 @@ customField     :: CustomField customField =-    CustomField+    CustomField'     { _cCustomFieldId = Nothing     , _cKind = "coordinate#customField"     , _cValue = Nothing@@ -1161,13 +1161,13 @@         parseJSON           = withObject "CustomField"               (\ o ->-                 CustomField <$>+                 CustomField' <$>                    (o .:? "customFieldId") <*>                      (o .:? "kind" .!= "coordinate#customField")                      <*> (o .:? "value"))  instance ToJSON CustomField where-        toJSON CustomField{..}+        toJSON CustomField'{..}           = object               (catMaybes                  [("customFieldId" .=) <$> _cCustomFieldId,@@ -1176,7 +1176,7 @@ -- | Enum Item definition. -- -- /See:/ 'enumItemDef' smart constructor.-data EnumItemDef = EnumItemDef+data EnumItemDef = EnumItemDef'     { _eidKind   :: !Text     , _eidValue  :: !(Maybe Text)     , _eidActive :: !(Maybe Bool)@@ -1194,7 +1194,7 @@ enumItemDef     :: EnumItemDef enumItemDef =-    EnumItemDef+    EnumItemDef'     { _eidKind = "coordinate#enumItemDef"     , _eidValue = Nothing     , _eidActive = Nothing@@ -1219,13 +1219,13 @@         parseJSON           = withObject "EnumItemDef"               (\ o ->-                 EnumItemDef <$>+                 EnumItemDef' <$>                    (o .:? "kind" .!= "coordinate#enumItemDef") <*>                      (o .:? "value")                      <*> (o .:? "active"))  instance ToJSON EnumItemDef where-        toJSON EnumItemDef{..}+        toJSON EnumItemDef'{..}           = object               (catMaybes                  [Just ("kind" .= _eidKind),

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.MapsCoordinate.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@@ -35,21 +35,21 @@     | Obsolete       -- ^ @OBSOLETE@       -- Obsolete-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable JobsPatchProgress -instance FromText JobsPatchProgress where-    fromText = \case-        "COMPLETED" -> Just Completed-        "IN_PROGRESS" -> Just InProgress-        "NOT_ACCEPTED" -> Just NotAccepted-        "NOT_STARTED" -> Just NotStarted-        "OBSOLETE" -> Just Obsolete-        _ -> Nothing+instance FromHttpApiData JobsPatchProgress where+    parseQueryParam = \case+        "COMPLETED" -> Right Completed+        "IN_PROGRESS" -> Right InProgress+        "NOT_ACCEPTED" -> Right NotAccepted+        "NOT_STARTED" -> Right NotStarted+        "OBSOLETE" -> Right Obsolete+        x -> Left ("Unable to parse JobsPatchProgress from: " <> x) -instance ToText JobsPatchProgress where-    toText = \case+instance ToHttpApiData JobsPatchProgress where+    toQueryParam = \case         Completed -> "COMPLETED"         InProgress -> "IN_PROGRESS"         NotAccepted -> "NOT_ACCEPTED"@@ -79,21 +79,21 @@     | JUPObsolete       -- ^ @OBSOLETE@       -- Obsolete-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable JobsUpdateProgress -instance FromText JobsUpdateProgress where-    fromText = \case-        "COMPLETED" -> Just JUPCompleted-        "IN_PROGRESS" -> Just JUPInProgress-        "NOT_ACCEPTED" -> Just JUPNotAccepted-        "NOT_STARTED" -> Just JUPNotStarted-        "OBSOLETE" -> Just JUPObsolete-        _ -> Nothing+instance FromHttpApiData JobsUpdateProgress where+    parseQueryParam = \case+        "COMPLETED" -> Right JUPCompleted+        "IN_PROGRESS" -> Right JUPInProgress+        "NOT_ACCEPTED" -> Right JUPNotAccepted+        "NOT_STARTED" -> Right JUPNotStarted+        "OBSOLETE" -> Right JUPObsolete+        x -> Left ("Unable to parse JobsUpdateProgress from: " <> x) -instance ToText JobsUpdateProgress where-    toText = \case+instance ToHttpApiData JobsUpdateProgress where+    toQueryParam = \case         JUPCompleted -> "COMPLETED"         JUPInProgress -> "IN_PROGRESS"         JUPNotAccepted -> "NOT_ACCEPTED"

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.CustomFieldDef.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -53,7 +53,7 @@ -- | Retrieves a list of custom field definitions for a team. -- -- /See:/ 'customFieldDefList' smart constructor.-newtype CustomFieldDefList = CustomFieldDefList+newtype CustomFieldDefList = CustomFieldDefList'     { _cfdlTeamId :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@     :: Text -- ^ 'cfdlTeamId'     -> CustomFieldDefList customFieldDefList pCfdlTeamId_ =-    CustomFieldDefList+    CustomFieldDefList'     { _cfdlTeamId = pCfdlTeamId_     } @@ -78,7 +78,10 @@ instance GoogleRequest CustomFieldDefList where         type Rs CustomFieldDefList =              CustomFieldDefListResponse-        requestClient CustomFieldDefList{..}+        type Scopes CustomFieldDefList =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient CustomFieldDefList'{..}           = go _cfdlTeamId (Just AltJSON) mapsCoordinateService           where go                   = buildClient

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Jobs.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | Retrieves a job, including all the changes made to the job. -- -- /See:/ 'jobsGet' smart constructor.-data JobsGet = JobsGet+data JobsGet = JobsGet'     { _jgJobId  :: !(Textual Word64)     , _jgTeamId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@     -> Text -- ^ 'jgTeamId'     -> JobsGet jobsGet pJgJobId_ pJgTeamId_ =-    JobsGet+    JobsGet'     { _jgJobId = _Coerce # pJgJobId_     , _jgTeamId = pJgTeamId_     }@@ -87,7 +87,10 @@  instance GoogleRequest JobsGet where         type Rs JobsGet = Job-        requestClient JobsGet{..}+        type Scopes JobsGet =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient JobsGet'{..}           = go _jgTeamId _jgJobId (Just AltJSON)               mapsCoordinateService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Jobs.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@ -- | Inserts a new job. Only the state field of the job should be set. -- -- /See:/ 'jobsInsert' smart constructor.-data JobsInsert = JobsInsert+data JobsInsert = JobsInsert'     { _jiNote                :: !(Maybe Text)     , _jiTeamId              :: !Text     , _jiCustomerPhoneNumber :: !(Maybe Text)@@ -120,7 +120,7 @@     -> Text -- ^ 'jiTitle'     -> JobsInsert jobsInsert pJiTeamId_ pJiAddress_ pJiPayload_ pJiLat_ pJiLng_ pJiTitle_ =-    JobsInsert+    JobsInsert'     { _jiNote = Nothing     , _jiTeamId = pJiTeamId_     , _jiCustomerPhoneNumber = Nothing@@ -198,7 +198,9 @@  instance GoogleRequest JobsInsert where         type Rs JobsInsert = Job-        requestClient JobsInsert{..}+        type Scopes JobsInsert =+             '["https://www.googleapis.com/auth/coordinate"]+        requestClient JobsInsert'{..}           = go _jiTeamId (Just _jiAddress) (Just _jiLat)               (Just _jiLng)               (Just _jiTitle)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Jobs.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@@ -62,7 +62,7 @@ -- | Retrieves jobs created or modified since the given timestamp. -- -- /See:/ 'jobsList' smart constructor.-data JobsList = JobsList+data JobsList = JobsList'     { _jlTeamId                 :: !Text     , _jlMinModifiedTimestampMs :: !(Maybe (Textual Word64))     , _jlOmitJobChanges         :: !(Maybe Bool)@@ -87,7 +87,7 @@     :: Text -- ^ 'jlTeamId'     -> JobsList jobsList pJlTeamId_ =-    JobsList+    JobsList'     { _jlTeamId = pJlTeamId_     , _jlMinModifiedTimestampMs = Nothing     , _jlOmitJobChanges = Nothing@@ -125,7 +125,10 @@  instance GoogleRequest JobsList where         type Rs JobsList = JobListResponse-        requestClient JobsList{..}+        type Scopes JobsList =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient JobsList'{..}           = go _jlTeamId _jlMinModifiedTimestampMs               _jlOmitJobChanges               _jlPageToken

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Jobs.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@@ -78,7 +78,7 @@ -- This method supports patch semantics. -- -- /See:/ 'jobsPatch' smart constructor.-data JobsPatch = JobsPatch+data JobsPatch = JobsPatch'     { _jpJobId               :: !(Textual Word64)     , _jpProgress            :: !(Maybe JobsPatchProgress)     , _jpNote                :: !(Maybe Text)@@ -129,7 +129,7 @@     -> Job -- ^ 'jpPayload'     -> JobsPatch jobsPatch pJpJobId_ pJpTeamId_ pJpPayload_ =-    JobsPatch+    JobsPatch'     { _jpJobId = _Coerce # pJpJobId_     , _jpProgress = Nothing     , _jpNote = Nothing@@ -221,7 +221,9 @@  instance GoogleRequest JobsPatch where         type Rs JobsPatch = Job-        requestClient JobsPatch{..}+        type Scopes JobsPatch =+             '["https://www.googleapis.com/auth/coordinate"]+        requestClient JobsPatch'{..}           = go _jpTeamId _jpJobId _jpProgress _jpNote               _jpCustomerPhoneNumber               _jpCustomerName

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Jobs.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@@ -76,7 +76,7 @@ -- | Updates a job. Fields that are set in the job state will be updated. -- -- /See:/ 'jobsUpdate' smart constructor.-data JobsUpdate = JobsUpdate+data JobsUpdate = JobsUpdate'     { _juJobId               :: !(Textual Word64)     , _juProgress            :: !(Maybe JobsUpdateProgress)     , _juNote                :: !(Maybe Text)@@ -127,7 +127,7 @@     -> Job -- ^ 'juPayload'     -> JobsUpdate jobsUpdate pJuJobId_ pJuTeamId_ pJuPayload_ =-    JobsUpdate+    JobsUpdate'     { _juJobId = _Coerce # pJuJobId_     , _juProgress = Nothing     , _juNote = Nothing@@ -219,7 +219,9 @@  instance GoogleRequest JobsUpdate where         type Rs JobsUpdate = Job-        requestClient JobsUpdate{..}+        type Scopes JobsUpdate =+             '["https://www.googleapis.com/auth/coordinate"]+        requestClient JobsUpdate'{..}           = go _juTeamId _juJobId _juProgress _juNote               _juCustomerPhoneNumber               _juCustomerName

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Location.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@@ -62,7 +62,7 @@ -- | Retrieves a list of locations for a worker. -- -- /See:/ 'locationList' smart constructor.-data LocationList = LocationList+data LocationList = LocationList'     { _llWorkerEmail      :: !Text     , _llStartTimestampMs :: !(Textual Word64)     , _llTeamId           :: !Text@@ -89,7 +89,7 @@     -> Text -- ^ 'llTeamId'     -> LocationList locationList pLlWorkerEmail_ pLlStartTimestampMs_ pLlTeamId_ =-    LocationList+    LocationList'     { _llWorkerEmail = pLlWorkerEmail_     , _llStartTimestampMs = _Coerce # pLlStartTimestampMs_     , _llTeamId = pLlTeamId_@@ -127,7 +127,10 @@  instance GoogleRequest LocationList where         type Rs LocationList = LocationListResponse-        requestClient LocationList{..}+        type Scopes LocationList =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient LocationList'{..}           = go _llTeamId _llWorkerEmail               (Just _llStartTimestampMs)               _llPageToken

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Schedule.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@@ -55,7 +55,7 @@ -- | Retrieves the schedule for a job. -- -- /See:/ 'scheduleGet' smart constructor.-data ScheduleGet = ScheduleGet+data ScheduleGet = ScheduleGet'     { _sgJobId  :: !(Textual Word64)     , _sgTeamId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'sgTeamId'     -> ScheduleGet scheduleGet pSgJobId_ pSgTeamId_ =-    ScheduleGet+    ScheduleGet'     { _sgJobId = _Coerce # pSgJobId_     , _sgTeamId = pSgTeamId_     }@@ -88,7 +88,10 @@  instance GoogleRequest ScheduleGet where         type Rs ScheduleGet = Schedule-        requestClient ScheduleGet{..}+        type Scopes ScheduleGet =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient ScheduleGet'{..}           = go _sgTeamId _sgJobId (Just AltJSON)               mapsCoordinateService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Schedule.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 @@ -- supports patch semantics. -- -- /See:/ 'schedulePatch' smart constructor.-data SchedulePatch = SchedulePatch+data SchedulePatch = SchedulePatch'     { _spJobId     :: !(Textual Word64)     , _spAllDay    :: !(Maybe Bool)     , _spStartTime :: !(Maybe (Textual Word64))@@ -100,7 +100,7 @@     -> Schedule -- ^ 'spPayload'     -> SchedulePatch schedulePatch pSpJobId_ pSpTeamId_ pSpPayload_ =-    SchedulePatch+    SchedulePatch'     { _spJobId = _Coerce # pSpJobId_     , _spAllDay = Nothing     , _spStartTime = Nothing@@ -149,7 +149,9 @@  instance GoogleRequest SchedulePatch where         type Rs SchedulePatch = Schedule-        requestClient SchedulePatch{..}+        type Scopes SchedulePatch =+             '["https://www.googleapis.com/auth/coordinate"]+        requestClient SchedulePatch'{..}           = go _spTeamId _spJobId _spAllDay _spStartTime               _spEndTime               _spDuration

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Schedule.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@@ -65,7 +65,7 @@ -- | Replaces the schedule of a job with the provided schedule. -- -- /See:/ 'scheduleUpdate' smart constructor.-data ScheduleUpdate = ScheduleUpdate+data ScheduleUpdate = ScheduleUpdate'     { _suJobId     :: !(Textual Word64)     , _suAllDay    :: !(Maybe Bool)     , _suStartTime :: !(Maybe (Textual Word64))@@ -98,7 +98,7 @@     -> Schedule -- ^ 'suPayload'     -> ScheduleUpdate scheduleUpdate pSuJobId_ pSuTeamId_ pSuPayload_ =-    ScheduleUpdate+    ScheduleUpdate'     { _suJobId = _Coerce # pSuJobId_     , _suAllDay = Nothing     , _suStartTime = Nothing@@ -147,7 +147,9 @@  instance GoogleRequest ScheduleUpdate where         type Rs ScheduleUpdate = Schedule-        requestClient ScheduleUpdate{..}+        type Scopes ScheduleUpdate =+             '["https://www.googleapis.com/auth/coordinate"]+        requestClient ScheduleUpdate'{..}           = go _suTeamId _suJobId _suAllDay _suStartTime               _suEndTime               _suDuration

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Team.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Retrieves a list of teams for a user. -- -- /See:/ 'teamList' smart constructor.-data TeamList = TeamList+data TeamList = TeamList'     { _tlDispatcher :: !(Maybe Bool)     , _tlAdmin      :: !(Maybe Bool)     , _tlWorker     :: !(Maybe Bool)@@ -74,7 +74,7 @@ teamList     :: TeamList teamList =-    TeamList+    TeamList'     { _tlDispatcher = Nothing     , _tlAdmin = Nothing     , _tlWorker = Nothing@@ -95,7 +95,10 @@  instance GoogleRequest TeamList where         type Rs TeamList = TeamListResponse-        requestClient TeamList{..}+        type Scopes TeamList =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient TeamList'{..}           = go _tlDispatcher _tlAdmin _tlWorker (Just AltJSON)               mapsCoordinateService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Coordinate.Worker.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -53,7 +53,7 @@ -- | Retrieves a list of workers in a team. -- -- /See:/ 'workerList' smart constructor.-newtype WorkerList = WorkerList+newtype WorkerList = WorkerList'     { _wlTeamId :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@     :: Text -- ^ 'wlTeamId'     -> WorkerList workerList pWlTeamId_ =-    WorkerList+    WorkerList'     { _wlTeamId = pWlTeamId_     } @@ -76,7 +76,10 @@  instance GoogleRequest WorkerList where         type Rs WorkerList = WorkerListResponse-        requestClient WorkerList{..}+        type Scopes WorkerList =+             '["https://www.googleapis.com/auth/coordinate",+               "https://www.googleapis.com/auth/coordinate.readonly"]+        requestClient WorkerList'{..}           = go _wlTeamId (Just AltJSON) mapsCoordinateService           where go                   = buildClient (Proxy :: Proxy WorkerListResource)

@@ -1,5 +1,5 @@ name:                  gogol-maps-coordinate-version:               0.0.1+version:               0.1.0 synopsis:              Google Maps Coordinate 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@@ -53,5 +53,5 @@         , Network.Google.MapsCoordinate.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5