module Network.Google.WebmasterTools.Types.Sum where
import Network.Google.Prelude
data URLCrawlErrorsSamplesMarkAsFixedCategory
= AuthPermissions
| ManyToOneRedirect
| NotFollowed
| NotFound
| Other
| Roboted
| ServerError
| SOFT404
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorsSamplesMarkAsFixedCategory
instance FromText URLCrawlErrorsSamplesMarkAsFixedCategory where
fromText = \case
"authPermissions" -> Just AuthPermissions
"manyToOneRedirect" -> Just ManyToOneRedirect
"notFollowed" -> Just NotFollowed
"notFound" -> Just NotFound
"other" -> Just Other
"roboted" -> Just Roboted
"serverError" -> Just ServerError
"soft404" -> Just SOFT404
_ -> Nothing
instance ToText URLCrawlErrorsSamplesMarkAsFixedCategory where
toText = \case
AuthPermissions -> "authPermissions"
ManyToOneRedirect -> "manyToOneRedirect"
NotFollowed -> "notFollowed"
NotFound -> "notFound"
Other -> "other"
Roboted -> "roboted"
ServerError -> "serverError"
SOFT404 -> "soft404"
instance FromJSON URLCrawlErrorsSamplesMarkAsFixedCategory where
parseJSON = parseJSONText "URLCrawlErrorsSamplesMarkAsFixedCategory"
instance ToJSON URLCrawlErrorsSamplesMarkAsFixedCategory where
toJSON = toJSONText
data URLCrawlErrorsSamplesGetPlatform
= Mobile
| SmartphoneOnly
| Web
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorsSamplesGetPlatform
instance FromText URLCrawlErrorsSamplesGetPlatform where
fromText = \case
"mobile" -> Just Mobile
"smartphoneOnly" -> Just SmartphoneOnly
"web" -> Just Web
_ -> Nothing
instance ToText URLCrawlErrorsSamplesGetPlatform where
toText = \case
Mobile -> "mobile"
SmartphoneOnly -> "smartphoneOnly"
Web -> "web"
instance FromJSON URLCrawlErrorsSamplesGetPlatform where
parseJSON = parseJSONText "URLCrawlErrorsSamplesGetPlatform"
instance ToJSON URLCrawlErrorsSamplesGetPlatform where
toJSON = toJSONText
data URLCrawlErrorsSamplesMarkAsFixedPlatform
= UCESMAFPMobile
| UCESMAFPSmartphoneOnly
| UCESMAFPWeb
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorsSamplesMarkAsFixedPlatform
instance FromText URLCrawlErrorsSamplesMarkAsFixedPlatform where
fromText = \case
"mobile" -> Just UCESMAFPMobile
"smartphoneOnly" -> Just UCESMAFPSmartphoneOnly
"web" -> Just UCESMAFPWeb
_ -> Nothing
instance ToText URLCrawlErrorsSamplesMarkAsFixedPlatform where
toText = \case
UCESMAFPMobile -> "mobile"
UCESMAFPSmartphoneOnly -> "smartphoneOnly"
UCESMAFPWeb -> "web"
instance FromJSON URLCrawlErrorsSamplesMarkAsFixedPlatform where
parseJSON = parseJSONText "URLCrawlErrorsSamplesMarkAsFixedPlatform"
instance ToJSON URLCrawlErrorsSamplesMarkAsFixedPlatform where
toJSON = toJSONText
data URLCrawlErrorsSamplesGetCategory
= UCESGCAuthPermissions
| UCESGCManyToOneRedirect
| UCESGCNotFollowed
| UCESGCNotFound
| UCESGCOther
| UCESGCRoboted
| UCESGCServerError
| UCESGCSOFT404
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorsSamplesGetCategory
instance FromText URLCrawlErrorsSamplesGetCategory where
fromText = \case
"authPermissions" -> Just UCESGCAuthPermissions
"manyToOneRedirect" -> Just UCESGCManyToOneRedirect
"notFollowed" -> Just UCESGCNotFollowed
"notFound" -> Just UCESGCNotFound
"other" -> Just UCESGCOther
"roboted" -> Just UCESGCRoboted
"serverError" -> Just UCESGCServerError
"soft404" -> Just UCESGCSOFT404
_ -> Nothing
instance ToText URLCrawlErrorsSamplesGetCategory where
toText = \case
UCESGCAuthPermissions -> "authPermissions"
UCESGCManyToOneRedirect -> "manyToOneRedirect"
UCESGCNotFollowed -> "notFollowed"
UCESGCNotFound -> "notFound"
UCESGCOther -> "other"
UCESGCRoboted -> "roboted"
UCESGCServerError -> "serverError"
UCESGCSOFT404 -> "soft404"
instance FromJSON URLCrawlErrorsSamplesGetCategory where
parseJSON = parseJSONText "URLCrawlErrorsSamplesGetCategory"
instance ToJSON URLCrawlErrorsSamplesGetCategory where
toJSON = toJSONText
data URLCrawlErrorscountsQueryPlatform
= UCEQPMobile
| UCEQPSmartphoneOnly
| UCEQPWeb
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorscountsQueryPlatform
instance FromText URLCrawlErrorscountsQueryPlatform where
fromText = \case
"mobile" -> Just UCEQPMobile
"smartphoneOnly" -> Just UCEQPSmartphoneOnly
"web" -> Just UCEQPWeb
_ -> Nothing
instance ToText URLCrawlErrorscountsQueryPlatform where
toText = \case
UCEQPMobile -> "mobile"
UCEQPSmartphoneOnly -> "smartphoneOnly"
UCEQPWeb -> "web"
instance FromJSON URLCrawlErrorscountsQueryPlatform where
parseJSON = parseJSONText "URLCrawlErrorscountsQueryPlatform"
instance ToJSON URLCrawlErrorscountsQueryPlatform where
toJSON = toJSONText
data URLCrawlErrorsSamplesListCategory
= UCESLCAuthPermissions
| UCESLCManyToOneRedirect
| UCESLCNotFollowed
| UCESLCNotFound
| UCESLCOther
| UCESLCRoboted
| UCESLCServerError
| UCESLCSOFT404
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorsSamplesListCategory
instance FromText URLCrawlErrorsSamplesListCategory where
fromText = \case
"authPermissions" -> Just UCESLCAuthPermissions
"manyToOneRedirect" -> Just UCESLCManyToOneRedirect
"notFollowed" -> Just UCESLCNotFollowed
"notFound" -> Just UCESLCNotFound
"other" -> Just UCESLCOther
"roboted" -> Just UCESLCRoboted
"serverError" -> Just UCESLCServerError
"soft404" -> Just UCESLCSOFT404
_ -> Nothing
instance ToText URLCrawlErrorsSamplesListCategory where
toText = \case
UCESLCAuthPermissions -> "authPermissions"
UCESLCManyToOneRedirect -> "manyToOneRedirect"
UCESLCNotFollowed -> "notFollowed"
UCESLCNotFound -> "notFound"
UCESLCOther -> "other"
UCESLCRoboted -> "roboted"
UCESLCServerError -> "serverError"
UCESLCSOFT404 -> "soft404"
instance FromJSON URLCrawlErrorsSamplesListCategory where
parseJSON = parseJSONText "URLCrawlErrorsSamplesListCategory"
instance ToJSON URLCrawlErrorsSamplesListCategory where
toJSON = toJSONText
data URLCrawlErrorsSamplesListPlatform
= UCESLPMobile
| UCESLPSmartphoneOnly
| UCESLPWeb
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorsSamplesListPlatform
instance FromText URLCrawlErrorsSamplesListPlatform where
fromText = \case
"mobile" -> Just UCESLPMobile
"smartphoneOnly" -> Just UCESLPSmartphoneOnly
"web" -> Just UCESLPWeb
_ -> Nothing
instance ToText URLCrawlErrorsSamplesListPlatform where
toText = \case
UCESLPMobile -> "mobile"
UCESLPSmartphoneOnly -> "smartphoneOnly"
UCESLPWeb -> "web"
instance FromJSON URLCrawlErrorsSamplesListPlatform where
parseJSON = parseJSONText "URLCrawlErrorsSamplesListPlatform"
instance ToJSON URLCrawlErrorsSamplesListPlatform where
toJSON = toJSONText
data URLCrawlErrorscountsQueryCategory
= UCEQCAuthPermissions
| UCEQCManyToOneRedirect
| UCEQCNotFollowed
| UCEQCNotFound
| UCEQCOther
| UCEQCRoboted
| UCEQCServerError
| UCEQCSOFT404
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLCrawlErrorscountsQueryCategory
instance FromText URLCrawlErrorscountsQueryCategory where
fromText = \case
"authPermissions" -> Just UCEQCAuthPermissions
"manyToOneRedirect" -> Just UCEQCManyToOneRedirect
"notFollowed" -> Just UCEQCNotFollowed
"notFound" -> Just UCEQCNotFound
"other" -> Just UCEQCOther
"roboted" -> Just UCEQCRoboted
"serverError" -> Just UCEQCServerError
"soft404" -> Just UCEQCSOFT404
_ -> Nothing
instance ToText URLCrawlErrorscountsQueryCategory where
toText = \case
UCEQCAuthPermissions -> "authPermissions"
UCEQCManyToOneRedirect -> "manyToOneRedirect"
UCEQCNotFollowed -> "notFollowed"
UCEQCNotFound -> "notFound"
UCEQCOther -> "other"
UCEQCRoboted -> "roboted"
UCEQCServerError -> "serverError"
UCEQCSOFT404 -> "soft404"
instance FromJSON URLCrawlErrorscountsQueryCategory where
parseJSON = parseJSONText "URLCrawlErrorscountsQueryCategory"
instance ToJSON URLCrawlErrorscountsQueryCategory where
toJSON = toJSONText