{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Translate.Types.Sum where
import Network.Google.Prelude
data TranslationsListFormat
= HTML
| Text
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable TranslationsListFormat
instance FromHttpApiData TranslationsListFormat where
parseQueryParam = \case
"html" -> Right HTML
"text" -> Right Text
x -> Left ("Unable to parse TranslationsListFormat from: " <> x)
instance ToHttpApiData TranslationsListFormat where
toQueryParam = \case
HTML -> "html"
Text -> "text"
instance FromJSON TranslationsListFormat where
parseJSON = parseJSONText "TranslationsListFormat"
instance ToJSON TranslationsListFormat where
toJSON = toJSONText