{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.LexRuntime.Types.Sum where
import Network.AWS.Prelude
data ContentType =
ApplicationVnd_Amazonaws_Card_Generic
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText ContentType where
parser = takeLowerText >>= \case
"application/vnd.amazonaws.card.generic" -> pure ApplicationVnd_Amazonaws_Card_Generic
e -> fromTextError $ "Failure parsing ContentType from value: '" <> e
<> "'. Accepted values: application/vnd.amazonaws.card.generic"
instance ToText ContentType where
toText = \case
ApplicationVnd_Amazonaws_Card_Generic -> "application/vnd.amazonaws.card.generic"
instance Hashable ContentType
instance NFData ContentType
instance ToByteString ContentType
instance ToQuery ContentType
instance ToHeader ContentType
instance FromJSON ContentType where
parseJSON = parseJSONText "ContentType"
data DialogState
= ConfirmIntent
| ElicitIntent
| ElicitSlot
| Failed
| Fulfilled
| ReadyForFulfillment
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText DialogState where
parser = takeLowerText >>= \case
"confirmintent" -> pure ConfirmIntent
"elicitintent" -> pure ElicitIntent
"elicitslot" -> pure ElicitSlot
"failed" -> pure Failed
"fulfilled" -> pure Fulfilled
"readyforfulfillment" -> pure ReadyForFulfillment
e -> fromTextError $ "Failure parsing DialogState from value: '" <> e
<> "'. Accepted values: confirmintent, elicitintent, elicitslot, failed, fulfilled, readyforfulfillment"
instance ToText DialogState where
toText = \case
ConfirmIntent -> "ConfirmIntent"
ElicitIntent -> "ElicitIntent"
ElicitSlot -> "ElicitSlot"
Failed -> "Failed"
Fulfilled -> "Fulfilled"
ReadyForFulfillment -> "ReadyForFulfillment"
instance Hashable DialogState
instance NFData DialogState
instance ToByteString DialogState
instance ToQuery DialogState
instance ToHeader DialogState
instance FromJSON DialogState where
parseJSON = parseJSONText "DialogState"
data MessageFormatType
= Composite
| CustomPayload
| PlainText
| Ssml
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText MessageFormatType where
parser = takeLowerText >>= \case
"composite" -> pure Composite
"custompayload" -> pure CustomPayload
"plaintext" -> pure PlainText
"ssml" -> pure Ssml
e -> fromTextError $ "Failure parsing MessageFormatType from value: '" <> e
<> "'. Accepted values: composite, custompayload, plaintext, ssml"
instance ToText MessageFormatType where
toText = \case
Composite -> "Composite"
CustomPayload -> "CustomPayload"
PlainText -> "PlainText"
Ssml -> "SSML"
instance Hashable MessageFormatType
instance NFData MessageFormatType
instance ToByteString MessageFormatType
instance ToQuery MessageFormatType
instance ToHeader MessageFormatType
instance FromJSON MessageFormatType where
parseJSON = parseJSONText "MessageFormatType"