{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.AdExperienceReport.Types.Sum where
import Network.Google.Prelude hiding (Bytes)
data PlatformSummaryFilterStatus
= Unknown
| ON
| Off
| Paused
| Pending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PlatformSummaryFilterStatus
instance FromHttpApiData PlatformSummaryFilterStatus where
parseQueryParam = \case
"UNKNOWN" -> Right Unknown
"ON" -> Right ON
"OFF" -> Right Off
"PAUSED" -> Right Paused
"PENDING" -> Right Pending
x -> Left ("Unable to parse PlatformSummaryFilterStatus from: " <> x)
instance ToHttpApiData PlatformSummaryFilterStatus where
toQueryParam = \case
Unknown -> "UNKNOWN"
ON -> "ON"
Off -> "OFF"
Paused -> "PAUSED"
Pending -> "PENDING"
instance FromJSON PlatformSummaryFilterStatus where
parseJSON = parseJSONText "PlatformSummaryFilterStatus"
instance ToJSON PlatformSummaryFilterStatus 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 PlatformSummaryBetterAdsStatus
= PSBASUnknown
| PSBASPassing
| PSBASWarning
| PSBASFailing
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PlatformSummaryBetterAdsStatus
instance FromHttpApiData PlatformSummaryBetterAdsStatus where
parseQueryParam = \case
"UNKNOWN" -> Right PSBASUnknown
"PASSING" -> Right PSBASPassing
"WARNING" -> Right PSBASWarning
"FAILING" -> Right PSBASFailing
x -> Left ("Unable to parse PlatformSummaryBetterAdsStatus from: " <> x)
instance ToHttpApiData PlatformSummaryBetterAdsStatus where
toQueryParam = \case
PSBASUnknown -> "UNKNOWN"
PSBASPassing -> "PASSING"
PSBASWarning -> "WARNING"
PSBASFailing -> "FAILING"
instance FromJSON PlatformSummaryBetterAdsStatus where
parseJSON = parseJSONText "PlatformSummaryBetterAdsStatus"
instance ToJSON PlatformSummaryBetterAdsStatus where
toJSON = toJSONText