{-# 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.Mirror.Contacts.Delete
(
ContactsDeleteResource
, contactsDelete
, ContactsDelete
, cdId
) where
import Network.Google.Mirror.Types
import Network.Google.Prelude
type ContactsDeleteResource =
"mirror" :>
"v1" :>
"contacts" :>
Capture "id" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
newtype ContactsDelete =
ContactsDelete'
{ _cdId :: Text
}
deriving (Eq, Show, Data, Typeable, Generic)
contactsDelete
:: Text
-> ContactsDelete
contactsDelete pCdId_ = ContactsDelete' {_cdId = pCdId_}
cdId :: Lens' ContactsDelete Text
cdId = lens _cdId (\ s a -> s{_cdId = a})
instance GoogleRequest ContactsDelete where
type Rs ContactsDelete = ()
type Scopes ContactsDelete =
'["https://www.googleapis.com/auth/glass.timeline"]
requestClient ContactsDelete'{..}
= go _cdId (Just AltJSON) mirrorService
where go
= buildClient (Proxy :: Proxy ContactsDeleteResource)
mempty