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