{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Directory.Tokens.List
(
TokensListResource
, tokensList
, TokensList
, tlUserKey
) where
import Network.Google.Directory.Types
import Network.Google.Prelude
type TokensListResource =
"admin" :>
"directory" :>
"v1" :>
"users" :>
Capture "userKey" Text :>
"tokens" :>
QueryParam "alt" AltJSON :> Get '[JSON] Tokens
-- | Returns the set of tokens specified user has issued to 3rd party
-- applications.
--
-- /See:/ 'tokensList' smart constructor.
newtype TokensList = TokensList'
{ _tlUserKey :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'TokensList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'tlUserKey'
tokensList
:: Text -- ^ 'tlUserKey'
-> TokensList
tokensList pTlUserKey_ =
TokensList'
{ _tlUserKey = pTlUserKey_
}
-- | Identifies the user in the API request. The value can be the user\'s
-- primary email address, alias email address, or unique user ID.
tlUserKey :: Lens' TokensList Text
tlUserKey
= lens _tlUserKey (\ s a -> s{_tlUserKey = a})
instance GoogleRequest TokensList where
type Rs TokensList = Tokens
type Scopes TokensList =
'["https://www.googleapis.com/auth/admin.directory.user.security"]
requestClient TokensList'{..}
= go _tlUserKey (Just AltJSON) directoryService
where go
= buildClient (Proxy :: Proxy TokensListResource)
mempty