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 FromText PagespeedAPIRunPagespeedStrategy where
fromText = \case
"desktop" -> Just Desktop
"mobile" -> Just Mobile
_ -> Nothing
instance ToText PagespeedAPIRunPagespeedStrategy where
toText = \case
Desktop -> "desktop"
Mobile -> "mobile"
instance FromJSON PagespeedAPIRunPagespeedStrategy where
parseJSON = parseJSONText "PagespeedAPIRunPagespeedStrategy"
instance ToJSON PagespeedAPIRunPagespeedStrategy where
toJSON = toJSONText