{-# 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.Gmail.Users.Labels.Get
(
UsersLabelsGetResource
, usersLabelsGet
, UsersLabelsGet
, ulgUserId
, ulgId
) where
import Network.Google.Gmail.Types
import Network.Google.Prelude
type UsersLabelsGetResource =
"gmail" :>
"v1" :>
"users" :>
Capture "userId" Text :>
"labels" :>
Capture "id" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Label
data UsersLabelsGet =
UsersLabelsGet'
{ _ulgUserId :: !Text
, _ulgId :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
usersLabelsGet
:: Text
-> UsersLabelsGet
usersLabelsGet pUlgId_ = UsersLabelsGet' {_ulgUserId = "me", _ulgId = pUlgId_}
ulgUserId :: Lens' UsersLabelsGet Text
ulgUserId
= lens _ulgUserId (\ s a -> s{_ulgUserId = a})
ulgId :: Lens' UsersLabelsGet Text
ulgId = lens _ulgId (\ s a -> s{_ulgId = a})
instance GoogleRequest UsersLabelsGet where
type Rs UsersLabelsGet = Label
type Scopes UsersLabelsGet =
'["https://mail.google.com/",
"https://www.googleapis.com/auth/gmail.labels",
"https://www.googleapis.com/auth/gmail.metadata",
"https://www.googleapis.com/auth/gmail.modify",
"https://www.googleapis.com/auth/gmail.readonly"]
requestClient UsersLabelsGet'{..}
= go _ulgUserId _ulgId (Just AltJSON) gmailService
where go
= buildClient (Proxy :: Proxy UsersLabelsGetResource)
mempty