diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 diff --git a/gen/Network/Google/MapsCoordinate.hs b/gen/Network/Google/MapsCoordinate.hs --- a/gen/Network/Google/MapsCoordinate.hs +++ b/gen/Network/Google/MapsCoordinate.hs @@ -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 -- Stability : auto-generated @@ -20,6 +20,10 @@ ( -- * Service Configuration mapsCoordinateService + + -- * OAuth Scopes + , coordinateScope + , coordinateReadOnlyScope -- * API Declaration , MapsCoordinateAPI diff --git a/gen/Network/Google/MapsCoordinate/Types.hs b/gen/Network/Google/MapsCoordinate/Types.hs --- a/gen/Network/Google/MapsCoordinate/Types.hs +++ b/gen/Network/Google/MapsCoordinate/Types.hs @@ -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 -- 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; diff --git a/gen/Network/Google/MapsCoordinate/Types/Product.hs b/gen/Network/Google/MapsCoordinate/Types/Product.hs --- a/gen/Network/Google/MapsCoordinate/Types/Product.hs +++ b/gen/Network/Google/MapsCoordinate/Types/Product.hs @@ -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 -- 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), diff --git a/gen/Network/Google/MapsCoordinate/Types/Sum.hs b/gen/Network/Google/MapsCoordinate/Types/Sum.hs --- a/gen/Network/Google/MapsCoordinate/Types/Sum.hs +++ b/gen/Network/Google/MapsCoordinate/Types/Sum.hs @@ -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 -- 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" diff --git a/gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs b/gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs --- a/gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs +++ b/gen/Network/Google/Resource/Coordinate/CustomFieldDef/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Jobs/Get.hs b/gen/Network/Google/Resource/Coordinate/Jobs/Get.hs --- a/gen/Network/Google/Resource/Coordinate/Jobs/Get.hs +++ b/gen/Network/Google/Resource/Coordinate/Jobs/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs b/gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs --- a/gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs +++ b/gen/Network/Google/Resource/Coordinate/Jobs/Insert.hs @@ -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 -- 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) diff --git a/gen/Network/Google/Resource/Coordinate/Jobs/List.hs b/gen/Network/Google/Resource/Coordinate/Jobs/List.hs --- a/gen/Network/Google/Resource/Coordinate/Jobs/List.hs +++ b/gen/Network/Google/Resource/Coordinate/Jobs/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs b/gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs --- a/gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs +++ b/gen/Network/Google/Resource/Coordinate/Jobs/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Jobs/Update.hs b/gen/Network/Google/Resource/Coordinate/Jobs/Update.hs --- a/gen/Network/Google/Resource/Coordinate/Jobs/Update.hs +++ b/gen/Network/Google/Resource/Coordinate/Jobs/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Location/List.hs b/gen/Network/Google/Resource/Coordinate/Location/List.hs --- a/gen/Network/Google/Resource/Coordinate/Location/List.hs +++ b/gen/Network/Google/Resource/Coordinate/Location/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Schedule/Get.hs b/gen/Network/Google/Resource/Coordinate/Schedule/Get.hs --- a/gen/Network/Google/Resource/Coordinate/Schedule/Get.hs +++ b/gen/Network/Google/Resource/Coordinate/Schedule/Get.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs b/gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs --- a/gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs +++ b/gen/Network/Google/Resource/Coordinate/Schedule/Patch.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Schedule/Update.hs b/gen/Network/Google/Resource/Coordinate/Schedule/Update.hs --- a/gen/Network/Google/Resource/Coordinate/Schedule/Update.hs +++ b/gen/Network/Google/Resource/Coordinate/Schedule/Update.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Team/List.hs b/gen/Network/Google/Resource/Coordinate/Team/List.hs --- a/gen/Network/Google/Resource/Coordinate/Team/List.hs +++ b/gen/Network/Google/Resource/Coordinate/Team/List.hs @@ -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 -- 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 diff --git a/gen/Network/Google/Resource/Coordinate/Worker/List.hs b/gen/Network/Google/Resource/Coordinate/Worker/List.hs --- a/gen/Network/Google/Resource/Coordinate/Worker/List.hs +++ b/gen/Network/Google/Resource/Coordinate/Worker/List.hs @@ -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 -- 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) diff --git a/gogol-maps-coordinate.cabal b/gogol-maps-coordinate.cabal --- a/gogol-maps-coordinate.cabal +++ b/gogol-maps-coordinate.cabal @@ -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 -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