module Network.Google.Resource.PagespeedOnline.PagespeedAPI.RunPagespeed
(
PagespeedAPIRunPagespeedResource
, pagespeedAPIRunPagespeed
, PagespeedAPIRunPagespeed
, parpScreenshot
, parpLocale
, parpURL
, parpFilterThirdPartyResources
, parpStrategy
, parpRule
) where
import Network.Google.PageSpeed.Types
import Network.Google.Prelude
type PagespeedAPIRunPagespeedResource =
"pagespeedonline" :>
"v2" :>
"runPagespeed" :>
QueryParam "url" Text :>
QueryParam "screenshot" Bool :>
QueryParam "locale" Text :>
QueryParam "filter_third_party_resources" Bool :>
QueryParam "strategy"
PagespeedAPIRunPagespeedStrategy
:>
QueryParams "rule" Text :>
QueryParam "alt" AltJSON :> Get '[JSON] Result
data PagespeedAPIRunPagespeed = PagespeedAPIRunPagespeed'
{ _parpScreenshot :: !Bool
, _parpLocale :: !(Maybe Text)
, _parpURL :: !Text
, _parpFilterThirdPartyResources :: !Bool
, _parpStrategy :: !(Maybe PagespeedAPIRunPagespeedStrategy)
, _parpRule :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
pagespeedAPIRunPagespeed
:: Text
-> PagespeedAPIRunPagespeed
pagespeedAPIRunPagespeed pParpURL_ =
PagespeedAPIRunPagespeed'
{ _parpScreenshot = False
, _parpLocale = Nothing
, _parpURL = pParpURL_
, _parpFilterThirdPartyResources = False
, _parpStrategy = Nothing
, _parpRule = Nothing
}
parpScreenshot :: Lens' PagespeedAPIRunPagespeed Bool
parpScreenshot
= lens _parpScreenshot
(\ s a -> s{_parpScreenshot = a})
parpLocale :: Lens' PagespeedAPIRunPagespeed (Maybe Text)
parpLocale
= lens _parpLocale (\ s a -> s{_parpLocale = a})
parpURL :: Lens' PagespeedAPIRunPagespeed Text
parpURL = lens _parpURL (\ s a -> s{_parpURL = a})
parpFilterThirdPartyResources :: Lens' PagespeedAPIRunPagespeed Bool
parpFilterThirdPartyResources
= lens _parpFilterThirdPartyResources
(\ s a -> s{_parpFilterThirdPartyResources = a})
parpStrategy :: Lens' PagespeedAPIRunPagespeed (Maybe PagespeedAPIRunPagespeedStrategy)
parpStrategy
= lens _parpStrategy (\ s a -> s{_parpStrategy = a})
parpRule :: Lens' PagespeedAPIRunPagespeed [Text]
parpRule
= lens _parpRule (\ s a -> s{_parpRule = a}) .
_Default
. _Coerce
instance GoogleRequest PagespeedAPIRunPagespeed where
type Rs PagespeedAPIRunPagespeed = Result
type Scopes PagespeedAPIRunPagespeed = '[]
requestClient PagespeedAPIRunPagespeed'{..}
= go (Just _parpURL) (Just _parpScreenshot)
_parpLocale
(Just _parpFilterThirdPartyResources)
_parpStrategy
(_parpRule ^. _Default)
(Just AltJSON)
pageSpeedService
where go
= buildClient
(Proxy :: Proxy PagespeedAPIRunPagespeedResource)
mempty