{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.AbusiveExperienceReport.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data SiteSummaryResponseAbusiveStatus
= Unknown
| Passing
| Failing
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SiteSummaryResponseAbusiveStatus
instance FromHttpApiData SiteSummaryResponseAbusiveStatus where
parseQueryParam = \case
"UNKNOWN" -> Right Unknown
"PASSING" -> Right Passing
"FAILING" -> Right Failing
x -> Left ("Unable to parse SiteSummaryResponseAbusiveStatus from: " <> x)
instance ToHttpApiData SiteSummaryResponseAbusiveStatus where
toQueryParam = \case
Unknown -> "UNKNOWN"
Passing -> "PASSING"
Failing -> "FAILING"
instance FromJSON SiteSummaryResponseAbusiveStatus where
parseJSON = parseJSONText "SiteSummaryResponseAbusiveStatus"
instance ToJSON SiteSummaryResponseAbusiveStatus where
toJSON = toJSONText
data Xgafv
= X1
| X2
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable Xgafv
instance FromHttpApiData Xgafv where
parseQueryParam = \case
"1" -> Right X1
"2" -> Right X2
x -> Left ("Unable to parse Xgafv from: " <> x)
instance ToHttpApiData Xgafv where
toQueryParam = \case
X1 -> "1"
X2 -> "2"
instance FromJSON Xgafv where
parseJSON = parseJSONText "Xgafv"
instance ToJSON Xgafv where
toJSON = toJSONText
data SiteSummaryResponseFilterStatus
= SSRFSUnknown
| SSRFSON
| SSRFSOff
| SSRFSPaused
| SSRFSPending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SiteSummaryResponseFilterStatus
instance FromHttpApiData SiteSummaryResponseFilterStatus where
parseQueryParam = \case
"UNKNOWN" -> Right SSRFSUnknown
"ON" -> Right SSRFSON
"OFF" -> Right SSRFSOff
"PAUSED" -> Right SSRFSPaused
"PENDING" -> Right SSRFSPending
x -> Left ("Unable to parse SiteSummaryResponseFilterStatus from: " <> x)
instance ToHttpApiData SiteSummaryResponseFilterStatus where
toQueryParam = \case
SSRFSUnknown -> "UNKNOWN"
SSRFSON -> "ON"
SSRFSOff -> "OFF"
SSRFSPaused -> "PAUSED"
SSRFSPending -> "PENDING"
instance FromJSON SiteSummaryResponseFilterStatus where
parseJSON = parseJSONText "SiteSummaryResponseFilterStatus"
instance ToJSON SiteSummaryResponseFilterStatus where
toJSON = toJSONText