gogol-useraccounts 0.0.1 → 0.1.0

raw patch · 23 files changed

+445/−283 lines, 23 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/CloudUserAccounts/GlobalAccountsOperations/Delete.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/GlobalAccountsOperations/Get.hs +9/−4
• gen/Network/Google/Resource/CloudUserAccounts/GlobalAccountsOperations/List.hs +35/−17
• gen/Network/Google/Resource/CloudUserAccounts/Groups/AddMember.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Groups/Delete.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Groups/Get.hs +9/−4
• gen/Network/Google/Resource/CloudUserAccounts/Groups/Insert.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Groups/List.hs +35/−17
• gen/Network/Google/Resource/CloudUserAccounts/Groups/RemoveMember.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Linux/GetAuthorizedKeysView.hs +9/−4
• gen/Network/Google/Resource/CloudUserAccounts/Linux/GetLinuxAccountViews.hs +35/−17
• gen/Network/Google/Resource/CloudUserAccounts/Users/AddPublicKey.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Users/Delete.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Users/Get.hs +9/−4
• gen/Network/Google/Resource/CloudUserAccounts/Users/Insert.hs +7/−4
• gen/Network/Google/Resource/CloudUserAccounts/Users/List.hs +35/−17
• gen/Network/Google/Resource/CloudUserAccounts/Users/RemovePublicKey.hs +7/−4
• gen/Network/Google/UserAccounts.hs +10/−2
• gen/Network/Google/UserAccounts/Types.hs +14/−12
• gen/Network/Google/UserAccounts/Types/Product.hs +135/−108
• gen/Network/Google/UserAccounts/Types/Sum.hs +39/−34
• gogol-useraccounts.cabal +5/−4

@@ -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.CloudUserAccounts.GlobalAccountsOperations.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@@ -55,7 +55,7 @@ -- | Deletes the specified operation resource. -- -- /See:/ 'globalAccountsOperationsDelete' smart constructor.-data GlobalAccountsOperationsDelete = GlobalAccountsOperationsDelete+data GlobalAccountsOperationsDelete = GlobalAccountsOperationsDelete'     { _gaodProject   :: !Text     , _gaodOperation :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'gaodOperation'     -> GlobalAccountsOperationsDelete globalAccountsOperationsDelete pGaodProject_ pGaodOperation_ =-    GlobalAccountsOperationsDelete+    GlobalAccountsOperationsDelete'     { _gaodProject = pGaodProject_     , _gaodOperation = pGaodOperation_     }@@ -91,7 +91,10 @@ instance GoogleRequest GlobalAccountsOperationsDelete          where         type Rs GlobalAccountsOperationsDelete = ()-        requestClient GlobalAccountsOperationsDelete{..}+        type Scopes GlobalAccountsOperationsDelete =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient GlobalAccountsOperationsDelete'{..}           = go _gaodProject _gaodOperation (Just AltJSON)               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.GlobalAccountsOperations.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Retrieves the specified operation resource. -- -- /See:/ 'globalAccountsOperationsGet' smart constructor.-data GlobalAccountsOperationsGet = GlobalAccountsOperationsGet+data GlobalAccountsOperationsGet = GlobalAccountsOperationsGet'     { _gaogProject   :: !Text     , _gaogOperation :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'gaogOperation'     -> GlobalAccountsOperationsGet globalAccountsOperationsGet pGaogProject_ pGaogOperation_ =-    GlobalAccountsOperationsGet+    GlobalAccountsOperationsGet'     { _gaogProject = pGaogProject_     , _gaogOperation = pGaogOperation_     }@@ -91,7 +91,12 @@ instance GoogleRequest GlobalAccountsOperationsGet          where         type Rs GlobalAccountsOperationsGet = Operation-        requestClient GlobalAccountsOperationsGet{..}+        type Scopes GlobalAccountsOperationsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient GlobalAccountsOperationsGet'{..}           = go _gaogProject _gaogOperation (Just AltJSON)               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.GlobalAccountsOperations.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 @@ -- project. -- -- /See:/ 'globalAccountsOperationsList' smart constructor.-data GlobalAccountsOperationsList = GlobalAccountsOperationsList+data GlobalAccountsOperationsList = GlobalAccountsOperationsList'     { _gaolOrderBy    :: !(Maybe Text)     , _gaolProject    :: !Text     , _gaolFilter     :: !(Maybe Text)@@ -88,7 +88,7 @@     :: Text -- ^ 'gaolProject'     -> GlobalAccountsOperationsList globalAccountsOperationsList pGaolProject_ =-    GlobalAccountsOperationsList+    GlobalAccountsOperationsList'     { _gaolOrderBy = Nothing     , _gaolProject = pGaolProject_     , _gaolFilter = Nothing@@ -114,29 +114,42 @@   = lens _gaolProject (\ s a -> s{_gaolProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: If you+-- use filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. In particular, use filtering+-- on nested fields to take advantage of instance labels to organize and+-- filter results based on label values. The Beta API also supports+-- filtering on multiple expressions by providing each separate expression+-- within parentheses. For example, (scheduling.automaticRestart eq true)+-- (zone eq us-central1-f). Multiple expressions are treated as AND+-- expressions, meaning that resources must match all expressions to pass+-- the filters. gaolFilter :: Lens' GlobalAccountsOperationsList (Maybe Text) gaolFilter   = lens _gaolFilter (\ s a -> s{_gaolFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. gaolPageToken :: Lens' GlobalAccountsOperationsList (Maybe Text) gaolPageToken   = lens _gaolPageToken       (\ s a -> s{_gaolPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. gaolMaxResults :: Lens' GlobalAccountsOperationsList Word32 gaolMaxResults   = lens _gaolMaxResults@@ -146,7 +159,12 @@ instance GoogleRequest GlobalAccountsOperationsList          where         type Rs GlobalAccountsOperationsList = OperationList-        requestClient GlobalAccountsOperationsList{..}+        type Scopes GlobalAccountsOperationsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient GlobalAccountsOperationsList'{..}           = go _gaolProject _gaolOrderBy _gaolFilter               _gaolPageToken               (Just _gaolMaxResults)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Groups.AddMember--- 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 @@ -- | Adds users to the specified group. -- -- /See:/ 'groupsAddMember' smart constructor.-data GroupsAddMember = GroupsAddMember+data GroupsAddMember = GroupsAddMember'     { _gamProject   :: !Text     , _gamPayload   :: !GroupsAddMemberRequest     , _gamGroupName :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'gamGroupName'     -> GroupsAddMember groupsAddMember pGamProject_ pGamPayload_ pGamGroupName_ =-    GroupsAddMember+    GroupsAddMember'     { _gamProject = pGamProject_     , _gamPayload = pGamPayload_     , _gamGroupName = pGamGroupName_@@ -103,7 +103,10 @@  instance GoogleRequest GroupsAddMember where         type Rs GroupsAddMember = Operation-        requestClient GroupsAddMember{..}+        type Scopes GroupsAddMember =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient GroupsAddMember'{..}           = go _gamProject _gamGroupName (Just AltJSON)               _gamPayload               userAccountsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Groups.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@@ -55,7 +55,7 @@ -- | Deletes the specified Group resource. -- -- /See:/ 'groupsDelete' smart constructor.-data GroupsDelete = GroupsDelete+data GroupsDelete = GroupsDelete'     { _gdProject   :: !Text     , _gdGroupName :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'gdGroupName'     -> GroupsDelete groupsDelete pGdProject_ pGdGroupName_ =-    GroupsDelete+    GroupsDelete'     { _gdProject = pGdProject_     , _gdGroupName = pGdGroupName_     }@@ -89,7 +89,10 @@  instance GoogleRequest GroupsDelete where         type Rs GroupsDelete = Operation-        requestClient GroupsDelete{..}+        type Scopes GroupsDelete =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient GroupsDelete'{..}           = go _gdProject _gdGroupName (Just AltJSON)               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Groups.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Returns the specified Group resource. -- -- /See:/ 'groupsGet' smart constructor.-data GroupsGet = GroupsGet+data GroupsGet = GroupsGet'     { _ggProject   :: !Text     , _ggGroupName :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'ggGroupName'     -> GroupsGet groupsGet pGgProject_ pGgGroupName_ =-    GroupsGet+    GroupsGet'     { _ggProject = pGgProject_     , _ggGroupName = pGgGroupName_     }@@ -89,7 +89,12 @@  instance GoogleRequest GroupsGet where         type Rs GroupsGet = Group-        requestClient GroupsGet{..}+        type Scopes GroupsGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient GroupsGet'{..}           = go _ggProject _ggGroupName (Just AltJSON)               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Groups.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@@ -57,7 +57,7 @@ -- included in the request. -- -- /See:/ 'groupsInsert' smart constructor.-data GroupsInsert = GroupsInsert+data GroupsInsert = GroupsInsert'     { _giProject :: !Text     , _giPayload :: !Group     } deriving (Eq,Show,Data,Typeable,Generic)@@ -74,7 +74,7 @@     -> Group -- ^ 'giPayload'     -> GroupsInsert groupsInsert pGiProject_ pGiPayload_ =-    GroupsInsert+    GroupsInsert'     { _giProject = pGiProject_     , _giPayload = pGiPayload_     }@@ -91,7 +91,10 @@  instance GoogleRequest GroupsInsert where         type Rs GroupsInsert = Operation-        requestClient GroupsInsert{..}+        type Scopes GroupsInsert =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient GroupsInsert'{..}           = go _giProject (Just AltJSON) _giPayload               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Groups.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Retrieves the list of groups contained within the specified project. -- -- /See:/ 'groupsList' smart constructor.-data GroupsList = GroupsList+data GroupsList = GroupsList'     { _glOrderBy    :: !(Maybe Text)     , _glProject    :: !Text     , _glFilter     :: !(Maybe Text)@@ -86,7 +86,7 @@     :: Text -- ^ 'glProject'     -> GroupsList groupsList pGlProject_ =-    GroupsList+    GroupsList'     { _glOrderBy = Nothing     , _glProject = pGlProject_     , _glFilter = Nothing@@ -112,27 +112,40 @@   = lens _glProject (\ s a -> s{_glProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: If you+-- use filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. In particular, use filtering+-- on nested fields to take advantage of instance labels to organize and+-- filter results based on label values. The Beta API also supports+-- filtering on multiple expressions by providing each separate expression+-- within parentheses. For example, (scheduling.automaticRestart eq true)+-- (zone eq us-central1-f). Multiple expressions are treated as AND+-- expressions, meaning that resources must match all expressions to pass+-- the filters. glFilter :: Lens' GroupsList (Maybe Text) glFilter = lens _glFilter (\ s a -> s{_glFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. glPageToken :: Lens' GroupsList (Maybe Text) glPageToken   = lens _glPageToken (\ s a -> s{_glPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. glMaxResults :: Lens' GroupsList Word32 glMaxResults   = lens _glMaxResults (\ s a -> s{_glMaxResults = a})@@ -140,7 +153,12 @@  instance GoogleRequest GroupsList where         type Rs GroupsList = GroupList-        requestClient GroupsList{..}+        type Scopes GroupsList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient GroupsList'{..}           = go _glProject _glOrderBy _glFilter _glPageToken               (Just _glMaxResults)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Groups.RemoveMember--- 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 @@ -- | Removes users from the specified group. -- -- /See:/ 'groupsRemoveMember' smart constructor.-data GroupsRemoveMember = GroupsRemoveMember+data GroupsRemoveMember = GroupsRemoveMember'     { _grmProject   :: !Text     , _grmPayload   :: !GroupsRemoveMemberRequest     , _grmGroupName :: !Text@@ -80,7 +80,7 @@     -> Text -- ^ 'grmGroupName'     -> GroupsRemoveMember groupsRemoveMember pGrmProject_ pGrmPayload_ pGrmGroupName_ =-    GroupsRemoveMember+    GroupsRemoveMember'     { _grmProject = pGrmProject_     , _grmPayload = pGrmPayload_     , _grmGroupName = pGrmGroupName_@@ -103,7 +103,10 @@  instance GoogleRequest GroupsRemoveMember where         type Rs GroupsRemoveMember = Operation-        requestClient GroupsRemoveMember{..}+        type Scopes GroupsRemoveMember =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient GroupsRemoveMember'{..}           = go _grmProject _grmGroupName (Just AltJSON)               _grmPayload               userAccountsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Linux.GetAuthorizedKeysView--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Returns a list of authorized public keys for a specific user account. -- -- /See:/ 'linuxGetAuthorizedKeysView' smart constructor.-data LinuxGetAuthorizedKeysView = LinuxGetAuthorizedKeysView+data LinuxGetAuthorizedKeysView = LinuxGetAuthorizedKeysView'     { _lgakvProject  :: !Text     , _lgakvZone     :: !Text     , _lgakvUser     :: !Text@@ -90,7 +90,7 @@     -> Text -- ^ 'lgakvInstance'     -> LinuxGetAuthorizedKeysView linuxGetAuthorizedKeysView pLgakvProject_ pLgakvZone_ pLgakvUser_ pLgakvInstance_ =-    LinuxGetAuthorizedKeysView+    LinuxGetAuthorizedKeysView'     { _lgakvProject = pLgakvProject_     , _lgakvZone = pLgakvZone_     , _lgakvUser = pLgakvUser_@@ -129,7 +129,12 @@          where         type Rs LinuxGetAuthorizedKeysView =              LinuxGetAuthorizedKeysViewResponse-        requestClient LinuxGetAuthorizedKeysView{..}+        type Scopes LinuxGetAuthorizedKeysView =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient LinuxGetAuthorizedKeysView'{..}           = go _lgakvProject _lgakvZone _lgakvUser               (Just _lgakvInstance)               _lgakvLogin

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Linux.GetLinuxAccountViews--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@ -- project. -- -- /See:/ 'linuxGetLinuxAccountViews' smart constructor.-data LinuxGetLinuxAccountViews = LinuxGetLinuxAccountViews+data LinuxGetLinuxAccountViews = LinuxGetLinuxAccountViews'     { _lglavOrderBy    :: !(Maybe Text)     , _lglavProject    :: !Text     , _lglavZone       :: !Text@@ -101,7 +101,7 @@     -> Text -- ^ 'lglavInstance'     -> LinuxGetLinuxAccountViews linuxGetLinuxAccountViews pLglavProject_ pLglavZone_ pLglavInstance_ =-    LinuxGetLinuxAccountViews+    LinuxGetLinuxAccountViews'     { _lglavOrderBy = Nothing     , _lglavProject = pLglavProject_     , _lglavZone = pLglavZone_@@ -134,29 +134,42 @@   = lens _lglavZone (\ s a -> s{_lglavZone = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: If you+-- use filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. In particular, use filtering+-- on nested fields to take advantage of instance labels to organize and+-- filter results based on label values. The Beta API also supports+-- filtering on multiple expressions by providing each separate expression+-- within parentheses. For example, (scheduling.automaticRestart eq true)+-- (zone eq us-central1-f). Multiple expressions are treated as AND+-- expressions, meaning that resources must match all expressions to pass+-- the filters. lglavFilter :: Lens' LinuxGetLinuxAccountViews (Maybe Text) lglavFilter   = lens _lglavFilter (\ s a -> s{_lglavFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. lglavPageToken :: Lens' LinuxGetLinuxAccountViews (Maybe Text) lglavPageToken   = lens _lglavPageToken       (\ s a -> s{_lglavPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. lglavMaxResults :: Lens' LinuxGetLinuxAccountViews Word32 lglavMaxResults   = lens _lglavMaxResults@@ -173,7 +186,12 @@          where         type Rs LinuxGetLinuxAccountViews =              LinuxGetLinuxAccountViewsResponse-        requestClient LinuxGetLinuxAccountViews{..}+        type Scopes LinuxGetLinuxAccountViews =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient LinuxGetLinuxAccountViews'{..}           = go _lglavProject _lglavZone (Just _lglavInstance)               _lglavOrderBy               _lglavFilter

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Users.AddPublicKey--- 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@@ -60,7 +60,7 @@ -- in the request. -- -- /See:/ 'usersAddPublicKey' smart constructor.-data UsersAddPublicKey = UsersAddPublicKey+data UsersAddPublicKey = UsersAddPublicKey'     { _uapkProject :: !Text     , _uapkPayload :: !PublicKey     , _uapkUser    :: !Text@@ -81,7 +81,7 @@     -> Text -- ^ 'uapkUser'     -> UsersAddPublicKey usersAddPublicKey pUapkProject_ pUapkPayload_ pUapkUser_ =-    UsersAddPublicKey+    UsersAddPublicKey'     { _uapkProject = pUapkProject_     , _uapkPayload = pUapkPayload_     , _uapkUser = pUapkUser_@@ -103,7 +103,10 @@  instance GoogleRequest UsersAddPublicKey where         type Rs UsersAddPublicKey = Operation-        requestClient UsersAddPublicKey{..}+        type Scopes UsersAddPublicKey =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient UsersAddPublicKey'{..}           = go _uapkProject _uapkUser (Just AltJSON)               _uapkPayload               userAccountsService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Users.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@@ -55,7 +55,7 @@ -- | Deletes the specified User resource. -- -- /See:/ 'usersDelete' smart constructor.-data UsersDelete = UsersDelete+data UsersDelete = UsersDelete'     { _udProject :: !Text     , _udUser    :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'udUser'     -> UsersDelete usersDelete pUdProject_ pUdUser_ =-    UsersDelete+    UsersDelete'     { _udProject = pUdProject_     , _udUser = pUdUser_     }@@ -88,7 +88,10 @@  instance GoogleRequest UsersDelete where         type Rs UsersDelete = Operation-        requestClient UsersDelete{..}+        type Scopes UsersDelete =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient UsersDelete'{..}           = go _udProject _udUser (Just AltJSON)               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Users.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Returns the specified User resource. -- -- /See:/ 'usersGet' smart constructor.-data UsersGet = UsersGet+data UsersGet = UsersGet'     { _ugProject :: !Text     , _ugUser    :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'ugUser'     -> UsersGet usersGet pUgProject_ pUgUser_ =-    UsersGet+    UsersGet'     { _ugProject = pUgProject_     , _ugUser = pUgUser_     }@@ -88,7 +88,12 @@  instance GoogleRequest UsersGet where         type Rs UsersGet = User-        requestClient UsersGet{..}+        type Scopes UsersGet =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient UsersGet'{..}           = go _ugProject _ugUser (Just AltJSON)               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Users.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@@ -57,7 +57,7 @@ -- in the request. -- -- /See:/ 'usersInsert' smart constructor.-data UsersInsert = UsersInsert+data UsersInsert = UsersInsert'     { _uiProject :: !Text     , _uiPayload :: !User     } deriving (Eq,Show,Data,Typeable,Generic)@@ -74,7 +74,7 @@     -> User -- ^ 'uiPayload'     -> UsersInsert usersInsert pUiProject_ pUiPayload_ =-    UsersInsert+    UsersInsert'     { _uiProject = pUiProject_     , _uiPayload = pUiPayload_     }@@ -91,7 +91,10 @@  instance GoogleRequest UsersInsert where         type Rs UsersInsert = Operation-        requestClient UsersInsert{..}+        type Scopes UsersInsert =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient UsersInsert'{..}           = go _uiProject (Just AltJSON) _uiPayload               userAccountsService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Users.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -61,7 +61,7 @@ -- | Retrieves a list of users contained within the specified project. -- -- /See:/ 'usersList' smart constructor.-data UsersList = UsersList+data UsersList = UsersList'     { _ulOrderBy    :: !(Maybe Text)     , _ulProject    :: !Text     , _ulFilter     :: !(Maybe Text)@@ -86,7 +86,7 @@     :: Text -- ^ 'ulProject'     -> UsersList usersList pUlProject_ =-    UsersList+    UsersList'     { _ulOrderBy = Nothing     , _ulProject = pUlProject_     , _ulFilter = Nothing@@ -112,27 +112,40 @@   = lens _ulProject (\ s a -> s{_ulProject = a})  -- | Sets a filter expression for filtering listed resources, in the form--- filter={expression}. Your {expression} must be in the format: FIELD_NAME--- COMPARISON_STRING LITERAL_STRING. The FIELD_NAME is the name of the+-- filter={expression}. Your {expression} must be in the format: field_name+-- comparison_string literal_string. The field_name is the name of the -- field you want to compare. Only atomic field types are supported--- (string, number, boolean). The COMPARISON_STRING must be either eq--- (equals) or ne (not equals). The LITERAL_STRING is the string value to--- filter to. The literal value must be valid for the type of field--- (string, number, boolean). For string fields, the literal value is--- interpreted as a regular expression using RE2 syntax. The literal value--- must match the entire field. For example, filter=name ne--- example-instance.+-- (string, number, boolean). The comparison_string must be either eq+-- (equals) or ne (not equals). The literal_string is the string value to+-- filter to. The literal value must be valid for the type of field you are+-- filtering by (string, number, boolean). For string fields, the literal+-- value is interpreted as a regular expression using RE2 syntax. The+-- literal value must match the entire field. For example, to filter for+-- instances that do not have a name of example-instance, you would use+-- filter=name ne example-instance. Compute Engine Beta API Only: If you+-- use filtering in the Beta API, you can also filter on nested fields. For+-- example, you could filter on instances that have set the+-- scheduling.automaticRestart field to true. In particular, use filtering+-- on nested fields to take advantage of instance labels to organize and+-- filter results based on label values. The Beta API also supports+-- filtering on multiple expressions by providing each separate expression+-- within parentheses. For example, (scheduling.automaticRestart eq true)+-- (zone eq us-central1-f). Multiple expressions are treated as AND+-- expressions, meaning that resources must match all expressions to pass+-- the filters. ulFilter :: Lens' UsersList (Maybe Text) ulFilter = lens _ulFilter (\ s a -> s{_ulFilter = a}) --- | Specifies a page token to use. Use this parameter if you want to list--- the next page of results. Set pageToken to the nextPageToken returned by--- a previous list request.+-- | Specifies a page token to use. Set pageToken to the nextPageToken+-- returned by a previous list request to get the next page of results. ulPageToken :: Lens' UsersList (Maybe Text) ulPageToken   = lens _ulPageToken (\ s a -> s{_ulPageToken = a}) --- | Maximum count of results to be returned.+-- | The maximum number of results per page that should be returned. If the+-- number of available results is larger than maxResults, Compute Engine+-- returns a nextPageToken that can be used to get the next page of results+-- in subsequent list requests. ulMaxResults :: Lens' UsersList Word32 ulMaxResults   = lens _ulMaxResults (\ s a -> s{_ulMaxResults = a})@@ -140,7 +153,12 @@  instance GoogleRequest UsersList where         type Rs UsersList = UserList-        requestClient UsersList{..}+        type Scopes UsersList =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud-platform.read-only",+               "https://www.googleapis.com/auth/cloud.useraccounts",+               "https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+        requestClient UsersList'{..}           = go _ulProject _ulOrderBy _ulFilter _ulPageToken               (Just _ulMaxResults)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.CloudUserAccounts.Users.RemovePublicKey--- 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 @@ -- | Removes the specified public key from the user. -- -- /See:/ 'usersRemovePublicKey' smart constructor.-data UsersRemovePublicKey = UsersRemovePublicKey+data UsersRemovePublicKey = UsersRemovePublicKey'     { _urpkProject     :: !Text     , _urpkFingerprint :: !Text     , _urpkUser        :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'urpkUser'     -> UsersRemovePublicKey usersRemovePublicKey pUrpkProject_ pUrpkFingerprint_ pUrpkUser_ =-    UsersRemovePublicKey+    UsersRemovePublicKey'     { _urpkProject = pUrpkProject_     , _urpkFingerprint = pUrpkFingerprint_     , _urpkUser = pUrpkUser_@@ -104,7 +104,10 @@  instance GoogleRequest UsersRemovePublicKey where         type Rs UsersRemovePublicKey = Operation-        requestClient UsersRemovePublicKey{..}+        type Scopes UsersRemovePublicKey =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloud.useraccounts"]+        requestClient UsersRemovePublicKey'{..}           = go _urpkProject _urpkUser (Just _urpkFingerprint)               (Just AltJSON)               userAccountsService

@@ -7,13 +7,14 @@  -- | -- Module      : Network.Google.UserAccounts--- 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 -- Portability : non-portable (GHC extensions) ----- API for the Google Cloud User Accounts service.+-- Creates and manages users and groups for accessing Google Compute Engine+-- virtual machines. -- -- /See:/ <https://cloud.google.com/compute/docs/access/user-accounts/api/latest/ Cloud User Accounts API Reference> module Network.Google.UserAccounts@@ -21,6 +22,12 @@     -- * Service Configuration       userAccountsService +    -- * OAuth Scopes+    , cloudPlatformReadOnlyScope+    , cloudPlatformScope+    , cloudUserAccountsScope+    , cloudUserAccountsReadOnlyScope+     -- * API Declaration     , UserAccountsAPI @@ -140,6 +147,7 @@     , oId     , oOperationType     , oRegion+    , oDescription     , oTargetLink     , oClientOperationId 

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.UserAccounts.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@@ -21,8 +22,8 @@     -- * OAuth Scopes     , cloudPlatformReadOnlyScope     , cloudPlatformScope-    , cloudUseraccountsScope-    , cloudUseraccountsReadonlyScope+    , cloudUserAccountsScope+    , cloudUserAccountsReadOnlyScope      -- * OperationWarningsItemDataItem     , OperationWarningsItemDataItem@@ -85,6 +86,7 @@     , oId     , oOperationType     , oRegion+    , oDescription     , oTargetLink     , oClientOperationId @@ -197,23 +199,23 @@ import           Network.Google.UserAccounts.Types.Sum  -- | Default request referring to version 'beta' of the Cloud User Accounts API. This contains the host and root path used as a starting point for constructing service requests.-userAccountsService :: Service+userAccountsService :: ServiceConfig userAccountsService   = defaultService (ServiceId "clouduseraccounts:beta")       "www.googleapis.com"  -- | 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;  -- | Manage your Google Cloud User Accounts-cloudUseraccountsScope :: OAuthScope-cloudUseraccountsScope = "https://www.googleapis.com/auth/cloud.useraccounts";+cloudUserAccountsScope :: Proxy '["https://www.googleapis.com/auth/cloud.useraccounts"]+cloudUserAccountsScope = Proxy;  -- | View your Google Cloud User Accounts-cloudUseraccountsReadonlyScope :: OAuthScope-cloudUseraccountsReadonlyScope = "https://www.googleapis.com/auth/cloud.useraccounts.readonly";+cloudUserAccountsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud.useraccounts.readonly"]+cloudUserAccountsReadOnlyScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.UserAccounts.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     }@@ -47,7 +47,13 @@ owidiValue   = lens _owidiValue (\ s a -> s{_owidiValue = a}) --- | [Output Only] A key for the warning data.+-- | [Output Only] A key that provides more detail on the warning being+-- returned. For example, for warnings where there are no results in a list+-- request for a particular zone, this key might be scope and the key value+-- might be the zone name. Other examples might be a key indicating a+-- deprecated resource and a suggested replacement, or a warning about+-- invalid network settings (for example, if an instance attempts to+-- perform IP forwarding but is not enabled for IP forwarding). owidiKey :: Lens' OperationWarningsItemDataItem (Maybe Text) owidiKey = lens _owidiKey (\ s a -> s{_owidiKey = a}) @@ -55,11 +61,11 @@         parseJSON           = withObject "OperationWarningsItemDataItem"               (\ o ->-                 OperationWarningsItemDataItem <$>+                 OperationWarningsItemDataItem' <$>                    (o .:? "value") <*> (o .:? "key"))  instance ToJSON OperationWarningsItemDataItem where-        toJSON OperationWarningsItemDataItem{..}+        toJSON OperationWarningsItemDataItem'{..}           = object               (catMaybes                  [("value" .=) <$> _owidiValue,@@ -68,7 +74,7 @@ -- | Contains a list of Operation resources. -- -- /See:/ 'operationList' smart constructor.-data OperationList = OperationList+data OperationList = OperationList'     { _olNextPageToken :: !(Maybe Text)     , _olKind          :: !Text     , _olItems         :: !(Maybe [Operation])@@ -92,7 +98,7 @@ operationList     :: OperationList operationList =-    OperationList+    OperationList'     { _olNextPageToken = Nothing     , _olKind = "clouduseraccounts#operationList"     , _olItems = Nothing@@ -100,7 +106,11 @@     , _olId = Nothing     } --- | [Output Only] A token used to continue a truncate.+-- | [Output Only] This token allows you to get the next page of results for+-- list requests. If the number of results is larger than maxResults, use+-- the nextPageToken as a value for the query parameter pageToken in the+-- next list request. Subsequent list requests will have their own+-- nextPageToken to continue paging through the results. olNextPageToken :: Lens' OperationList (Maybe Text) olNextPageToken   = lens _olNextPageToken@@ -111,7 +121,7 @@ olKind :: Lens' OperationList Text olKind = lens _olKind (\ s a -> s{_olKind = a}) --- | [Output Only] The Operation resources.+-- | [Output Only] A list of Operation resources. olItems :: Lens' OperationList [Operation] olItems   = lens _olItems (\ s a -> s{_olItems = a}) . _Default@@ -122,7 +132,8 @@ olSelfLink   = lens _olSelfLink (\ s a -> s{_olSelfLink = a}) --- | [Output Only] Unique identifier for the resource; defined by the server.+-- | [Output Only] The unique identifier for the resource. This identifier is+-- defined by the server. olId :: Lens' OperationList (Maybe Text) olId = lens _olId (\ s a -> s{_olId = a}) @@ -130,7 +141,7 @@         parseJSON           = withObject "OperationList"               (\ o ->-                 OperationList <$>+                 OperationList' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "clouduseraccounts#operationList")                      <*> (o .:? "items" .!= mempty)@@ -138,7 +149,7 @@                      <*> (o .:? "id"))  instance ToJSON OperationList where-        toJSON OperationList{..}+        toJSON OperationList'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _olNextPageToken,@@ -149,7 +160,7 @@ -- | A Group resource. -- -- /See:/ 'group'' smart constructor.-data Group = Group+data Group = Group'     { _gKind              :: !Text     , _gMembers           :: !(Maybe [Text])     , _gSelfLink          :: !(Maybe Text)@@ -179,7 +190,7 @@ group'     :: Group group' =-    Group+    Group'     { _gKind = "clouduseraccounts#group"     , _gMembers = Nothing     , _gSelfLink = Nothing@@ -233,7 +244,7 @@         parseJSON           = withObject "Group"               (\ o ->-                 Group <$>+                 Group' <$>                    (o .:? "kind" .!= "clouduseraccounts#group") <*>                      (o .:? "members" .!= mempty)                      <*> (o .:? "selfLink")@@ -243,7 +254,7 @@                      <*> (o .:? "description"))  instance ToJSON Group where-        toJSON Group{..}+        toJSON Group'{..}           = object               (catMaybes                  [Just ("kind" .= _gKind),@@ -256,7 +267,7 @@  -- -- /See:/ 'groupList' smart constructor.-data GroupList = GroupList+data GroupList = GroupList'     { _glNextPageToken :: !(Maybe Text)     , _glKind          :: !Text     , _glItems         :: !(Maybe [Group])@@ -280,7 +291,7 @@ groupList     :: GroupList groupList =-    GroupList+    GroupList'     { _glNextPageToken = Nothing     , _glKind = "clouduseraccounts#groupList"     , _glItems = Nothing@@ -318,7 +329,7 @@         parseJSON           = withObject "GroupList"               (\ o ->-                 GroupList <$>+                 GroupList' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "clouduseraccounts#groupList")                      <*> (o .:? "items" .!= mempty)@@ -326,7 +337,7 @@                      <*> (o .:? "id"))  instance ToJSON GroupList where-        toJSON GroupList{..}+        toJSON GroupList'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _glNextPageToken,@@ -337,7 +348,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 OperationStatus)     , _oInsertTime          :: !(Maybe Text)@@ -358,6 +369,7 @@     , _oId                  :: !(Maybe (Textual Word64))     , _oOperationType       :: !(Maybe Text)     , _oRegion              :: !(Maybe Text)+    , _oDescription         :: !(Maybe Text)     , _oTargetLink          :: !(Maybe Text)     , _oClientOperationId   :: !(Maybe Text)     } deriving (Eq,Show,Data,Typeable,Generic)@@ -406,13 +418,15 @@ -- -- * 'oRegion' --+-- * 'oDescription'+-- -- * 'oTargetLink' -- -- * 'oClientOperationId' operation     :: Operation operation =-    Operation+    Operation'     { _oTargetId = Nothing     , _oStatus = Nothing     , _oInsertTime = Nothing@@ -433,40 +447,41 @@     , _oId = Nothing     , _oOperationType = Nothing     , _oRegion = Nothing+    , _oDescription = Nothing     , _oTargetLink = Nothing     , _oClientOperationId = Nothing     } --- | [Output Only] Unique target ID which identifies a particular incarnation--- of the target.+-- | [Output Only] The unique target ID, which identifies a specific+-- incarnation of the target resource. oTargetId :: Lens' Operation (Maybe Word64) oTargetId   = lens _oTargetId (\ s a -> s{_oTargetId = a}) .       mapping _Coerce --- | [Output Only] Status of the operation. Can be one of the following:--- PENDING, RUNNING, or DONE.+-- | [Output Only] The status of the operation, which can be one of the+-- following: PENDING, RUNNING, or DONE. oStatus :: Lens' Operation (Maybe OperationStatus) oStatus = lens _oStatus (\ s a -> s{_oStatus = a}) --- | [Output Only] The time that this operation was requested. This is in--- RFC3339 text format.+-- | [Output Only] The time that this operation was requested. This value is+-- in RFC3339 text format. oInsertTime :: Lens' Operation (Maybe Text) oInsertTime   = lens _oInsertTime (\ s a -> s{_oInsertTime = a})  -- | [Output Only] An optional progress indicator that ranges from 0 to 100. -- There is no requirement that this be linear or support any granularity--- of operations. This should not be used to guess at when the operation--- will be complete. This number should monotonically increase as the--- operation progresses.+-- of operations. This should not be used to guess when the operation will+-- be complete. This number should monotonically increase as the operation+-- progresses. oProgress :: Lens' Operation (Maybe Int32) oProgress   = lens _oProgress (\ s a -> s{_oProgress = a}) .       mapping _Coerce  -- | [Output Only] The time that this operation was started by the server.--- This is in RFC3339 text format.+-- This value is in RFC3339 text format. oStartTime :: Lens' Operation (Maybe Text) oStartTime   = lens _oStartTime (\ s a -> s{_oStartTime = a})@@ -488,7 +503,8 @@   = lens _oHTTPErrorMessage       (\ s a -> s{_oHTTPErrorMessage = a}) --- | [Output Only] URL of the zone where the operation resides.+-- | [Output Only] The URL of the zone where the operation resides. Only+-- available when performing per-zone operations. oZone :: Lens' Operation (Maybe Text) oZone = lens _oZone (\ s a -> s{_oZone = a}) @@ -501,7 +517,8 @@       . _Coerce  -- | [Output Only] If the operation fails, this field contains the HTTP error--- message that was returned, such as 404.+-- status code that was returned. For example, a 404 means the resource was+-- not found. oHTTPErrorStatusCode :: Lens' Operation (Maybe Int32) oHTTPErrorStatusCode   = lens _oHTTPErrorStatusCode@@ -535,36 +552,41 @@   = lens _oCreationTimestamp       (\ s a -> s{_oCreationTimestamp = a}) --- | [Output Only] The time that this operation was completed. This is in--- RFC3339 text format.+-- | [Output Only] The time that this operation was completed. This value is+-- in RFC3339 text format. oEndTime :: Lens' Operation (Maybe Text) oEndTime = lens _oEndTime (\ s a -> s{_oEndTime = a}) --- | [Output Only] Unique identifier for the resource; defined by the server.+-- | [Output Only] The unique identifier for the resource. This identifier is+-- defined by the server. oId :: Lens' Operation (Maybe Word64) oId   = lens _oId (\ s a -> s{_oId = a}) . mapping _Coerce --- | [Output Only] Type of the operation, such as insert,--- compute.instanceGroups.update, or compute.instanceGroups.delete.+-- | [Output Only] The type of operation, such as insert, update, or delete,+-- and so on. oOperationType :: Lens' Operation (Maybe Text) oOperationType   = lens _oOperationType       (\ s a -> s{_oOperationType = a}) --- | [Output Only] URL of the region where the operation resides. Only--- applicable for regional resources.+-- | [Output Only] The URL of the region where the operation resides. Only+-- available when performing regional operations. oRegion :: Lens' Operation (Maybe Text) oRegion = lens _oRegion (\ s a -> s{_oRegion = a}) --- | [Output Only] URL of the resource the operation is mutating.+-- | [Output Only] A textual description of the operation, which is set when+-- the operation is created.+oDescription :: Lens' Operation (Maybe Text)+oDescription+  = lens _oDescription (\ s a -> s{_oDescription = a})++-- | [Output Only] The URL of the resource that the operation modifies. oTargetLink :: Lens' Operation (Maybe Text) oTargetLink   = lens _oTargetLink (\ s a -> s{_oTargetLink = a}) --- | [Output Only] An optional identifier specified by the client when the--- mutation was initiated. Must be unique for all Operation resources in--- the project.+-- | [Output Only] Reserved for future use. oClientOperationId :: Lens' Operation (Maybe Text) oClientOperationId   = lens _oClientOperationId@@ -574,7 +596,7 @@         parseJSON           = withObject "Operation"               (\ o ->-                 Operation <$>+                 Operation' <$>                    (o .:? "targetId") <*> (o .:? "status") <*>                      (o .:? "insertTime")                      <*> (o .:? "progress")@@ -594,11 +616,12 @@                      <*> (o .:? "id")                      <*> (o .:? "operationType")                      <*> (o .:? "region")+                     <*> (o .:? "description")                      <*> (o .:? "targetLink")                      <*> (o .:? "clientOperationId"))  instance ToJSON Operation where-        toJSON Operation{..}+        toJSON Operation'{..}           = object               (catMaybes                  [("targetId" .=) <$> _oTargetId,@@ -619,12 +642,13 @@                   ("endTime" .=) <$> _oEndTime, ("id" .=) <$> _oId,                   ("operationType" .=) <$> _oOperationType,                   ("region" .=) <$> _oRegion,+                  ("description" .=) <$> _oDescription,                   ("targetLink" .=) <$> _oTargetLink,                   ("clientOperationId" .=) <$> _oClientOperationId])  -- -- /See:/ 'userList' smart constructor.-data UserList = UserList+data UserList = UserList'     { _ulNextPageToken :: !(Maybe Text)     , _ulKind          :: !Text     , _ulItems         :: !(Maybe [User])@@ -648,7 +672,7 @@ userList     :: UserList userList =-    UserList+    UserList'     { _ulNextPageToken = Nothing     , _ulKind = "clouduseraccounts#userList"     , _ulItems = Nothing@@ -686,7 +710,7 @@         parseJSON           = withObject "UserList"               (\ o ->-                 UserList <$>+                 UserList' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "clouduseraccounts#userList")                      <*> (o .:? "items" .!= mempty)@@ -694,7 +718,7 @@                      <*> (o .:? "id"))  instance ToJSON UserList where-        toJSON UserList{..}+        toJSON UserList'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _ulNextPageToken,@@ -705,7 +729,7 @@ -- | A public key for authenticating to guests. -- -- /See:/ 'publicKey' smart constructor.-data PublicKey = PublicKey+data PublicKey = PublicKey'     { _pkFingerprint         :: !(Maybe Text)     , _pkKey                 :: !(Maybe Text)     , _pkCreationTimestamp   :: !(Maybe Text)@@ -729,7 +753,7 @@ publicKey     :: PublicKey publicKey =-    PublicKey+    PublicKey'     { _pkFingerprint = Nothing     , _pkKey = Nothing     , _pkCreationTimestamp = Nothing@@ -772,14 +796,14 @@         parseJSON           = withObject "PublicKey"               (\ o ->-                 PublicKey <$>+                 PublicKey' <$>                    (o .:? "fingerprint") <*> (o .:? "key") <*>                      (o .:? "creationTimestamp")                      <*> (o .:? "expirationTimestamp")                      <*> (o .:? "description"))  instance ToJSON PublicKey where-        toJSON PublicKey{..}+        toJSON PublicKey'{..}           = object               (catMaybes                  [("fingerprint" .=) <$> _pkFingerprint,@@ -795,7 +819,7 @@ -- users and groups managed by the Compute Engine Accounts API. -- -- /See:/ 'linuxAccountViews' smart constructor.-data LinuxAccountViews = LinuxAccountViews+data LinuxAccountViews = LinuxAccountViews'     { _lavUserViews  :: !(Maybe [LinuxUserView])     , _lavKind       :: !Text     , _lavGroupViews :: !(Maybe [LinuxGroupView])@@ -813,7 +837,7 @@ linuxAccountViews     :: LinuxAccountViews linuxAccountViews =-    LinuxAccountViews+    LinuxAccountViews'     { _lavUserViews = Nothing     , _lavKind = "clouduseraccounts#linuxAccountViews"     , _lavGroupViews = Nothing@@ -843,14 +867,14 @@         parseJSON           = withObject "LinuxAccountViews"               (\ o ->-                 LinuxAccountViews <$>+                 LinuxAccountViews' <$>                    (o .:? "userViews" .!= mempty) <*>                      (o .:? "kind" .!=                         "clouduseraccounts#linuxAccountViews")                      <*> (o .:? "groupViews" .!= mempty))  instance ToJSON LinuxAccountViews where-        toJSON LinuxAccountViews{..}+        toJSON LinuxAccountViews'{..}           = object               (catMaybes                  [("userViews" .=) <$> _lavUserViews,@@ -860,7 +884,7 @@ -- | A User resource. -- -- /See:/ 'user' smart constructor.-data User = User+data User = User'     { _uGroups            :: !(Maybe [Text])     , _uPublicKeys        :: !(Maybe [PublicKey])     , _uKind              :: !Text@@ -896,7 +920,7 @@ user     :: User user =-    User+    User'     { _uGroups = Nothing     , _uPublicKeys = Nothing     , _uKind = "clouduseraccounts#user"@@ -964,7 +988,7 @@         parseJSON           = withObject "User"               (\ o ->-                 User <$>+                 User' <$>                    (o .:? "groups" .!= mempty) <*>                      (o .:? "publicKeys" .!= mempty)                      <*> (o .:? "kind" .!= "clouduseraccounts#user")@@ -976,7 +1000,7 @@                      <*> (o .:? "description"))  instance ToJSON User where-        toJSON User{..}+        toJSON User'{..}           = object               (catMaybes                  [("groups" .=) <$> _uGroups,@@ -990,7 +1014,7 @@  -- -- /See:/ 'groupsAddMemberRequest' smart constructor.-newtype GroupsAddMemberRequest = GroupsAddMemberRequest+newtype GroupsAddMemberRequest = GroupsAddMemberRequest'     { _gamrUsers :: Maybe [Text]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1002,7 +1026,7 @@ groupsAddMemberRequest     :: GroupsAddMemberRequest groupsAddMemberRequest =-    GroupsAddMemberRequest+    GroupsAddMemberRequest'     { _gamrUsers = Nothing     } @@ -1017,17 +1041,17 @@         parseJSON           = withObject "GroupsAddMemberRequest"               (\ o ->-                 GroupsAddMemberRequest <$>+                 GroupsAddMemberRequest' <$>                    (o .:? "users" .!= mempty))  instance ToJSON GroupsAddMemberRequest where-        toJSON GroupsAddMemberRequest{..}+        toJSON GroupsAddMemberRequest'{..}           = object (catMaybes [("users" .=) <$> _gamrUsers])  -- | A detailed view of a Linux group. -- -- /See:/ 'linuxGroupView' smart constructor.-data LinuxGroupView = LinuxGroupView+data LinuxGroupView = LinuxGroupView'     { _lgvMembers   :: !(Maybe [Text])     , _lgvGid       :: !(Maybe (Textual Word32))     , _lgvGroupName :: !(Maybe Text)@@ -1045,7 +1069,7 @@ linuxGroupView     :: LinuxGroupView linuxGroupView =-    LinuxGroupView+    LinuxGroupView'     { _lgvMembers = Nothing     , _lgvGid = Nothing     , _lgvGroupName = Nothing@@ -1073,12 +1097,12 @@         parseJSON           = withObject "LinuxGroupView"               (\ o ->-                 LinuxGroupView <$>+                 LinuxGroupView' <$>                    (o .:? "members" .!= mempty) <*> (o .:? "gid") <*>                      (o .:? "groupName"))  instance ToJSON LinuxGroupView where-        toJSON LinuxGroupView{..}+        toJSON LinuxGroupView'{..}           = object               (catMaybes                  [("members" .=) <$> _lgvMembers,@@ -1088,7 +1112,7 @@ -- | A detailed view of a Linux user account. -- -- /See:/ 'linuxUserView' smart constructor.-data LinuxUserView = LinuxUserView+data LinuxUserView = LinuxUserView'     { _luvGecos         :: !(Maybe Text)     , _luvUid           :: !(Maybe (Textual Word32))     , _luvUsername      :: !(Maybe Text)@@ -1115,7 +1139,7 @@ linuxUserView     :: LinuxUserView linuxUserView =-    LinuxUserView+    LinuxUserView'     { _luvGecos = Nothing     , _luvUid = Nothing     , _luvUsername = Nothing@@ -1159,7 +1183,7 @@         parseJSON           = withObject "LinuxUserView"               (\ o ->-                 LinuxUserView <$>+                 LinuxUserView' <$>                    (o .:? "gecos") <*> (o .:? "uid") <*>                      (o .:? "username")                      <*> (o .:? "shell")@@ -1167,7 +1191,7 @@                      <*> (o .:? "homeDirectory"))  instance ToJSON LinuxUserView where-        toJSON LinuxUserView{..}+        toJSON LinuxUserView'{..}           = object               (catMaybes                  [("gecos" .=) <$> _luvGecos, ("uid" .=) <$> _luvUid,@@ -1177,7 +1201,7 @@  -- -- /See:/ 'linuxGetLinuxAccountViewsResponse' smart constructor.-newtype LinuxGetLinuxAccountViewsResponse = LinuxGetLinuxAccountViewsResponse+newtype LinuxGetLinuxAccountViewsResponse = LinuxGetLinuxAccountViewsResponse'     { _lglavrResource :: Maybe LinuxAccountViews     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1189,7 +1213,7 @@ linuxGetLinuxAccountViewsResponse     :: LinuxGetLinuxAccountViewsResponse linuxGetLinuxAccountViewsResponse =-    LinuxGetLinuxAccountViewsResponse+    LinuxGetLinuxAccountViewsResponse'     { _lglavrResource = Nothing     } @@ -1204,12 +1228,12 @@         parseJSON           = withObject "LinuxGetLinuxAccountViewsResponse"               (\ o ->-                 LinuxGetLinuxAccountViewsResponse <$>+                 LinuxGetLinuxAccountViewsResponse' <$>                    (o .:? "resource"))  instance ToJSON LinuxGetLinuxAccountViewsResponse          where-        toJSON LinuxGetLinuxAccountViewsResponse{..}+        toJSON LinuxGetLinuxAccountViewsResponse'{..}           = object               (catMaybes [("resource" .=) <$> _lglavrResource]) @@ -1217,7 +1241,7 @@ -- operation, this field will be populated. -- -- /See:/ 'operationError' smart constructor.-newtype OperationError = OperationError+newtype OperationError = OperationError'     { _oeErrors :: Maybe [OperationErrorErrorsItem]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1229,7 +1253,7 @@ operationError     :: OperationError operationError =-    OperationError+    OperationError'     { _oeErrors = Nothing     } @@ -1245,15 +1269,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:/ 'linuxGetAuthorizedKeysViewResponse' smart constructor.-newtype LinuxGetAuthorizedKeysViewResponse = LinuxGetAuthorizedKeysViewResponse+newtype LinuxGetAuthorizedKeysViewResponse = LinuxGetAuthorizedKeysViewResponse'     { _lgakvrResource :: Maybe AuthorizedKeysView     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1265,7 +1289,7 @@ linuxGetAuthorizedKeysViewResponse     :: LinuxGetAuthorizedKeysViewResponse linuxGetAuthorizedKeysViewResponse =-    LinuxGetAuthorizedKeysViewResponse+    LinuxGetAuthorizedKeysViewResponse'     { _lgakvrResource = Nothing     } @@ -1280,18 +1304,18 @@         parseJSON           = withObject "LinuxGetAuthorizedKeysViewResponse"               (\ o ->-                 LinuxGetAuthorizedKeysViewResponse <$>+                 LinuxGetAuthorizedKeysViewResponse' <$>                    (o .:? "resource"))  instance ToJSON LinuxGetAuthorizedKeysViewResponse          where-        toJSON LinuxGetAuthorizedKeysViewResponse{..}+        toJSON LinuxGetAuthorizedKeysViewResponse'{..}           = object               (catMaybes [("resource" .=) <$> _lgakvrResource])  -- -- /See:/ 'operationErrorErrorsItem' smart constructor.-data OperationErrorErrorsItem = OperationErrorErrorsItem+data OperationErrorErrorsItem = OperationErrorErrorsItem'     { _oeeiLocation :: !(Maybe Text)     , _oeeiCode     :: !(Maybe Text)     , _oeeiMessage  :: !(Maybe Text)@@ -1309,13 +1333,13 @@ operationErrorErrorsItem     :: OperationErrorErrorsItem operationErrorErrorsItem =-    OperationErrorErrorsItem+    OperationErrorErrorsItem'     { _oeeiLocation = Nothing     , _oeeiCode = Nothing     , _oeeiMessage = Nothing     } --- | [Output Only] Indicates the field in the request which caused the error.+-- | [Output Only] Indicates the field in the request that caused the error. -- This property is optional. oeeiLocation :: Lens' OperationErrorErrorsItem (Maybe Text) oeeiLocation@@ -1334,12 +1358,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,@@ -1348,7 +1372,7 @@  -- -- /See:/ 'groupsRemoveMemberRequest' smart constructor.-newtype GroupsRemoveMemberRequest = GroupsRemoveMemberRequest+newtype GroupsRemoveMemberRequest = GroupsRemoveMemberRequest'     { _grmrUsers :: Maybe [Text]     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1360,7 +1384,7 @@ groupsRemoveMemberRequest     :: GroupsRemoveMemberRequest groupsRemoveMemberRequest =-    GroupsRemoveMemberRequest+    GroupsRemoveMemberRequest'     { _grmrUsers = Nothing     } @@ -1375,17 +1399,17 @@         parseJSON           = withObject "GroupsRemoveMemberRequest"               (\ o ->-                 GroupsRemoveMemberRequest <$>+                 GroupsRemoveMemberRequest' <$>                    (o .:? "users" .!= mempty))  instance ToJSON GroupsRemoveMemberRequest where-        toJSON GroupsRemoveMemberRequest{..}+        toJSON GroupsRemoveMemberRequest'{..}           = object (catMaybes [("users" .=) <$> _grmrUsers])  -- | A list of authorized public keys for a user account. -- -- /See:/ 'authorizedKeysView' smart constructor.-data AuthorizedKeysView = AuthorizedKeysView+data AuthorizedKeysView = AuthorizedKeysView'     { _akvSudoer :: !(Maybe Bool)     , _akvKeys   :: !(Maybe [Text])     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1400,7 +1424,7 @@ authorizedKeysView     :: AuthorizedKeysView authorizedKeysView =-    AuthorizedKeysView+    AuthorizedKeysView'     { _akvSudoer = Nothing     , _akvKeys = Nothing     }@@ -1421,11 +1445,11 @@         parseJSON           = withObject "AuthorizedKeysView"               (\ o ->-                 AuthorizedKeysView <$>+                 AuthorizedKeysView' <$>                    (o .:? "sudoer") <*> (o .:? "keys" .!= mempty))  instance ToJSON AuthorizedKeysView where-        toJSON AuthorizedKeysView{..}+        toJSON AuthorizedKeysView'{..}           = object               (catMaybes                  [("sudoer" .=) <$> _akvSudoer,@@ -1433,7 +1457,7 @@  -- -- /See:/ 'operationWarningsItem' smart constructor.-data OperationWarningsItem = OperationWarningsItem+data OperationWarningsItem = OperationWarningsItem'     { _owiData    :: !(Maybe [OperationWarningsItemDataItem])     , _owiCode    :: !(Maybe OperationWarningsItemCode)     , _owiMessage :: !(Maybe Text)@@ -1451,23 +1475,26 @@ operationWarningsItem     :: OperationWarningsItem operationWarningsItem =-    OperationWarningsItem+    OperationWarningsItem'     { _owiData = Nothing     , _owiCode = Nothing     , _owiMessage = Nothing     } --- | [Output Only] Metadata for this warning in key: value format.+-- | [Output Only] Metadata about this warning in key: value format. For+-- example: \"data\": [ { \"key\": \"scope\", \"value\":+-- \"zones\/us-east1-d\" } owiData :: Lens' OperationWarningsItem [OperationWarningsItemDataItem] owiData   = lens _owiData (\ s a -> s{_owiData = a}) . _Default       . _Coerce --- | [Output Only] The warning type identifier for this warning.+-- | [Output Only] A warning code, if applicable. For example, Compute Engine+-- returns NO_RESULTS_ON_PAGE if there are no results in the response. owiCode :: Lens' OperationWarningsItem (Maybe OperationWarningsItemCode) owiCode = lens _owiCode (\ s a -> s{_owiCode = a}) --- | [Output Only] Optional human-readable details for this warning.+-- | [Output Only] A human-readable description of the warning code. owiMessage :: Lens' OperationWarningsItem (Maybe Text) owiMessage   = lens _owiMessage (\ s a -> s{_owiMessage = a})@@ -1476,12 +1503,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.UserAccounts.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@@ -18,9 +18,12 @@  import           Network.Google.Prelude --- | [Output Only] The warning type identifier for this warning.+-- | [Output Only] A warning code, if applicable. For example, Compute Engine+-- returns NO_RESULTS_ON_PAGE if there are no results in the response. data OperationWarningsItemCode-    = DeprecatedResourceUsed+    = CleanupFailed+      -- ^ @CLEANUP_FAILED@+    | DeprecatedResourceUsed       -- ^ @DEPRECATED_RESOURCE_USED@     | DiskSizeLargerThanImageSize       -- ^ @DISK_SIZE_LARGER_THAN_IMAGE_SIZE@@@ -48,30 +51,32 @@       -- ^ @SINGLE_INSTANCE_PROPERTY_TEMPLATE@     | Unreachable       -- ^ @UNREACHABLE@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable OperationWarningsItemCode -instance FromText OperationWarningsItemCode where-    fromText = \case-        "DEPRECATED_RESOURCE_USED" -> Just DeprecatedResourceUsed-        "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Just DiskSizeLargerThanImageSize-        "INJECTED_KERNELS_DEPRECATED" -> Just InjectedKernelsDeprecated-        "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Just NextHopAddressNotAssigned-        "NEXT_HOP_CANNOT_IP_FORWARD" -> Just NextHopCannotIPForward-        "NEXT_HOP_INSTANCE_NOT_FOUND" -> Just NextHopInstanceNotFound-        "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Just NextHopInstanceNotOnNetwork-        "NEXT_HOP_NOT_RUNNING" -> Just NextHopNotRunning-        "NOT_CRITICAL_ERROR" -> Just NotCriticalError-        "NO_RESULTS_ON_PAGE" -> Just NoResultsOnPage-        "REQUIRED_TOS_AGREEMENT" -> Just RequiredTosAgreement-        "RESOURCE_NOT_DELETED" -> Just ResourceNotDeleted-        "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Just SingleInstancePropertyTemplate-        "UNREACHABLE" -> Just Unreachable-        _ -> Nothing+instance FromHttpApiData OperationWarningsItemCode where+    parseQueryParam = \case+        "CLEANUP_FAILED" -> Right CleanupFailed+        "DEPRECATED_RESOURCE_USED" -> Right DeprecatedResourceUsed+        "DISK_SIZE_LARGER_THAN_IMAGE_SIZE" -> Right DiskSizeLargerThanImageSize+        "INJECTED_KERNELS_DEPRECATED" -> Right InjectedKernelsDeprecated+        "NEXT_HOP_ADDRESS_NOT_ASSIGNED" -> Right NextHopAddressNotAssigned+        "NEXT_HOP_CANNOT_IP_FORWARD" -> Right NextHopCannotIPForward+        "NEXT_HOP_INSTANCE_NOT_FOUND" -> Right NextHopInstanceNotFound+        "NEXT_HOP_INSTANCE_NOT_ON_NETWORK" -> Right NextHopInstanceNotOnNetwork+        "NEXT_HOP_NOT_RUNNING" -> Right NextHopNotRunning+        "NOT_CRITICAL_ERROR" -> Right NotCriticalError+        "NO_RESULTS_ON_PAGE" -> Right NoResultsOnPage+        "REQUIRED_TOS_AGREEMENT" -> Right RequiredTosAgreement+        "RESOURCE_NOT_DELETED" -> Right ResourceNotDeleted+        "SINGLE_INSTANCE_PROPERTY_TEMPLATE" -> Right SingleInstancePropertyTemplate+        "UNREACHABLE" -> Right Unreachable+        x -> Left ("Unable to parse OperationWarningsItemCode from: " <> x) -instance ToText OperationWarningsItemCode where-    toText = \case+instance ToHttpApiData OperationWarningsItemCode where+    toQueryParam = \case+        CleanupFailed -> "CLEANUP_FAILED"         DeprecatedResourceUsed -> "DEPRECATED_RESOURCE_USED"         DiskSizeLargerThanImageSize -> "DISK_SIZE_LARGER_THAN_IMAGE_SIZE"         InjectedKernelsDeprecated -> "INJECTED_KERNELS_DEPRECATED"@@ -93,8 +98,8 @@ instance ToJSON OperationWarningsItemCode where     toJSON = toJSONText --- | [Output Only] Status of the operation. Can be one of the following:--- PENDING, RUNNING, or DONE.+-- | [Output Only] The status of the operation, which can be one of the+-- following: PENDING, RUNNING, or DONE. data OperationStatus     = Done       -- ^ @DONE@@@ -102,19 +107,19 @@       -- ^ @PENDING@     | Running       -- ^ @RUNNING@-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable OperationStatus -instance FromText OperationStatus where-    fromText = \case-        "DONE" -> Just Done-        "PENDING" -> Just Pending-        "RUNNING" -> Just Running-        _ -> Nothing+instance FromHttpApiData OperationStatus where+    parseQueryParam = \case+        "DONE" -> Right Done+        "PENDING" -> Right Pending+        "RUNNING" -> Right Running+        x -> Left ("Unable to parse OperationStatus from: " <> x) -instance ToText OperationStatus where-    toText = \case+instance ToHttpApiData OperationStatus where+    toQueryParam = \case         Done -> "DONE"         Pending -> "PENDING"         Running -> "RUNNING"

@@ -1,5 +1,5 @@ name:                  gogol-useraccounts-version:               0.0.1+version:               0.1.0 synopsis:              Google Cloud User Accounts SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,14 +7,15 @@ 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 extra-source-files:    README.md  description:-    API for the Google Cloud User Accounts service.+    Creates and manages users and groups for accessing Google Compute Engine+    virtual machines.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -58,5 +59,5 @@         , Network.Google.UserAccounts.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5