{-# 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.Games.Achievements.UpdateMultiple
(
AchievementsUpdateMultipleResource
, achievementsUpdateMultiple
, AchievementsUpdateMultiple
, aumBuiltinGameId
, aumPayload
) where
import Network.Google.Games.Types
import Network.Google.Prelude
type AchievementsUpdateMultipleResource =
"games" :>
"v1" :>
"achievements" :>
"updateMultiple" :>
QueryParam "builtinGameId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AchievementUpdateMultipleRequest :>
Post '[JSON] AchievementUpdateMultipleResponse
data AchievementsUpdateMultiple = AchievementsUpdateMultiple'
{ _aumBuiltinGameId :: !(Maybe Text)
, _aumPayload :: !AchievementUpdateMultipleRequest
} deriving (Eq,Show,Data,Typeable,Generic)
achievementsUpdateMultiple
:: AchievementUpdateMultipleRequest
-> AchievementsUpdateMultiple
achievementsUpdateMultiple pAumPayload_ =
AchievementsUpdateMultiple'
{ _aumBuiltinGameId = Nothing
, _aumPayload = pAumPayload_
}
aumBuiltinGameId :: Lens' AchievementsUpdateMultiple (Maybe Text)
aumBuiltinGameId
= lens _aumBuiltinGameId
(\ s a -> s{_aumBuiltinGameId = a})
aumPayload :: Lens' AchievementsUpdateMultiple AchievementUpdateMultipleRequest
aumPayload
= lens _aumPayload (\ s a -> s{_aumPayload = a})
instance GoogleRequest AchievementsUpdateMultiple
where
type Rs AchievementsUpdateMultiple =
AchievementUpdateMultipleResponse
type Scopes AchievementsUpdateMultiple =
'["https://www.googleapis.com/auth/games"]
requestClient AchievementsUpdateMultiple'{..}
= go _aumBuiltinGameId (Just AltJSON) _aumPayload
gamesService
where go
= buildClient
(Proxy :: Proxy AchievementsUpdateMultipleResource)
mempty