module Network.Google.PageSpeed.Types.Sum where
import Network.Google.Prelude
data PagespeedAPIRunPagespeedStrategy
= Desktop
| Mobile
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PagespeedAPIRunPagespeedStrategy
instance FromHttpApiData PagespeedAPIRunPagespeedStrategy where
parseQueryParam = \case
"desktop" -> Right Desktop
"mobile" -> Right Mobile
x -> Left ("Unable to parse PagespeedAPIRunPagespeedStrategy from: " <> x)
instance ToHttpApiData PagespeedAPIRunPagespeedStrategy where
toQueryParam = \case
Desktop -> "desktop"
Mobile -> "mobile"
instance FromJSON PagespeedAPIRunPagespeedStrategy where
parseJSON = parseJSONText "PagespeedAPIRunPagespeedStrategy"
instance ToJSON PagespeedAPIRunPagespeedStrategy where
toJSON = toJSONText