module Network.Google.Resource.Games.Snapshots.Get
(
SnapshotsGetResource
, snapshotsGet
, SnapshotsGet
, sConsistencyToken
, sLanguage
, sSnapshotId
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type SnapshotsGetResource =
"games" :>
"v1" :>
"snapshots" :>
Capture "snapshotId" Text :>
QueryParam "consistencyToken" (Textual Int64) :>
QueryParam "language" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Snapshot
data SnapshotsGet = SnapshotsGet'
{ _sConsistencyToken :: !(Maybe (Textual Int64))
, _sLanguage :: !(Maybe Text)
, _sSnapshotId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
snapshotsGet
:: Text
-> SnapshotsGet
snapshotsGet pSSnapshotId_ =
SnapshotsGet'
{ _sConsistencyToken = Nothing
, _sLanguage = Nothing
, _sSnapshotId = pSSnapshotId_
}
sConsistencyToken :: Lens' SnapshotsGet (Maybe Int64)
sConsistencyToken
= lens _sConsistencyToken
(\ s a -> s{_sConsistencyToken = a})
. mapping _Coerce
sLanguage :: Lens' SnapshotsGet (Maybe Text)
sLanguage
= lens _sLanguage (\ s a -> s{_sLanguage = a})
sSnapshotId :: Lens' SnapshotsGet Text
sSnapshotId
= lens _sSnapshotId (\ s a -> s{_sSnapshotId = a})
instance GoogleRequest SnapshotsGet where
type Rs SnapshotsGet = Snapshot
type Scopes SnapshotsGet =
'["https://www.googleapis.com/auth/drive.appdata",
"https://www.googleapis.com/auth/games",
"https://www.googleapis.com/auth/plus.login"]
requestClient SnapshotsGet'{..}
= go _sSnapshotId _sConsistencyToken _sLanguage
(Just AltJSON)
gamesService
where go
= buildClient (Proxy :: Proxy SnapshotsGetResource)
mempty