gogol-resourceviews 0.0.1 → 0.1.0

raw patch · 17 files changed

+221/−153 lines, 17 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/Resource/ResourceViews/ZoneOperations/Get.hs +11/−4
• gen/Network/Google/Resource/ResourceViews/ZoneOperations/List.hs +11/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/AddResources.hs +8/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/Delete.hs +8/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/Get.hs +11/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/GetService.hs +8/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/Insert.hs +8/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/List.hs +11/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/ListResources.hs +11/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/RemoveResources.hs +8/−4
• gen/Network/Google/Resource/ResourceViews/ZoneViews/SetService.hs +8/−4
• gen/Network/Google/ResourceViews.hs +9/−1
• gen/Network/Google/ResourceViews/Types.hs +17/−16
• gen/Network/Google/ResourceViews/Types/Product.hs +68/−68
• gen/Network/Google/ResourceViews/Types/Sum.hs +18/−18
• gogol-resourceviews.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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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)

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- 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

@@ -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 <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,14 @@     (     -- * Service Configuration       resourceViewsService++    -- * OAuth Scopes+    , computeScope+    , cloudPlatformReadOnlyScope+    , cloudPlatformScope+    , ndevCloudmanScope+    , ndevCloudmanReadOnlyScope+    , computeReadOnlyScope      -- * API Declaration     , ResourceViewsAPI

@@ -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 <brendan.g.hay@gmail.com> -- 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;

@@ -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 <brendan.g.hay@gmail.com> -- 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,

@@ -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 <brendan.g.hay@gmail.com> -- 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" 

@@ -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 <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@@ -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