{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.Pricing.Types.Sum where
import Network.AWS.Prelude
data FilterType =
TermMatch
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText FilterType where
parser = takeLowerText >>= \case
"term_match" -> pure TermMatch
e -> fromTextError $ "Failure parsing FilterType from value: '" <> e
<> "'. Accepted values: term_match"
instance ToText FilterType where
toText = \case
TermMatch -> "TERM_MATCH"
instance Hashable FilterType
instance NFData FilterType
instance ToByteString FilterType
instance ToQuery FilterType
instance ToHeader FilterType
instance ToJSON FilterType where
toJSON = toJSONText