{-# 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.Timeline.Get
(
TimelineGetResource
, timelineGet
, TimelineGet
, tgId
) where
import Network.Google.Mirror.Types
import Network.Google.Prelude
type TimelineGetResource =
"mirror" :>
"v1" :>
"timeline" :>
Capture "id" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] TimelineItem
newtype TimelineGet = TimelineGet'
{ _tgId :: Text
} deriving (Eq,Show,Data,Typeable,Generic)
timelineGet
:: Text
-> TimelineGet
timelineGet pTgId_ =
TimelineGet'
{ _tgId = pTgId_
}
tgId :: Lens' TimelineGet Text
tgId = lens _tgId (\ s a -> s{_tgId = a})
instance GoogleRequest TimelineGet where
type Rs TimelineGet = TimelineItem
type Scopes TimelineGet =
'["https://www.googleapis.com/auth/glass.location",
"https://www.googleapis.com/auth/glass.timeline"]
requestClient TimelineGet'{..}
= go _tgId (Just AltJSON) mirrorService
where go
= buildClient (Proxy :: Proxy TimelineGetResource)
mempty