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