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/Resource/ResourceViews/ZoneOperations/Get.hs b/gen/Network/Google/Resource/ResourceViews/ZoneOperations/Get.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneOperations/Get.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneOperations/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneOperations.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 @@ -57,7 +57,7 @@ -- | Retrieves the specified zone-specific operation resource. -- -- /See:/ 'zoneOperationsGet' smart constructor. -data ZoneOperationsGet = ZoneOperationsGet +data ZoneOperationsGet = ZoneOperationsGet' { _zogProject :: !Text , _zogOperation :: !Text , _zogZone :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'zogZone' -> ZoneOperationsGet zoneOperationsGet pZogProject_ pZogOperation_ pZogZone_ = - ZoneOperationsGet + ZoneOperationsGet' { _zogProject = pZogProject_ , _zogOperation = pZogOperation_ , _zogZone = pZogZone_ @@ -100,7 +100,14 @@ instance GoogleRequest ZoneOperationsGet where type Rs ZoneOperationsGet = Operation - requestClient ZoneOperationsGet{..} + type Scopes ZoneOperationsGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly", + "https://www.googleapis.com/auth/ndev.cloudman", + "https://www.googleapis.com/auth/ndev.cloudman.readonly"] + requestClient ZoneOperationsGet'{..} = go _zogProject _zogZone _zogOperation (Just AltJSON) resourceViewsService diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneOperations/List.hs b/gen/Network/Google/Resource/ResourceViews/ZoneOperations/List.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneOperations/List.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneOperations/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneOperations.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 @@ -63,7 +63,7 @@ -- zone. -- -- /See:/ 'zoneOperationsList' smart constructor. -data ZoneOperationsList = ZoneOperationsList +data ZoneOperationsList = ZoneOperationsList' { _zolProject :: !Text , _zolZone :: !Text , _zolFilter :: !(Maybe Text) @@ -89,7 +89,7 @@ -> Text -- ^ 'zolZone' -> ZoneOperationsList zoneOperationsList pZolProject_ pZolZone_ = - ZoneOperationsList + ZoneOperationsList' { _zolProject = pZolProject_ , _zolZone = pZolZone_ , _zolFilter = Nothing @@ -127,7 +127,14 @@ instance GoogleRequest ZoneOperationsList where type Rs ZoneOperationsList = OperationList - requestClient ZoneOperationsList{..} + type Scopes ZoneOperationsList = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly", + "https://www.googleapis.com/auth/ndev.cloudman", + "https://www.googleapis.com/auth/ndev.cloudman.readonly"] + requestClient ZoneOperationsList'{..} = go _zolProject _zolZone _zolFilter _zolPageToken (Just _zolMaxResults) (Just AltJSON) diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/AddResources.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/AddResources.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/AddResources.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/AddResources.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.AddResources --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | Add resources to the view. -- -- /See:/ 'zoneViewsAddResources' smart constructor. -data ZoneViewsAddResources = ZoneViewsAddResources +data ZoneViewsAddResources = ZoneViewsAddResources' { _zvarResourceView :: !Text , _zvarProject :: !Text , _zvarZone :: !Text @@ -86,7 +86,7 @@ -> ZoneViewsAddResourcesRequest -- ^ 'zvarPayload' -> ZoneViewsAddResources zoneViewsAddResources pZvarResourceView_ pZvarProject_ pZvarZone_ pZvarPayload_ = - ZoneViewsAddResources + ZoneViewsAddResources' { _zvarResourceView = pZvarResourceView_ , _zvarProject = pZvarProject_ , _zvarZone = pZvarZone_ @@ -115,7 +115,11 @@ instance GoogleRequest ZoneViewsAddResources where type Rs ZoneViewsAddResources = Operation - requestClient ZoneViewsAddResources{..} + type Scopes ZoneViewsAddResources = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/ndev.cloudman"] + requestClient ZoneViewsAddResources'{..} = go _zvarProject _zvarZone _zvarResourceView (Just AltJSON) _zvarPayload diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/Delete.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/Delete.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/Delete.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | Delete a resource view. -- -- /See:/ 'zoneViewsDelete' smart constructor. -data ZoneViewsDelete = ZoneViewsDelete +data ZoneViewsDelete = ZoneViewsDelete' { _zvdResourceView :: !Text , _zvdProject :: !Text , _zvdZone :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'zvdZone' -> ZoneViewsDelete zoneViewsDelete pZvdResourceView_ pZvdProject_ pZvdZone_ = - ZoneViewsDelete + ZoneViewsDelete' { _zvdResourceView = pZvdResourceView_ , _zvdProject = pZvdProject_ , _zvdZone = pZvdZone_ @@ -101,7 +101,11 @@ instance GoogleRequest ZoneViewsDelete where type Rs ZoneViewsDelete = Operation - requestClient ZoneViewsDelete{..} + type Scopes ZoneViewsDelete = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/ndev.cloudman"] + requestClient ZoneViewsDelete'{..} = go _zvdProject _zvdZone _zvdResourceView (Just AltJSON) resourceViewsService diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/Get.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/Get.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/Get.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.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 @@ -57,7 +57,7 @@ -- | Get the information of a zonal resource view. -- -- /See:/ 'zoneViewsGet' smart constructor. -data ZoneViewsGet = ZoneViewsGet +data ZoneViewsGet = ZoneViewsGet' { _zvgResourceView :: !Text , _zvgProject :: !Text , _zvgZone :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'zvgZone' -> ZoneViewsGet zoneViewsGet pZvgResourceView_ pZvgProject_ pZvgZone_ = - ZoneViewsGet + ZoneViewsGet' { _zvgResourceView = pZvgResourceView_ , _zvgProject = pZvgProject_ , _zvgZone = pZvgZone_ @@ -101,7 +101,14 @@ instance GoogleRequest ZoneViewsGet where type Rs ZoneViewsGet = ResourceView - requestClient ZoneViewsGet{..} + type Scopes ZoneViewsGet = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly", + "https://www.googleapis.com/auth/ndev.cloudman", + "https://www.googleapis.com/auth/ndev.cloudman.readonly"] + requestClient ZoneViewsGet'{..} = go _zvgProject _zvgZone _zvgResourceView (Just AltJSON) resourceViewsService diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/GetService.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/GetService.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/GetService.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/GetService.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.GetService --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | Get the service information of a resource view or a resource. -- -- /See:/ 'zoneViewsGetService' smart constructor. -data ZoneViewsGetService = ZoneViewsGetService +data ZoneViewsGetService = ZoneViewsGetService' { _zvgsResourceView :: !Text , _zvgsResourceName :: !(Maybe Text) , _zvgsProject :: !Text @@ -85,7 +85,7 @@ -> Text -- ^ 'zvgsZone' -> ZoneViewsGetService zoneViewsGetService pZvgsResourceView_ pZvgsProject_ pZvgsZone_ = - ZoneViewsGetService + ZoneViewsGetService' { _zvgsResourceView = pZvgsResourceView_ , _zvgsResourceName = Nothing , _zvgsProject = pZvgsProject_ @@ -117,7 +117,11 @@ instance GoogleRequest ZoneViewsGetService where type Rs ZoneViewsGetService = ZoneViewsGetServiceResponse - requestClient ZoneViewsGetService{..} + type Scopes ZoneViewsGetService = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/ndev.cloudman"] + requestClient ZoneViewsGetService'{..} = go _zvgsProject _zvgsZone _zvgsResourceView _zvgsResourceName (Just AltJSON) diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/Insert.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/Insert.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/Insert.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/Insert.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.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 @@ -58,7 +58,7 @@ -- | Create a resource view. -- -- /See:/ 'zoneViewsInsert' smart constructor. -data ZoneViewsInsert = ZoneViewsInsert +data ZoneViewsInsert = ZoneViewsInsert' { _zviProject :: !Text , _zviZone :: !Text , _zviPayload :: !ResourceView @@ -79,7 +79,7 @@ -> ResourceView -- ^ 'zviPayload' -> ZoneViewsInsert zoneViewsInsert pZviProject_ pZviZone_ pZviPayload_ = - ZoneViewsInsert + ZoneViewsInsert' { _zviProject = pZviProject_ , _zviZone = pZviZone_ , _zviPayload = pZviPayload_ @@ -101,7 +101,11 @@ instance GoogleRequest ZoneViewsInsert where type Rs ZoneViewsInsert = Operation - requestClient ZoneViewsInsert{..} + type Scopes ZoneViewsInsert = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/ndev.cloudman"] + requestClient ZoneViewsInsert'{..} = go _zviProject _zviZone (Just AltJSON) _zviPayload resourceViewsService where go diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/List.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/List.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/List.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.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 @@ -59,7 +59,7 @@ -- | List resource views. -- -- /See:/ 'zoneViewsList'' smart constructor. -data ZoneViewsList' = ZoneViewsList' +data ZoneViewsList' = ZoneViewsList'' { _zvlProject :: !Text , _zvlZone :: !Text , _zvlPageToken :: !(Maybe Text) @@ -82,7 +82,7 @@ -> Text -- ^ 'zvlZone' -> ZoneViewsList' zoneViewsList' pZvlProject_ pZvlZone_ = - ZoneViewsList' + ZoneViewsList'' { _zvlProject = pZvlProject_ , _zvlZone = pZvlZone_ , _zvlPageToken = Nothing @@ -115,7 +115,14 @@ instance GoogleRequest ZoneViewsList' where type Rs ZoneViewsList' = ZoneViewsList - requestClient ZoneViewsList'{..} + type Scopes ZoneViewsList' = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly", + "https://www.googleapis.com/auth/ndev.cloudman", + "https://www.googleapis.com/auth/ndev.cloudman.readonly"] + requestClient ZoneViewsList''{..} = go _zvlProject _zvlZone _zvlPageToken (Just _zvlMaxResults) (Just AltJSON) diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/ListResources.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/ListResources.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/ListResources.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/ListResources.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.ListResources --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,7 +71,7 @@ -- | List the resources of the resource view. -- -- /See:/ 'zoneViewsListResources' smart constructor. -data ZoneViewsListResources = ZoneViewsListResources +data ZoneViewsListResources = ZoneViewsListResources' { _zvlrResourceView :: !Text , _zvlrListState :: !ZoneViewsListResourcesListState , _zvlrProject :: !Text @@ -107,7 +107,7 @@ -> Text -- ^ 'zvlrZone' -> ZoneViewsListResources zoneViewsListResources pZvlrResourceView_ pZvlrProject_ pZvlrZone_ = - ZoneViewsListResources + ZoneViewsListResources' { _zvlrResourceView = pZvlrResourceView_ , _zvlrListState = All , _zvlrProject = pZvlrProject_ @@ -172,7 +172,14 @@ instance GoogleRequest ZoneViewsListResources where type Rs ZoneViewsListResources = ZoneViewsListResourcesResponse - requestClient ZoneViewsListResources{..} + type Scopes ZoneViewsListResources = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/cloud-platform.read-only", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/compute.readonly", + "https://www.googleapis.com/auth/ndev.cloudman", + "https://www.googleapis.com/auth/ndev.cloudman.readonly"] + requestClient ZoneViewsListResources'{..} = go _zvlrProject _zvlrZone _zvlrResourceView (Just _zvlrListState) _zvlrFormat diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/RemoveResources.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/RemoveResources.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/RemoveResources.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/RemoveResources.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.RemoveResources --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | Remove resources from the view. -- -- /See:/ 'zoneViewsRemoveResources' smart constructor. -data ZoneViewsRemoveResources = ZoneViewsRemoveResources +data ZoneViewsRemoveResources = ZoneViewsRemoveResources' { _zvrrResourceView :: !Text , _zvrrProject :: !Text , _zvrrZone :: !Text @@ -86,7 +86,7 @@ -> ZoneViewsRemoveResourcesRequest -- ^ 'zvrrPayload' -> ZoneViewsRemoveResources zoneViewsRemoveResources pZvrrResourceView_ pZvrrProject_ pZvrrZone_ pZvrrPayload_ = - ZoneViewsRemoveResources + ZoneViewsRemoveResources' { _zvrrResourceView = pZvrrResourceView_ , _zvrrProject = pZvrrProject_ , _zvrrZone = pZvrrZone_ @@ -115,7 +115,11 @@ instance GoogleRequest ZoneViewsRemoveResources where type Rs ZoneViewsRemoveResources = Operation - requestClient ZoneViewsRemoveResources{..} + type Scopes ZoneViewsRemoveResources = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/ndev.cloudman"] + requestClient ZoneViewsRemoveResources'{..} = go _zvrrProject _zvrrZone _zvrrResourceView (Just AltJSON) _zvrrPayload diff --git a/gen/Network/Google/Resource/ResourceViews/ZoneViews/SetService.hs b/gen/Network/Google/Resource/ResourceViews/ZoneViews/SetService.hs --- a/gen/Network/Google/Resource/ResourceViews/ZoneViews/SetService.hs +++ b/gen/Network/Google/Resource/ResourceViews/ZoneViews/SetService.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.ResourceViews.ZoneViews.SetService --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | Update the service information of a resource view or a resource. -- -- /See:/ 'zoneViewsSetService' smart constructor. -data ZoneViewsSetService = ZoneViewsSetService +data ZoneViewsSetService = ZoneViewsSetService' { _zvssResourceView :: !Text , _zvssProject :: !Text , _zvssZone :: !Text @@ -86,7 +86,7 @@ -> ZoneViewsSetServiceRequest -- ^ 'zvssPayload' -> ZoneViewsSetService zoneViewsSetService pZvssResourceView_ pZvssProject_ pZvssZone_ pZvssPayload_ = - ZoneViewsSetService + ZoneViewsSetService' { _zvssResourceView = pZvssResourceView_ , _zvssProject = pZvssProject_ , _zvssZone = pZvssZone_ @@ -115,7 +115,11 @@ instance GoogleRequest ZoneViewsSetService where type Rs ZoneViewsSetService = Operation - requestClient ZoneViewsSetService{..} + type Scopes ZoneViewsSetService = + '["https://www.googleapis.com/auth/cloud-platform", + "https://www.googleapis.com/auth/compute", + "https://www.googleapis.com/auth/ndev.cloudman"] + requestClient ZoneViewsSetService'{..} = go _zvssProject _zvssZone _zvssResourceView (Just AltJSON) _zvssPayload diff --git a/gen/Network/Google/ResourceViews.hs b/gen/Network/Google/ResourceViews.hs --- a/gen/Network/Google/ResourceViews.hs +++ b/gen/Network/Google/ResourceViews.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.ResourceViews --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,14 @@ ( -- * Service Configuration resourceViewsService + + -- * OAuth Scopes + , computeScope + , cloudPlatformReadOnlyScope + , cloudPlatformScope + , ndevCloudmanScope + , ndevCloudmanReadOnlyScope + , computeReadOnlyScope -- * API Declaration , ResourceViewsAPI diff --git a/gen/Network/Google/ResourceViews/Types.hs b/gen/Network/Google/ResourceViews/Types.hs --- a/gen/Network/Google/ResourceViews/Types.hs +++ b/gen/Network/Google/ResourceViews/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.ResourceViews.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 @@ -23,8 +24,8 @@ , cloudPlatformReadOnlyScope , cloudPlatformScope , ndevCloudmanScope - , ndevCloudmanReadonlyScope - , computeReadonlyScope + , ndevCloudmanReadOnlyScope + , computeReadOnlyScope -- * OperationWarningsItemDataItem , OperationWarningsItemDataItem @@ -175,33 +176,33 @@ import Network.Google.ResourceViews.Types.Sum -- | Default request referring to version 'v1beta2' of the Google Compute Engine Instance Groups API. This contains the host and root path used as a starting point for constructing service requests. -resourceViewsService :: Service +resourceViewsService :: ServiceConfig resourceViewsService = defaultService (ServiceId "resourceviews:v1beta2") "www.googleapis.com" -- | View and manage your Google Compute Engine resources -computeScope :: OAuthScope -computeScope = "https://www.googleapis.com/auth/compute"; +computeScope :: Proxy '["https://www.googleapis.com/auth/compute"] +computeScope = Proxy; -- | View your data across Google Cloud Platform services -cloudPlatformReadOnlyScope :: OAuthScope -cloudPlatformReadOnlyScope = "https://www.googleapis.com/auth/cloud-platform.read-only"; +cloudPlatformReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform.read-only"] +cloudPlatformReadOnlyScope = Proxy; -- | View and manage your data across Google Cloud Platform services -cloudPlatformScope :: OAuthScope -cloudPlatformScope = "https://www.googleapis.com/auth/cloud-platform"; +cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"] +cloudPlatformScope = Proxy; -- | View and manage your Google Cloud Platform management resources and -- deployment status information -ndevCloudmanScope :: OAuthScope -ndevCloudmanScope = "https://www.googleapis.com/auth/ndev.cloudman"; +ndevCloudmanScope :: Proxy '["https://www.googleapis.com/auth/ndev.cloudman"] +ndevCloudmanScope = Proxy; -- | View your Google Cloud Platform management resources and deployment -- status information -ndevCloudmanReadonlyScope :: OAuthScope -ndevCloudmanReadonlyScope = "https://www.googleapis.com/auth/ndev.cloudman.readonly"; +ndevCloudmanReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/ndev.cloudman.readonly"] +ndevCloudmanReadOnlyScope = Proxy; -- | View your Google Compute Engine resources -computeReadonlyScope :: OAuthScope -computeReadonlyScope = "https://www.googleapis.com/auth/compute.readonly"; +computeReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/compute.readonly"] +computeReadOnlyScope = Proxy; diff --git a/gen/Network/Google/ResourceViews/Types/Product.hs b/gen/Network/Google/ResourceViews/Types/Product.hs --- a/gen/Network/Google/ResourceViews/Types/Product.hs +++ b/gen/Network/Google/ResourceViews/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.ResourceViews.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 @@ -22,7 +22,7 @@ -- -- /See:/ 'operationWarningsItemDataItem' smart constructor. -data OperationWarningsItemDataItem = OperationWarningsItemDataItem +data OperationWarningsItemDataItem = OperationWarningsItemDataItem' { _owidiValue :: !(Maybe Text) , _owidiKey :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -37,7 +37,7 @@ operationWarningsItemDataItem :: OperationWarningsItemDataItem operationWarningsItemDataItem = - OperationWarningsItemDataItem + OperationWarningsItemDataItem' { _owidiValue = Nothing , _owidiKey = Nothing } @@ -55,11 +55,11 @@ parseJSON = withObject "OperationWarningsItemDataItem" (\ o -> - OperationWarningsItemDataItem <$> + OperationWarningsItemDataItem' <$> (o .:? "value") <*> (o .:? "key")) instance ToJSON OperationWarningsItemDataItem where - toJSON OperationWarningsItemDataItem{..} + toJSON OperationWarningsItemDataItem'{..} = object (catMaybes [("value" .=) <$> _owidiValue, @@ -67,7 +67,7 @@ -- -- /See:/ 'operationList' smart constructor. -data OperationList = OperationList +data OperationList = OperationList' { _olNextPageToken :: !(Maybe Text) , _olKind :: !Text , _olItems :: !(Maybe [Operation]) @@ -91,7 +91,7 @@ operationList :: OperationList operationList = - OperationList + OperationList' { _olNextPageToken = Nothing , _olKind = "resourceviews#operationList" , _olItems = Nothing @@ -128,7 +128,7 @@ parseJSON = withObject "OperationList" (\ o -> - OperationList <$> + OperationList' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "resourceviews#operationList") <*> (o .:? "items" .!= mempty) @@ -136,7 +136,7 @@ <*> (o .:? "id")) instance ToJSON OperationList where - toJSON OperationList{..} + toJSON OperationList'{..} = object (catMaybes [("nextPageToken" .=) <$> _olNextPageToken, @@ -147,7 +147,7 @@ -- | The resource view object. -- -- /See:/ 'resourceView' smart constructor. -data ResourceView = ResourceView +data ResourceView = ResourceView' { _rvSize :: !(Maybe (Textual Word32)) , _rvKind :: !Text , _rvFingerprint :: !(Maybe Text) @@ -192,7 +192,7 @@ resourceView :: ResourceView resourceView = - ResourceView + ResourceView' { _rvSize = Nothing , _rvKind = "resourceviews#resourceView" , _rvFingerprint = Nothing @@ -279,7 +279,7 @@ parseJSON = withObject "ResourceView" (\ o -> - ResourceView <$> + ResourceView' <$> (o .:? "size") <*> (o .:? "kind" .!= "resourceviews#resourceView") <*> (o .:? "fingerprint") @@ -294,7 +294,7 @@ <*> (o .:? "description")) instance ToJSON ResourceView where - toJSON ResourceView{..} + toJSON ResourceView'{..} = object (catMaybes [("size" .=) <$> _rvSize, Just ("kind" .= _rvKind), @@ -311,7 +311,7 @@ -- | The response to a list request. -- -- /See:/ 'zoneViewsList' smart constructor. -data ZoneViewsList = ZoneViewsList +data ZoneViewsList = ZoneViewsList' { _zvlNextPageToken :: !(Maybe Text) , _zvlKind :: !Text , _zvlItems :: !(Maybe [ResourceView]) @@ -332,7 +332,7 @@ zoneViewsList :: ZoneViewsList zoneViewsList = - ZoneViewsList + ZoneViewsList' { _zvlNextPageToken = Nothing , _zvlKind = "resourceviews#zoneViewsList" , _zvlItems = Nothing @@ -365,14 +365,14 @@ parseJSON = withObject "ZoneViewsList" (\ o -> - ZoneViewsList <$> + ZoneViewsList' <$> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "resourceviews#zoneViewsList") <*> (o .:? "items" .!= mempty) <*> (o .:? "selfLink")) instance ToJSON ZoneViewsList where - toJSON ZoneViewsList{..} + toJSON ZoneViewsList'{..} = object (catMaybes [("nextPageToken" .=) <$> _zvlNextPageToken, @@ -383,7 +383,7 @@ -- | An operation resource, used to manage asynchronous API requests. -- -- /See:/ 'operation' smart constructor. -data Operation = Operation +data Operation = Operation' { _oTargetId :: !(Maybe (Textual Word64)) , _oStatus :: !(Maybe Text) , _oInsertTime :: !(Maybe Text) @@ -458,7 +458,7 @@ operation :: Operation operation = - Operation + Operation' { _oTargetId = Nothing , _oStatus = Nothing , _oInsertTime = Nothing @@ -619,7 +619,7 @@ parseJSON = withObject "Operation" (\ o -> - Operation <$> + Operation' <$> (o .:? "targetId") <*> (o .:? "status") <*> (o .:? "insertTime") <*> (o .:? "progress") @@ -643,7 +643,7 @@ <*> (o .:? "clientOperationId")) instance ToJSON Operation where - toJSON Operation{..} + toJSON Operation'{..} = object (catMaybes [("targetId" .=) <$> _oTargetId, @@ -670,7 +670,7 @@ -- | The response to a list resource request. -- -- /See:/ 'zoneViewsListResourcesResponse' smart constructor. -data ZoneViewsListResourcesResponse = ZoneViewsListResourcesResponse +data ZoneViewsListResourcesResponse = ZoneViewsListResourcesResponse' { _zvlrrNextPageToken :: !(Maybe Text) , _zvlrrItems :: !(Maybe [ListResourceResponseItem]) , _zvlrrNetwork :: !(Maybe Text) @@ -688,7 +688,7 @@ zoneViewsListResourcesResponse :: ZoneViewsListResourcesResponse zoneViewsListResourcesResponse = - ZoneViewsListResourcesResponse + ZoneViewsListResourcesResponse' { _zvlrrNextPageToken = Nothing , _zvlrrItems = Nothing , _zvlrrNetwork = Nothing @@ -718,13 +718,13 @@ parseJSON = withObject "ZoneViewsListResourcesResponse" (\ o -> - ZoneViewsListResourcesResponse <$> + ZoneViewsListResourcesResponse' <$> (o .:? "nextPageToken") <*> (o .:? "items" .!= mempty) <*> (o .:? "network")) instance ToJSON ZoneViewsListResourcesResponse where - toJSON ZoneViewsListResourcesResponse{..} + toJSON ZoneViewsListResourcesResponse'{..} = object (catMaybes [("nextPageToken" .=) <$> _zvlrrNextPageToken, @@ -734,7 +734,7 @@ -- | The service endpoint that may be started in a VM. -- -- /See:/ 'serviceEndpoint' smart constructor. -data ServiceEndpoint = ServiceEndpoint +data ServiceEndpoint = ServiceEndpoint' { _seName :: !(Maybe Text) , _sePort :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -749,7 +749,7 @@ serviceEndpoint :: ServiceEndpoint serviceEndpoint = - ServiceEndpoint + ServiceEndpoint' { _seName = Nothing , _sePort = Nothing } @@ -768,11 +768,11 @@ parseJSON = withObject "ServiceEndpoint" (\ o -> - ServiceEndpoint <$> + ServiceEndpoint' <$> (o .:? "name") <*> (o .:? "port")) instance ToJSON ServiceEndpoint where - toJSON ServiceEndpoint{..} + toJSON ServiceEndpoint'{..} = object (catMaybes [("name" .=) <$> _seName, ("port" .=) <$> _sePort]) @@ -780,7 +780,7 @@ -- | The request to remove resources from the resource view. -- -- /See:/ 'zoneViewsRemoveResourcesRequest' smart constructor. -newtype ZoneViewsRemoveResourcesRequest = ZoneViewsRemoveResourcesRequest +newtype ZoneViewsRemoveResourcesRequest = ZoneViewsRemoveResourcesRequest' { _zvrrrResources :: Maybe [Text] } deriving (Eq,Show,Data,Typeable,Generic) @@ -792,7 +792,7 @@ zoneViewsRemoveResourcesRequest :: ZoneViewsRemoveResourcesRequest zoneViewsRemoveResourcesRequest = - ZoneViewsRemoveResourcesRequest + ZoneViewsRemoveResourcesRequest' { _zvrrrResources = Nothing } @@ -809,18 +809,18 @@ parseJSON = withObject "ZoneViewsRemoveResourcesRequest" (\ o -> - ZoneViewsRemoveResourcesRequest <$> + ZoneViewsRemoveResourcesRequest' <$> (o .:? "resources" .!= mempty)) instance ToJSON ZoneViewsRemoveResourcesRequest where - toJSON ZoneViewsRemoveResourcesRequest{..} + toJSON ZoneViewsRemoveResourcesRequest'{..} = object (catMaybes [("resources" .=) <$> _zvrrrResources]) -- | The list of service end points on the resource. -- -- /See:/ 'listResourceResponseItemEndpoints' smart constructor. -newtype ListResourceResponseItemEndpoints = ListResourceResponseItemEndpoints +newtype ListResourceResponseItemEndpoints = ListResourceResponseItemEndpoints' { _lrrieAddtional :: HashMap Text [Textual Int32] } deriving (Eq,Show,Data,Typeable,Generic) @@ -833,7 +833,7 @@ :: HashMap Text [Int32] -- ^ 'lrrieAddtional' -> ListResourceResponseItemEndpoints listResourceResponseItemEndpoints pLrrieAddtional_ = - ListResourceResponseItemEndpoints + ListResourceResponseItemEndpoints' { _lrrieAddtional = _Coerce # pLrrieAddtional_ } @@ -849,7 +849,7 @@ parseJSON = withObject "ListResourceResponseItemEndpoints" (\ o -> - ListResourceResponseItemEndpoints <$> + ListResourceResponseItemEndpoints' <$> (parseJSONObject o)) instance ToJSON ListResourceResponseItemEndpoints @@ -859,7 +859,7 @@ -- | The request to add resources to the resource view. -- -- /See:/ 'zoneViewsAddResourcesRequest' smart constructor. -newtype ZoneViewsAddResourcesRequest = ZoneViewsAddResourcesRequest +newtype ZoneViewsAddResourcesRequest = ZoneViewsAddResourcesRequest' { _zvarrResources :: Maybe [Text] } deriving (Eq,Show,Data,Typeable,Generic) @@ -871,7 +871,7 @@ zoneViewsAddResourcesRequest :: ZoneViewsAddResourcesRequest zoneViewsAddResourcesRequest = - ZoneViewsAddResourcesRequest + ZoneViewsAddResourcesRequest' { _zvarrResources = Nothing } @@ -887,11 +887,11 @@ parseJSON = withObject "ZoneViewsAddResourcesRequest" (\ o -> - ZoneViewsAddResourcesRequest <$> + ZoneViewsAddResourcesRequest' <$> (o .:? "resources" .!= mempty)) instance ToJSON ZoneViewsAddResourcesRequest where - toJSON ZoneViewsAddResourcesRequest{..} + toJSON ZoneViewsAddResourcesRequest'{..} = object (catMaybes [("resources" .=) <$> _zvarrResources]) @@ -899,7 +899,7 @@ -- this field will be populated. -- -- /See:/ 'operationError' smart constructor. -newtype OperationError = OperationError +newtype OperationError = OperationError' { _oeErrors :: Maybe [OperationErrorErrorsItem] } deriving (Eq,Show,Data,Typeable,Generic) @@ -911,7 +911,7 @@ operationError :: OperationError operationError = - OperationError + OperationError' { _oeErrors = Nothing } @@ -927,15 +927,15 @@ parseJSON = withObject "OperationError" (\ o -> - OperationError <$> (o .:? "errors" .!= mempty)) + OperationError' <$> (o .:? "errors" .!= mempty)) instance ToJSON OperationError where - toJSON OperationError{..} + toJSON OperationError'{..} = object (catMaybes [("errors" .=) <$> _oeErrors]) -- -- /See:/ 'zoneViewsGetServiceResponse' smart constructor. -data ZoneViewsGetServiceResponse = ZoneViewsGetServiceResponse +data ZoneViewsGetServiceResponse = ZoneViewsGetServiceResponse' { _zvgsrFingerprint :: !(Maybe Text) , _zvgsrEndpoints :: !(Maybe [ServiceEndpoint]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -950,7 +950,7 @@ zoneViewsGetServiceResponse :: ZoneViewsGetServiceResponse zoneViewsGetServiceResponse = - ZoneViewsGetServiceResponse + ZoneViewsGetServiceResponse' { _zvgsrFingerprint = Nothing , _zvgsrEndpoints = Nothing } @@ -973,12 +973,12 @@ parseJSON = withObject "ZoneViewsGetServiceResponse" (\ o -> - ZoneViewsGetServiceResponse <$> + ZoneViewsGetServiceResponse' <$> (o .:? "fingerprint") <*> (o .:? "endpoints" .!= mempty)) instance ToJSON ZoneViewsGetServiceResponse where - toJSON ZoneViewsGetServiceResponse{..} + toJSON ZoneViewsGetServiceResponse'{..} = object (catMaybes [("fingerprint" .=) <$> _zvgsrFingerprint, @@ -986,7 +986,7 @@ -- -- /See:/ 'operationErrorErrorsItem' smart constructor. -data OperationErrorErrorsItem = OperationErrorErrorsItem +data OperationErrorErrorsItem = OperationErrorErrorsItem' { _oeeiLocation :: !(Maybe Text) , _oeeiCode :: !(Maybe Text) , _oeeiMessage :: !(Maybe Text) @@ -1004,7 +1004,7 @@ operationErrorErrorsItem :: OperationErrorErrorsItem operationErrorErrorsItem = - OperationErrorErrorsItem + OperationErrorErrorsItem' { _oeeiLocation = Nothing , _oeeiCode = Nothing , _oeeiMessage = Nothing @@ -1029,12 +1029,12 @@ parseJSON = withObject "OperationErrorErrorsItem" (\ o -> - OperationErrorErrorsItem <$> + OperationErrorErrorsItem' <$> (o .:? "location") <*> (o .:? "code") <*> (o .:? "message")) instance ToJSON OperationErrorErrorsItem where - toJSON OperationErrorErrorsItem{..} + toJSON OperationErrorErrorsItem'{..} = object (catMaybes [("location" .=) <$> _oeeiLocation, @@ -1043,7 +1043,7 @@ -- -- /See:/ 'zoneViewsSetServiceRequest' smart constructor. -data ZoneViewsSetServiceRequest = ZoneViewsSetServiceRequest +data ZoneViewsSetServiceRequest = ZoneViewsSetServiceRequest' { _zvssrResourceName :: !(Maybe Text) , _zvssrFingerprint :: !(Maybe Text) , _zvssrEndpoints :: !(Maybe [ServiceEndpoint]) @@ -1061,7 +1061,7 @@ zoneViewsSetServiceRequest :: ZoneViewsSetServiceRequest zoneViewsSetServiceRequest = - ZoneViewsSetServiceRequest + ZoneViewsSetServiceRequest' { _zvssrResourceName = Nothing , _zvssrFingerprint = Nothing , _zvssrEndpoints = Nothing @@ -1093,12 +1093,12 @@ parseJSON = withObject "ZoneViewsSetServiceRequest" (\ o -> - ZoneViewsSetServiceRequest <$> + ZoneViewsSetServiceRequest' <$> (o .:? "resourceName") <*> (o .:? "fingerprint") <*> (o .:? "endpoints" .!= mempty)) instance ToJSON ZoneViewsSetServiceRequest where - toJSON ZoneViewsSetServiceRequest{..} + toJSON ZoneViewsSetServiceRequest'{..} = object (catMaybes [("resourceName" .=) <$> _zvssrResourceName, @@ -1109,7 +1109,7 @@ -- information. -- -- /See:/ 'listResourceResponseItem' smart constructor. -data ListResourceResponseItem = ListResourceResponseItem +data ListResourceResponseItem = ListResourceResponseItem' { _lrriResource :: !(Maybe Text) , _lrriEndpoints :: !(Maybe ListResourceResponseItemEndpoints) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1124,7 +1124,7 @@ listResourceResponseItem :: ListResourceResponseItem listResourceResponseItem = - ListResourceResponseItem + ListResourceResponseItem' { _lrriResource = Nothing , _lrriEndpoints = Nothing } @@ -1144,11 +1144,11 @@ parseJSON = withObject "ListResourceResponseItem" (\ o -> - ListResourceResponseItem <$> + ListResourceResponseItem' <$> (o .:? "resource") <*> (o .:? "endpoints")) instance ToJSON ListResourceResponseItem where - toJSON ListResourceResponseItem{..} + toJSON ListResourceResponseItem'{..} = object (catMaybes [("resource" .=) <$> _lrriResource, @@ -1157,7 +1157,7 @@ -- | The Label to be applied to the resource views. -- -- /See:/ 'label' smart constructor. -data Label = Label +data Label = Label' { _lValue :: !(Maybe Text) , _lKey :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1172,7 +1172,7 @@ label :: Label label = - Label + Label' { _lValue = Nothing , _lKey = Nothing } @@ -1188,17 +1188,17 @@ instance FromJSON Label where parseJSON = withObject "Label" - (\ o -> Label <$> (o .:? "value") <*> (o .:? "key")) + (\ o -> Label' <$> (o .:? "value") <*> (o .:? "key")) instance ToJSON Label where - toJSON Label{..} + toJSON Label'{..} = object (catMaybes [("value" .=) <$> _lValue, ("key" .=) <$> _lKey]) -- -- /See:/ 'operationWarningsItem' smart constructor. -data OperationWarningsItem = OperationWarningsItem +data OperationWarningsItem = OperationWarningsItem' { _owiData :: !(Maybe [OperationWarningsItemDataItem]) , _owiCode :: !(Maybe Text) , _owiMessage :: !(Maybe Text) @@ -1216,7 +1216,7 @@ operationWarningsItem :: OperationWarningsItem operationWarningsItem = - OperationWarningsItem + OperationWarningsItem' { _owiData = Nothing , _owiCode = Nothing , _owiMessage = Nothing @@ -1241,12 +1241,12 @@ parseJSON = withObject "OperationWarningsItem" (\ o -> - OperationWarningsItem <$> + OperationWarningsItem' <$> (o .:? "data" .!= mempty) <*> (o .:? "code") <*> (o .:? "message")) instance ToJSON OperationWarningsItem where - toJSON OperationWarningsItem{..} + toJSON OperationWarningsItem'{..} = object (catMaybes [("data" .=) <$> _owiData, ("code" .=) <$> _owiCode, diff --git a/gen/Network/Google/ResourceViews/Types/Sum.hs b/gen/Network/Google/ResourceViews/Types/Sum.hs --- a/gen/Network/Google/ResourceViews/Types/Sum.hs +++ b/gen/Network/Google/ResourceViews/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.ResourceViews.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 @@ -28,19 +28,19 @@ -- ^ @URL@ | URLPort -- ^ @URL_PORT@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ZoneViewsListResourcesFormat -instance FromText ZoneViewsListResourcesFormat where - fromText = \case - "NONE" -> Just None - "URL" -> Just URL - "URL_PORT" -> Just URLPort - _ -> Nothing +instance FromHttpApiData ZoneViewsListResourcesFormat where + parseQueryParam = \case + "NONE" -> Right None + "URL" -> Right URL + "URL_PORT" -> Right URLPort + x -> Left ("Unable to parse ZoneViewsListResourcesFormat from: " <> x) -instance ToText ZoneViewsListResourcesFormat where - toText = \case +instance ToHttpApiData ZoneViewsListResourcesFormat where + toQueryParam = \case None -> "NONE" URL -> "URL" URLPort -> "URL_PORT" @@ -57,18 +57,18 @@ -- ^ @ALL@ | Running -- ^ @RUNNING@ - deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic) + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable ZoneViewsListResourcesListState -instance FromText ZoneViewsListResourcesListState where - fromText = \case - "ALL" -> Just All - "RUNNING" -> Just Running - _ -> Nothing +instance FromHttpApiData ZoneViewsListResourcesListState where + parseQueryParam = \case + "ALL" -> Right All + "RUNNING" -> Right Running + x -> Left ("Unable to parse ZoneViewsListResourcesListState from: " <> x) -instance ToText ZoneViewsListResourcesListState where - toText = \case +instance ToHttpApiData ZoneViewsListResourcesListState where + toQueryParam = \case All -> "ALL" Running -> "RUNNING" diff --git a/gogol-resourceviews.cabal b/gogol-resourceviews.cabal --- a/gogol-resourceviews.cabal +++ b/gogol-resourceviews.cabal @@ -1,5 +1,5 @@ name: gogol-resourceviews -version: 0.0.1 +version: 0.1.0 synopsis: Google Compute Engine Instance Groups 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 @@ -57,5 +57,5 @@ , Network.Google.ResourceViews.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5