module Network.AWS.Lambda.Types.Sum where
import Network.AWS.Prelude
data EventSourcePosition
= Latest
| TrimHorizon
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText EventSourcePosition where
parser = takeLowerText >>= \case
"latest" -> pure Latest
"trim_horizon" -> pure TrimHorizon
e -> fromTextError $ "Failure parsing EventSourcePosition from value: '" <> e
<> "'. Accepted values: LATEST, TRIM_HORIZON"
instance ToText EventSourcePosition where
toText = \case
Latest -> "LATEST"
TrimHorizon -> "TRIM_HORIZON"
instance Hashable EventSourcePosition
instance ToByteString EventSourcePosition
instance ToQuery EventSourcePosition
instance ToHeader EventSourcePosition
instance ToJSON EventSourcePosition where
toJSON = toJSONText
data InvocationType
= DryRun
| Event
| RequestResponse
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText InvocationType where
parser = takeLowerText >>= \case
"dryrun" -> pure DryRun
"event" -> pure Event
"requestresponse" -> pure RequestResponse
e -> fromTextError $ "Failure parsing InvocationType from value: '" <> e
<> "'. Accepted values: DryRun, Event, RequestResponse"
instance ToText InvocationType where
toText = \case
DryRun -> "DryRun"
Event -> "Event"
RequestResponse -> "RequestResponse"
instance Hashable InvocationType
instance ToByteString InvocationType
instance ToQuery InvocationType
instance ToHeader InvocationType
instance ToJSON InvocationType where
toJSON = toJSONText
data LogType
= None
| Tail
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText LogType where
parser = takeLowerText >>= \case
"none" -> pure None
"tail" -> pure Tail
e -> fromTextError $ "Failure parsing LogType from value: '" <> e
<> "'. Accepted values: None, Tail"
instance ToText LogType where
toText = \case
None -> "None"
Tail -> "Tail"
instance Hashable LogType
instance ToByteString LogType
instance ToQuery LogType
instance ToHeader LogType
instance ToJSON LogType where
toJSON = toJSONText
data Runtime
= JAVA8
| Nodejs
deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
instance FromText Runtime where
parser = takeLowerText >>= \case
"java8" -> pure JAVA8
"nodejs" -> pure Nodejs
e -> fromTextError $ "Failure parsing Runtime from value: '" <> e
<> "'. Accepted values: java8, nodejs"
instance ToText Runtime where
toText = \case
JAVA8 -> "java8"
Nodejs -> "nodejs"
instance Hashable Runtime
instance ToByteString Runtime
instance ToQuery Runtime
instance ToHeader Runtime
instance ToJSON Runtime where
toJSON = toJSONText
instance FromJSON Runtime where
parseJSON = parseJSONText "Runtime"