module Network.Google.URLShortener.Types.Sum where
import Network.Google.Prelude
data URLListProjection
= AnalyticsClicks
| Full
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLListProjection
instance FromText URLListProjection where
fromText = \case
"ANALYTICS_CLICKS" -> Just AnalyticsClicks
"FULL" -> Just Full
_ -> Nothing
instance ToText URLListProjection where
toText = \case
AnalyticsClicks -> "ANALYTICS_CLICKS"
Full -> "FULL"
instance FromJSON URLListProjection where
parseJSON = parseJSONText "URLListProjection"
instance ToJSON URLListProjection where
toJSON = toJSONText
data URLGetProjection
= UGPAnalyticsClicks
| UGPAnalyticsTopStrings
| UGPFull
deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
instance Hashable URLGetProjection
instance FromText URLGetProjection where
fromText = \case
"ANALYTICS_CLICKS" -> Just UGPAnalyticsClicks
"ANALYTICS_TOP_STRINGS" -> Just UGPAnalyticsTopStrings
"FULL" -> Just UGPFull
_ -> Nothing
instance ToText URLGetProjection where
toText = \case
UGPAnalyticsClicks -> "ANALYTICS_CLICKS"
UGPAnalyticsTopStrings -> "ANALYTICS_TOP_STRINGS"
UGPFull -> "FULL"
instance FromJSON URLGetProjection where
parseJSON = parseJSONText "URLGetProjection"
instance ToJSON URLGetProjection where
toJSON = toJSONText