gogol-cloudidentity 0.4.0 → 0.5.0

raw patch · 17 files changed

+248/−136 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 +1/−1
• gen/Network/Google/CloudIdentity.hs +4/−0
• gen/Network/Google/CloudIdentity/Types.hs +14/−0
• gen/Network/Google/CloudIdentity/Types/Product.hs +106/−79
• gen/Network/Google/Resource/CloudIdentity/Groups/Create.hs +9/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Delete.hs +9/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Get.hs +10/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/List.hs +12/−6
• gen/Network/Google/Resource/CloudIdentity/Groups/Lookup.hs +10/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Memberships/Create.hs +9/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Memberships/Delete.hs +9/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Memberships/Get.hs +10/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Memberships/List.hs +12/−6
• gen/Network/Google/Resource/CloudIdentity/Groups/Memberships/Lookup.hs +10/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Patch.hs +9/−4
• gen/Network/Google/Resource/CloudIdentity/Groups/Search.hs +12/−6
• gogol-cloudidentity.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -21,6 +21,10 @@     -- * Service Configuration       cloudIdentityService +    -- * OAuth Scopes+    , cloudIdentityGroupsReadOnlyScope+    , cloudIdentityGroupsScope+     -- * API Declaration     , CloudIdentityAPI 

@@ -19,6 +19,10 @@     -- * Service Configuration       cloudIdentityService +    -- * OAuth Scopes+    , cloudIdentityGroupsReadOnlyScope+    , cloudIdentityGroupsScope+     -- * LookupMembershipNameResponse     , LookupMembershipNameResponse     , lookupMembershipNameResponse@@ -128,3 +132,13 @@ cloudIdentityService   = defaultService (ServiceId "cloudidentity:v1")       "cloudidentity.googleapis.com"++-- | See any Cloud Identity Groups that you can access, including group+-- members and their emails+cloudIdentityGroupsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/cloud-identity.groups.readonly"]+cloudIdentityGroupsReadOnlyScope = Proxy++-- | See, change, create, and delete any of the Cloud Identity Groups that+-- you can access, including the members of each group+cloudIdentityGroupsScope :: Proxy '["https://www.googleapis.com/auth/cloud-identity.groups"]+cloudIdentityGroupsScope = Proxy

@@ -22,10 +22,13 @@  -- -- /See:/ 'lookupMembershipNameResponse' smart constructor.-newtype LookupMembershipNameResponse = LookupMembershipNameResponse'+newtype LookupMembershipNameResponse =+  LookupMembershipNameResponse'     { _lmnrName :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LookupMembershipNameResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -34,10 +37,9 @@ lookupMembershipNameResponse     :: LookupMembershipNameResponse lookupMembershipNameResponse =-    LookupMembershipNameResponse'-    { _lmnrName = Nothing-    }+  LookupMembershipNameResponse' {_lmnrName = Nothing} + -- | [Resource -- name](https:\/\/cloud.google.com\/apis\/design\/resource_names) of the -- Membership being looked up. Format:@@ -94,12 +96,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor.-data Status = Status'+data Status =+  Status'     { _sDetails :: !(Maybe [StatusDetailsItem])     , _sCode    :: !(Maybe (Textual Int32))     , _sMessage :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,13 +116,9 @@ -- * 'sMessage' status     :: Status-status =-    Status'-    { _sDetails = Nothing-    , _sCode = Nothing-    , _sMessage = Nothing-    }+status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem]@@ -157,7 +158,8 @@ -- | Resource representing a Group. -- -- /See:/ 'group'' smart constructor.-data Group = Group'+data Group =+  Group'     { _gParent      :: !(Maybe Text)     , _gGroupKey    :: !(Maybe EntityKey)     , _gUpdateTime  :: !(Maybe DateTime')@@ -166,8 +168,10 @@     , _gLabels      :: !(Maybe GroupLabels)     , _gDescription :: !(Maybe Text)     , _gCreateTime  :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Group' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -190,7 +194,7 @@ group'     :: Group group' =-    Group'+  Group'     { _gParent = Nothing     , _gGroupKey = Nothing     , _gUpdateTime = Nothing@@ -201,6 +205,7 @@     , _gCreateTime = Nothing     } + -- | The entity under which this Group resides in Cloud Identity resource -- hierarchy. Must be set when creating a Group, read-only afterwards. -- Currently allowed types: \`identitysources\`.@@ -281,14 +286,17 @@ -- | Resource representing a Membership within a Group -- -- /See:/ 'membership' smart constructor.-data Membership = Membership'+data Membership =+  Membership'     { _mRoles              :: !(Maybe [MembershipRole])     , _mUpdateTime         :: !(Maybe DateTime')     , _mName               :: !(Maybe Text)     , _mPreferredMemberKey :: !(Maybe EntityKey)     , _mCreateTime         :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Membership' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -305,7 +313,7 @@ membership     :: Membership membership =-    Membership'+  Membership'     { _mRoles = Nothing     , _mUpdateTime = Nothing     , _mName = Nothing@@ -313,6 +321,7 @@     , _mCreateTime = Nothing     } + -- | Roles for a member within the Group. Currently supported -- MembershipRoles: \`\"MEMBER\"\`. mRoles :: Lens' Membership [MembershipRole]@@ -374,14 +383,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor.-data Operation = Operation'+data Operation =+  Operation'     { _oDone     :: !(Maybe Bool)     , _oError    :: !(Maybe Status)     , _oResponse :: !(Maybe OperationResponse)     , _oName     :: !(Maybe Text)     , _oMetadata :: !(Maybe OperationMetadata)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -398,7 +410,7 @@ operation     :: Operation operation =-    Operation'+  Operation'     { _oDone = Nothing     , _oError = Nothing     , _oResponse = Nothing@@ -406,6 +418,7 @@     , _oMetadata = Nothing     } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available.@@ -464,11 +477,14 @@ -- | Response message for ListGroups operation. -- -- /See:/ 'listGroupsResponse' smart constructor.-data ListGroupsResponse = ListGroupsResponse'+data ListGroupsResponse =+  ListGroupsResponse'     { _lgrGroups        :: !(Maybe [Group])     , _lgrNextPageToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -479,11 +495,9 @@ listGroupsResponse     :: ListGroupsResponse listGroupsResponse =-    ListGroupsResponse'-    { _lgrGroups = Nothing-    , _lgrNextPageToken = Nothing-    }+  ListGroupsResponse' {_lgrGroups = Nothing, _lgrNextPageToken = Nothing} + -- | Groups returned in response to list request. The results are not sorted. lgrGroups :: Lens' ListGroupsResponse [Group] lgrGroups@@ -515,10 +529,13 @@  -- -- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem = StatusDetailsItem'+newtype StatusDetailsItem =+  StatusDetailsItem'     { _sdiAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -528,10 +545,9 @@     :: HashMap Text JSONValue -- ^ 'sdiAddtional'     -> StatusDetailsItem statusDetailsItem pSdiAddtional_ =-    StatusDetailsItem'-    { _sdiAddtional = _Coerce # pSdiAddtional_-    }+  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional@@ -549,10 +565,13 @@ -- | Resource representing a role within a Membership. -- -- /See:/ 'membershipRole' smart constructor.-newtype MembershipRole = MembershipRole'+newtype MembershipRole =+  MembershipRole'     { _mrName :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'MembershipRole' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -560,11 +579,9 @@ -- * 'mrName' membershipRole     :: MembershipRole-membershipRole =-    MembershipRole'-    { _mrName = Nothing-    }+membershipRole = MembershipRole' {_mrName = Nothing} + -- | MembershipRole in string format. Currently supported MembershipRoles: -- \`\"MEMBER\"\`. mrName :: Lens' MembershipRole (Maybe Text)@@ -581,10 +598,13 @@  -- -- /See:/ 'lookupGroupNameResponse' smart constructor.-newtype LookupGroupNameResponse = LookupGroupNameResponse'+newtype LookupGroupNameResponse =+  LookupGroupNameResponse'     { _lgnrName :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LookupGroupNameResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -592,11 +612,9 @@ -- * 'lgnrName' lookupGroupNameResponse     :: LookupGroupNameResponse-lookupGroupNameResponse =-    LookupGroupNameResponse'-    { _lgnrName = Nothing-    }+lookupGroupNameResponse = LookupGroupNameResponse' {_lgnrName = Nothing} + -- | [Resource -- name](https:\/\/cloud.google.com\/apis\/design\/resource_names) of the -- Group in the format: \`groups\/{group_id}\`, where \`group_id\` is the@@ -615,11 +633,14 @@  -- -- /See:/ 'searchGroupsResponse' smart constructor.-data SearchGroupsResponse = SearchGroupsResponse'+data SearchGroupsResponse =+  SearchGroupsResponse'     { _sgrGroups        :: !(Maybe [Group])     , _sgrNextPageToken :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -630,11 +651,9 @@ searchGroupsResponse     :: SearchGroupsResponse searchGroupsResponse =-    SearchGroupsResponse'-    { _sgrGroups = Nothing-    , _sgrNextPageToken = Nothing-    }+  SearchGroupsResponse' {_sgrGroups = Nothing, _sgrNextPageToken = Nothing} + -- | List of Groups satisfying the search query. sgrGroups :: Lens' SearchGroupsResponse [Group] sgrGroups@@ -669,11 +688,14 @@ -- but the combination of a namespace and an ID must be unique. -- -- /See:/ 'entityKey' smart constructor.-data EntityKey = EntityKey'+data EntityKey =+  EntityKey'     { _ekNamespace :: !(Maybe Text)     , _ekId        :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EntityKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -683,12 +705,9 @@ -- * 'ekId' entityKey     :: EntityKey-entityKey =-    EntityKey'-    { _ekNamespace = Nothing-    , _ekId = Nothing-    }+entityKey = EntityKey' {_ekNamespace = Nothing, _ekId = Nothing} + -- | Namespaces provide isolation for IDs, so an ID only needs to be unique -- within its namespace. Namespaces are currently only created as part of -- IdentitySource creation from Admin Console. A namespace@@ -721,10 +740,13 @@ -- label value as empty. -- -- /See:/ 'groupLabels' smart constructor.-newtype GroupLabels = GroupLabels'+newtype GroupLabels =+  GroupLabels'     { _glAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -734,10 +756,9 @@     :: HashMap Text Text -- ^ 'glAddtional'     -> GroupLabels groupLabels pGlAddtional_ =-    GroupLabels'-    { _glAddtional = _Coerce # pGlAddtional_-    }+  GroupLabels' {_glAddtional = _Coerce # pGlAddtional_} + glAddtional :: Lens' GroupLabels (HashMap Text Text) glAddtional   = lens _glAddtional (\ s a -> s{_glAddtional = a}) .@@ -753,11 +774,14 @@  -- -- /See:/ 'listMembershipsResponse' smart constructor.-data ListMembershipsResponse = ListMembershipsResponse'+data ListMembershipsResponse =+  ListMembershipsResponse'     { _lmrNextPageToken :: !(Maybe Text)     , _lmrMemberships   :: !(Maybe [Membership])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListMembershipsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -768,11 +792,10 @@ listMembershipsResponse     :: ListMembershipsResponse listMembershipsResponse =-    ListMembershipsResponse'-    { _lmrNextPageToken = Nothing-    , _lmrMemberships = Nothing-    }+  ListMembershipsResponse'+    {_lmrNextPageToken = Nothing, _lmrMemberships = Nothing} + -- | Token to retrieve the next page of results, or empty if there are no -- more results available for listing. lmrNextPageToken :: Lens' ListMembershipsResponse (Maybe Text)@@ -809,10 +832,13 @@ -- long-running operation should document the metadata type, if any. -- -- /See:/ 'operationMetadata' smart constructor.-newtype OperationMetadata = OperationMetadata'+newtype OperationMetadata =+  OperationMetadata'     { _omAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -822,10 +848,9 @@     :: HashMap Text JSONValue -- ^ 'omAddtional'     -> OperationMetadata operationMetadata pOmAddtional_ =-    OperationMetadata'-    { _omAddtional = _Coerce # pOmAddtional_-    }+  OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional@@ -850,10 +875,13 @@ -- \`TakeSnapshotResponse\`. -- -- /See:/ 'operationResponse' smart constructor.-newtype OperationResponse = OperationResponse'+newtype OperationResponse =+  OperationResponse'     { _orAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -863,9 +891,8 @@     :: HashMap Text JSONValue -- ^ 'orAddtional'     -> OperationResponse operationResponse pOrAddtional_ =-    OperationResponse'-    { _orAddtional = _Coerce # pOrAddtional_-    }+  OperationResponse' {_orAddtional = _Coerce # pOrAddtional_}+  -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue)

@@ -60,15 +60,18 @@ -- | Creates a Group. -- -- /See:/ 'groupsCreate' smart constructor.-data GroupsCreate = GroupsCreate'+data GroupsCreate =+  GroupsCreate'     { _gcXgafv          :: !(Maybe Xgafv)     , _gcUploadProtocol :: !(Maybe Text)     , _gcAccessToken    :: !(Maybe Text)     , _gcUploadType     :: !(Maybe Text)     , _gcPayload        :: !Group     , _gcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -88,7 +91,7 @@     :: Group -- ^ 'gcPayload'     -> GroupsCreate groupsCreate pGcPayload_ =-    GroupsCreate'+  GroupsCreate'     { _gcXgafv = Nothing     , _gcUploadProtocol = Nothing     , _gcAccessToken = Nothing@@ -97,6 +100,7 @@     , _gcCallback = Nothing     } + -- | V1 error format. gcXgafv :: Lens' GroupsCreate (Maybe Xgafv) gcXgafv = lens _gcXgafv (\ s a -> s{_gcXgafv = a})@@ -130,7 +134,8 @@  instance GoogleRequest GroupsCreate where         type Rs GroupsCreate = Operation-        type Scopes GroupsCreate = '[]+        type Scopes GroupsCreate =+             '["https://www.googleapis.com/auth/cloud-identity.groups"]         requestClient GroupsCreate'{..}           = go _gcXgafv _gcUploadProtocol _gcAccessToken               _gcUploadType

@@ -59,15 +59,18 @@ -- | Deletes a Group. -- -- /See:/ 'groupsDelete' smart constructor.-data GroupsDelete = GroupsDelete'+data GroupsDelete =+  GroupsDelete'     { _gdXgafv          :: !(Maybe Xgafv)     , _gdUploadProtocol :: !(Maybe Text)     , _gdAccessToken    :: !(Maybe Text)     , _gdUploadType     :: !(Maybe Text)     , _gdName           :: !Text     , _gdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'gdName'     -> GroupsDelete groupsDelete pGdName_ =-    GroupsDelete'+  GroupsDelete'     { _gdXgafv = Nothing     , _gdUploadProtocol = Nothing     , _gdAccessToken = Nothing@@ -96,6 +99,7 @@     , _gdCallback = Nothing     } + -- | V1 error format. gdXgafv :: Lens' GroupsDelete (Maybe Xgafv) gdXgafv = lens _gdXgafv (\ s a -> s{_gdXgafv = a})@@ -131,7 +135,8 @@  instance GoogleRequest GroupsDelete where         type Rs GroupsDelete = Operation-        type Scopes GroupsDelete = '[]+        type Scopes GroupsDelete =+             '["https://www.googleapis.com/auth/cloud-identity.groups"]         requestClient GroupsDelete'{..}           = go _gdName _gdXgafv _gdUploadProtocol               _gdAccessToken

@@ -59,15 +59,18 @@ -- | Retrieves a Group. -- -- /See:/ 'groupsGet' smart constructor.-data GroupsGet = GroupsGet'+data GroupsGet =+  GroupsGet'     { _ggXgafv          :: !(Maybe Xgafv)     , _ggUploadProtocol :: !(Maybe Text)     , _ggAccessToken    :: !(Maybe Text)     , _ggUploadType     :: !(Maybe Text)     , _ggName           :: !Text     , _ggCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'ggName'     -> GroupsGet groupsGet pGgName_ =-    GroupsGet'+  GroupsGet'     { _ggXgafv = Nothing     , _ggUploadProtocol = Nothing     , _ggAccessToken = Nothing@@ -96,6 +99,7 @@     , _ggCallback = Nothing     } + -- | V1 error format. ggXgafv :: Lens' GroupsGet (Maybe Xgafv) ggXgafv = lens _ggXgafv (\ s a -> s{_ggXgafv = a})@@ -131,7 +135,9 @@  instance GoogleRequest GroupsGet where         type Rs GroupsGet = Group-        type Scopes GroupsGet = '[]+        type Scopes GroupsGet =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsGet'{..}           = go _ggName _ggXgafv _ggUploadProtocol               _ggAccessToken

@@ -67,7 +67,8 @@ -- | List groups within a customer or a domain. -- -- /See:/ 'groupsList' smart constructor.-data GroupsList = GroupsList'+data GroupsList =+  GroupsList'     { _gllParent         :: !(Maybe Text)     , _gllXgafv          :: !(Maybe Xgafv)     , _gllUploadProtocol :: !(Maybe Text)@@ -77,8 +78,10 @@     , _gllPageToken      :: !(Maybe Text)     , _gllPageSize       :: !(Maybe (Textual Int32))     , _gllCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -103,7 +106,7 @@ groupsList     :: GroupsList groupsList =-    GroupsList'+  GroupsList'     { _gllParent = Nothing     , _gllXgafv = Nothing     , _gllUploadProtocol = Nothing@@ -115,6 +118,7 @@     , _gllCallback = Nothing     } + -- | \`Required\`. May be made Optional in the future. Customer ID to list -- all groups from. gllParent :: Lens' GroupsList (Maybe Text)@@ -152,8 +156,8 @@ gllPageToken   = lens _gllPageToken (\ s a -> s{_gllPageToken = a}) --- | Maximum number of Groups to return. View | Default | Maximum--- -----|---------|-------- BASIC | 200 | 1000 FULL | 50 | 500+-- | The default page size is 200 (max 1000) for the BASIC view, and 50 (max+-- 500) for the FULL view. gllPageSize :: Lens' GroupsList (Maybe Int32) gllPageSize   = lens _gllPageSize (\ s a -> s{_gllPageSize = a}) .@@ -166,7 +170,9 @@  instance GoogleRequest GroupsList where         type Rs GroupsList = ListGroupsResponse-        type Scopes GroupsList = '[]+        type Scopes GroupsList =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsList'{..}           = go _gllParent _gllXgafv _gllUploadProtocol               _gllAccessToken

@@ -67,7 +67,8 @@ -- Group by its EntityKey. -- -- /See:/ 'groupsLookup' smart constructor.-data GroupsLookup = GroupsLookup'+data GroupsLookup =+  GroupsLookup'     { _glXgafv             :: !(Maybe Xgafv)     , _glUploadProtocol    :: !(Maybe Text)     , _glAccessToken       :: !(Maybe Text)@@ -75,8 +76,10 @@     , _glUploadType        :: !(Maybe Text)     , _glGroupKeyNamespace :: !(Maybe Text)     , _glCallback          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsLookup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@ groupsLookup     :: GroupsLookup groupsLookup =-    GroupsLookup'+  GroupsLookup'     { _glXgafv = Nothing     , _glUploadProtocol = Nothing     , _glAccessToken = Nothing@@ -107,6 +110,7 @@     , _glCallback = Nothing     } + -- | V1 error format. glXgafv :: Lens' GroupsLookup (Maybe Xgafv) glXgafv = lens _glXgafv (\ s a -> s{_glXgafv = a})@@ -151,7 +155,9 @@  instance GoogleRequest GroupsLookup where         type Rs GroupsLookup = LookupGroupNameResponse-        type Scopes GroupsLookup = '[]+        type Scopes GroupsLookup =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsLookup'{..}           = go _glXgafv _glUploadProtocol _glAccessToken               _glGroupKeyId

@@ -62,7 +62,8 @@ -- | Creates a Membership. -- -- /See:/ 'groupsMembershipsCreate' smart constructor.-data GroupsMembershipsCreate = GroupsMembershipsCreate'+data GroupsMembershipsCreate =+  GroupsMembershipsCreate'     { _gmcParent         :: !Text     , _gmcXgafv          :: !(Maybe Xgafv)     , _gmcUploadProtocol :: !(Maybe Text)@@ -70,8 +71,10 @@     , _gmcUploadType     :: !(Maybe Text)     , _gmcPayload        :: !Membership     , _gmcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsMembershipsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,7 +97,7 @@     -> Membership -- ^ 'gmcPayload'     -> GroupsMembershipsCreate groupsMembershipsCreate pGmcParent_ pGmcPayload_ =-    GroupsMembershipsCreate'+  GroupsMembershipsCreate'     { _gmcParent = pGmcParent_     , _gmcXgafv = Nothing     , _gmcUploadProtocol = Nothing@@ -104,6 +107,7 @@     , _gmcCallback = Nothing     } + -- | [Resource -- name](https:\/\/cloud.google.com\/apis\/design\/resource_names) of the -- Group to create Membership within. Format: \`groups\/{group_id}\`, where@@ -146,7 +150,8 @@  instance GoogleRequest GroupsMembershipsCreate where         type Rs GroupsMembershipsCreate = Operation-        type Scopes GroupsMembershipsCreate = '[]+        type Scopes GroupsMembershipsCreate =+             '["https://www.googleapis.com/auth/cloud-identity.groups"]         requestClient GroupsMembershipsCreate'{..}           = go _gmcParent _gmcXgafv _gmcUploadProtocol               _gmcAccessToken

@@ -59,15 +59,18 @@ -- | Deletes a Membership. -- -- /See:/ 'groupsMembershipsDelete' smart constructor.-data GroupsMembershipsDelete = GroupsMembershipsDelete'+data GroupsMembershipsDelete =+  GroupsMembershipsDelete'     { _gmdXgafv          :: !(Maybe Xgafv)     , _gmdUploadProtocol :: !(Maybe Text)     , _gmdAccessToken    :: !(Maybe Text)     , _gmdUploadType     :: !(Maybe Text)     , _gmdName           :: !Text     , _gmdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsMembershipsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'gmdName'     -> GroupsMembershipsDelete groupsMembershipsDelete pGmdName_ =-    GroupsMembershipsDelete'+  GroupsMembershipsDelete'     { _gmdXgafv = Nothing     , _gmdUploadProtocol = Nothing     , _gmdAccessToken = Nothing@@ -96,6 +99,7 @@     , _gmdCallback = Nothing     } + -- | V1 error format. gmdXgafv :: Lens' GroupsMembershipsDelete (Maybe Xgafv) gmdXgafv = lens _gmdXgafv (\ s a -> s{_gmdXgafv = a})@@ -134,7 +138,8 @@  instance GoogleRequest GroupsMembershipsDelete where         type Rs GroupsMembershipsDelete = Operation-        type Scopes GroupsMembershipsDelete = '[]+        type Scopes GroupsMembershipsDelete =+             '["https://www.googleapis.com/auth/cloud-identity.groups"]         requestClient GroupsMembershipsDelete'{..}           = go _gmdName _gmdXgafv _gmdUploadProtocol               _gmdAccessToken

@@ -59,15 +59,18 @@ -- | Retrieves a Membership. -- -- /See:/ 'groupsMembershipsGet' smart constructor.-data GroupsMembershipsGet = GroupsMembershipsGet'+data GroupsMembershipsGet =+  GroupsMembershipsGet'     { _gmgXgafv          :: !(Maybe Xgafv)     , _gmgUploadProtocol :: !(Maybe Text)     , _gmgAccessToken    :: !(Maybe Text)     , _gmgUploadType     :: !(Maybe Text)     , _gmgName           :: !Text     , _gmgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsMembershipsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'gmgName'     -> GroupsMembershipsGet groupsMembershipsGet pGmgName_ =-    GroupsMembershipsGet'+  GroupsMembershipsGet'     { _gmgXgafv = Nothing     , _gmgUploadProtocol = Nothing     , _gmgAccessToken = Nothing@@ -96,6 +99,7 @@     , _gmgCallback = Nothing     } + -- | V1 error format. gmgXgafv :: Lens' GroupsMembershipsGet (Maybe Xgafv) gmgXgafv = lens _gmgXgafv (\ s a -> s{_gmgXgafv = a})@@ -134,7 +138,9 @@  instance GoogleRequest GroupsMembershipsGet where         type Rs GroupsMembershipsGet = Membership-        type Scopes GroupsMembershipsGet = '[]+        type Scopes GroupsMembershipsGet =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsMembershipsGet'{..}           = go _gmgName _gmgXgafv _gmgUploadProtocol               _gmgAccessToken

@@ -67,7 +67,8 @@ -- | List Memberships within a Group. -- -- /See:/ 'groupsMembershipsList' smart constructor.-data GroupsMembershipsList = GroupsMembershipsList'+data GroupsMembershipsList =+  GroupsMembershipsList'     { _groParent         :: !Text     , _groXgafv          :: !(Maybe Xgafv)     , _groUploadProtocol :: !(Maybe Text)@@ -77,8 +78,10 @@     , _groPageToken      :: !(Maybe Text)     , _groPageSize       :: !(Maybe (Textual Int32))     , _groCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsMembershipsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,7 +107,7 @@     :: Text -- ^ 'groParent'     -> GroupsMembershipsList groupsMembershipsList pGroParent_ =-    GroupsMembershipsList'+  GroupsMembershipsList'     { _groParent = pGroParent_     , _groXgafv = Nothing     , _groUploadProtocol = Nothing@@ -116,6 +119,7 @@     , _groCallback = Nothing     } + -- | [Resource -- name](https:\/\/cloud.google.com\/apis\/design\/resource_names) of the -- Group to list Memberships within. Format: \`groups\/{group_id}\`, where@@ -155,8 +159,8 @@ groPageToken   = lens _groPageToken (\ s a -> s{_groPageToken = a}) --- | Maximum number of Memberships to return. View | Default | Maximum--- -----|---------|-------- BASIC | 200 | 1000 FULL | 50 | 500+-- | The default page size is 200 (max 1000) for the BASIC view, and 50 (max+-- 500) for the FULL view. groPageSize :: Lens' GroupsMembershipsList (Maybe Int32) groPageSize   = lens _groPageSize (\ s a -> s{_groPageSize = a}) .@@ -170,7 +174,9 @@ instance GoogleRequest GroupsMembershipsList where         type Rs GroupsMembershipsList =              ListMembershipsResponse-        type Scopes GroupsMembershipsList = '[]+        type Scopes GroupsMembershipsList =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsMembershipsList'{..}           = go _groParent _groXgafv _groUploadProtocol               _groAccessToken

@@ -69,7 +69,8 @@ -- Membership within a Group by member\'s EntityKey. -- -- /See:/ 'groupsMembershipsLookup' smart constructor.-data GroupsMembershipsLookup = GroupsMembershipsLookup'+data GroupsMembershipsLookup =+  GroupsMembershipsLookup'     { _gmlParent             :: !Text     , _gmlXgafv              :: !(Maybe Xgafv)     , _gmlUploadProtocol     :: !(Maybe Text)@@ -78,8 +79,10 @@     , _gmlMemberKeyId        :: !(Maybe Text)     , _gmlMemberKeyNamespace :: !(Maybe Text)     , _gmlCallback           :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsMembershipsLookup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -103,7 +106,7 @@     :: Text -- ^ 'gmlParent'     -> GroupsMembershipsLookup groupsMembershipsLookup pGmlParent_ =-    GroupsMembershipsLookup'+  GroupsMembershipsLookup'     { _gmlParent = pGmlParent_     , _gmlXgafv = Nothing     , _gmlUploadProtocol = Nothing@@ -114,6 +117,7 @@     , _gmlCallback = Nothing     } + -- | [Resource -- name](https:\/\/cloud.google.com\/apis\/design\/resource_names) of the -- Group to lookup Membership within. Format: \`groups\/{group_id}\`, where@@ -169,7 +173,9 @@ instance GoogleRequest GroupsMembershipsLookup where         type Rs GroupsMembershipsLookup =              LookupMembershipNameResponse-        type Scopes GroupsMembershipsLookup = '[]+        type Scopes GroupsMembershipsLookup =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsMembershipsLookup'{..}           = go _gmlParent _gmlXgafv _gmlUploadProtocol               _gmlAccessToken

@@ -63,7 +63,8 @@ -- | Updates a Group. -- -- /See:/ 'groupsPatch' smart constructor.-data GroupsPatch = GroupsPatch'+data GroupsPatch =+  GroupsPatch'     { _gpXgafv          :: !(Maybe Xgafv)     , _gpUploadProtocol :: !(Maybe Text)     , _gpUpdateMask     :: !(Maybe GFieldMask)@@ -72,8 +73,10 @@     , _gpPayload        :: !Group     , _gpName           :: !Text     , _gpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -98,7 +101,7 @@     -> Text -- ^ 'gpName'     -> GroupsPatch groupsPatch pGpPayload_ pGpName_ =-    GroupsPatch'+  GroupsPatch'     { _gpXgafv = Nothing     , _gpUploadProtocol = Nothing     , _gpUpdateMask = Nothing@@ -109,6 +112,7 @@     , _gpCallback = Nothing     } + -- | V1 error format. gpXgafv :: Lens' GroupsPatch (Maybe Xgafv) gpXgafv = lens _gpXgafv (\ s a -> s{_gpXgafv = a})@@ -155,7 +159,8 @@  instance GoogleRequest GroupsPatch where         type Rs GroupsPatch = Operation-        type Scopes GroupsPatch = '[]+        type Scopes GroupsPatch =+             '["https://www.googleapis.com/auth/cloud-identity.groups"]         requestClient GroupsPatch'{..}           = go _gpName _gpXgafv _gpUploadProtocol _gpUpdateMask               _gpAccessToken

@@ -67,7 +67,8 @@ -- | Searches for Groups. -- -- /See:/ 'groupsSearch' smart constructor.-data GroupsSearch = GroupsSearch'+data GroupsSearch =+  GroupsSearch'     { _gsXgafv          :: !(Maybe Xgafv)     , _gsUploadProtocol :: !(Maybe Text)     , _gsAccessToken    :: !(Maybe Text)@@ -77,8 +78,10 @@     , _gsPageToken      :: !(Maybe Text)     , _gsPageSize       :: !(Maybe (Textual Int32))     , _gsCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'GroupsSearch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -103,7 +106,7 @@ groupsSearch     :: GroupsSearch groupsSearch =-    GroupsSearch'+  GroupsSearch'     { _gsXgafv = Nothing     , _gsUploadProtocol = Nothing     , _gsAccessToken = Nothing@@ -115,6 +118,7 @@     , _gsCallback = Nothing     } + -- | V1 error format. gsXgafv :: Lens' GroupsSearch (Maybe Xgafv) gsXgafv = lens _gsXgafv (\ s a -> s{_gsXgafv = a})@@ -152,8 +156,8 @@ gsPageToken   = lens _gsPageToken (\ s a -> s{_gsPageToken = a}) --- | Maximum number of Groups to return. View | Default | Maximum--- -----|---------|-------- BASIC | 200 | 1000 FULL | 50 | 500+-- | The default page size is 200 (max 1000) for the BASIC view, and 50 (max+-- 500) for the FULL view. gsPageSize :: Lens' GroupsSearch (Maybe Int32) gsPageSize   = lens _gsPageSize (\ s a -> s{_gsPageSize = a}) .@@ -166,7 +170,9 @@  instance GoogleRequest GroupsSearch where         type Rs GroupsSearch = SearchGroupsResponse-        type Scopes GroupsSearch = '[]+        type Scopes GroupsSearch =+             '["https://www.googleapis.com/auth/cloud-identity.groups",+               "https://www.googleapis.com/auth/cloud-identity.groups.readonly"]         requestClient GroupsSearch'{..}           = go _gsXgafv _gsUploadProtocol _gsAccessToken               _gsUploadType

@@ -1,5 +1,5 @@ name:                  gogol-cloudidentity-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud Identity SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -53,5 +53,5 @@         , Network.Google.CloudIdentity.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5