module Network.Google.Resource.MapsEngine.Projects.Icons.Get
(
ProjectsIconsGetResource
, projectsIconsGet
, ProjectsIconsGet
, pigId
, pigProjectId
) where
import Network.Google.MapsEngine.Types
import Network.Google.Prelude
type ProjectsIconsGetResource =
"mapsengine" :>
"v1" :>
"projects" :>
Capture "projectId" Text :>
"icons" :>
Capture "id" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Icon
:<|>
"mapsengine" :>
"v1" :>
"projects" :>
Capture "projectId" Text :>
"icons" :>
Capture "id" Text :>
QueryParam "alt" AltMedia :>
Get '[OctetStream] Stream
data ProjectsIconsGet = ProjectsIconsGet
{ _pigId :: !Text
, _pigProjectId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
projectsIconsGet
:: Text
-> Text
-> ProjectsIconsGet
projectsIconsGet pPigId_ pPigProjectId_ =
ProjectsIconsGet
{ _pigId = pPigId_
, _pigProjectId = pPigProjectId_
}
pigId :: Lens' ProjectsIconsGet Text
pigId = lens _pigId (\ s a -> s{_pigId = a})
pigProjectId :: Lens' ProjectsIconsGet Text
pigProjectId
= lens _pigProjectId (\ s a -> s{_pigProjectId = a})
instance GoogleRequest ProjectsIconsGet where
type Rs ProjectsIconsGet = Icon
requestClient ProjectsIconsGet{..}
= go _pigProjectId _pigId (Just AltJSON)
mapsEngineService
where go :<|> _
= buildClient
(Proxy :: Proxy ProjectsIconsGetResource)
mempty
instance GoogleRequest
(MediaDownload ProjectsIconsGet) where
type Rs (MediaDownload ProjectsIconsGet) = Stream
requestClient (MediaDownload ProjectsIconsGet{..})
= go _pigProjectId _pigId (Just AltMedia)
mapsEngineService
where _ :<|> go
= buildClient
(Proxy :: Proxy ProjectsIconsGetResource)
mempty