{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DuplicateRecordFields #-} module Hercules.API.Effects.EffectEvent where import Data.Aeson.Types (FromJSON (..), ToJSON (..), genericParseJSON, genericToEncoding, genericToJSON) import Data.OpenApi qualified as O3 import Hercules.API.Prelude data EffectEvent = Queued EffectEventQueued | DependencyFailed EffectEventDependencyFailed | Started EffectEventStarted | Failed EffectEventFailed | Succeeded EffectEventSucceeded | Cancelled EffectEventCancelled deriving ((forall x. EffectEvent -> Rep EffectEvent x) -> (forall x. Rep EffectEvent x -> EffectEvent) -> Generic EffectEvent forall x. Rep EffectEvent x -> EffectEvent forall x. EffectEvent -> Rep EffectEvent x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEvent -> Rep EffectEvent x from :: forall x. EffectEvent -> Rep EffectEvent x $cto :: forall x. Rep EffectEvent x -> EffectEvent to :: forall x. Rep EffectEvent x -> EffectEvent Generic, Int -> EffectEvent -> ShowS [EffectEvent] -> ShowS EffectEvent -> String (Int -> EffectEvent -> ShowS) -> (EffectEvent -> String) -> ([EffectEvent] -> ShowS) -> Show EffectEvent forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEvent -> ShowS showsPrec :: Int -> EffectEvent -> ShowS $cshow :: EffectEvent -> String show :: EffectEvent -> String $cshowList :: [EffectEvent] -> ShowS showList :: [EffectEvent] -> ShowS Show, EffectEvent -> EffectEvent -> Bool (EffectEvent -> EffectEvent -> Bool) -> (EffectEvent -> EffectEvent -> Bool) -> Eq EffectEvent forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEvent -> EffectEvent -> Bool == :: EffectEvent -> EffectEvent -> Bool $c/= :: EffectEvent -> EffectEvent -> Bool /= :: EffectEvent -> EffectEvent -> Bool Eq, EffectEvent -> () (EffectEvent -> ()) -> NFData EffectEvent forall a. (a -> ()) -> NFData a $crnf :: EffectEvent -> () rnf :: EffectEvent -> () NFData, Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema (Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEvent forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEvent Typeable EffectEvent => (Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEvent Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema O3.ToSchema) instance FromJSON EffectEvent where parseJSON :: Value -> Parser EffectEvent parseJSON = Options -> Value -> Parser EffectEvent forall a. (Generic a, GFromJSON Zero (Rep a)) => Options -> Value -> Parser a genericParseJSON Options schemaCompatibleOptions instance ToJSON EffectEvent where toJSON :: EffectEvent -> Value toJSON = Options -> EffectEvent -> Value forall a. (Generic a, GToJSON' Value Zero (Rep a)) => Options -> a -> Value genericToJSON Options schemaCompatibleOptions toEncoding :: EffectEvent -> Encoding toEncoding = Options -> EffectEvent -> Encoding forall a. (Generic a, GToJSON' Encoding Zero (Rep a)) => Options -> a -> Encoding genericToEncoding Options schemaCompatibleOptions eventTime :: EffectEvent -> UTCTime eventTime :: EffectEvent -> UTCTime eventTime (Queued EffectEventQueued {$sel:time:EffectEventQueued :: EffectEventQueued -> UTCTime time = UTCTime t}) = UTCTime t eventTime (DependencyFailed EffectEventDependencyFailed {$sel:time:EffectEventDependencyFailed :: EffectEventDependencyFailed -> UTCTime time = UTCTime t}) = UTCTime t eventTime (Started EffectEventStarted {$sel:time:EffectEventStarted :: EffectEventStarted -> UTCTime time = UTCTime t}) = UTCTime t eventTime (Failed EffectEventFailed {$sel:time:EffectEventFailed :: EffectEventFailed -> UTCTime time = UTCTime t}) = UTCTime t eventTime (Succeeded EffectEventSucceeded {$sel:time:EffectEventSucceeded :: EffectEventSucceeded -> UTCTime time = UTCTime t}) = UTCTime t eventTime (Cancelled EffectEventCancelled {$sel:time:EffectEventCancelled :: EffectEventCancelled -> UTCTime time = UTCTime t}) = UTCTime t data EffectEventQueued = EffectEventQueued { EffectEventQueued -> UTCTime time :: UTCTime } deriving ((forall x. EffectEventQueued -> Rep EffectEventQueued x) -> (forall x. Rep EffectEventQueued x -> EffectEventQueued) -> Generic EffectEventQueued forall x. Rep EffectEventQueued x -> EffectEventQueued forall x. EffectEventQueued -> Rep EffectEventQueued x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventQueued -> Rep EffectEventQueued x from :: forall x. EffectEventQueued -> Rep EffectEventQueued x $cto :: forall x. Rep EffectEventQueued x -> EffectEventQueued to :: forall x. Rep EffectEventQueued x -> EffectEventQueued Generic, Int -> EffectEventQueued -> ShowS [EffectEventQueued] -> ShowS EffectEventQueued -> String (Int -> EffectEventQueued -> ShowS) -> (EffectEventQueued -> String) -> ([EffectEventQueued] -> ShowS) -> Show EffectEventQueued forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventQueued -> ShowS showsPrec :: Int -> EffectEventQueued -> ShowS $cshow :: EffectEventQueued -> String show :: EffectEventQueued -> String $cshowList :: [EffectEventQueued] -> ShowS showList :: [EffectEventQueued] -> ShowS Show, EffectEventQueued -> EffectEventQueued -> Bool (EffectEventQueued -> EffectEventQueued -> Bool) -> (EffectEventQueued -> EffectEventQueued -> Bool) -> Eq EffectEventQueued forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventQueued -> EffectEventQueued -> Bool == :: EffectEventQueued -> EffectEventQueued -> Bool $c/= :: EffectEventQueued -> EffectEventQueued -> Bool /= :: EffectEventQueued -> EffectEventQueued -> Bool Eq) deriving anyclass (EffectEventQueued -> () (EffectEventQueued -> ()) -> NFData EffectEventQueued forall a. (a -> ()) -> NFData a $crnf :: EffectEventQueued -> () rnf :: EffectEventQueued -> () NFData, [EffectEventQueued] -> Value [EffectEventQueued] -> Encoding EffectEventQueued -> Value EffectEventQueued -> Encoding (EffectEventQueued -> Value) -> (EffectEventQueued -> Encoding) -> ([EffectEventQueued] -> Value) -> ([EffectEventQueued] -> Encoding) -> ToJSON EffectEventQueued forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventQueued -> Value toJSON :: EffectEventQueued -> Value $ctoEncoding :: EffectEventQueued -> Encoding toEncoding :: EffectEventQueued -> Encoding $ctoJSONList :: [EffectEventQueued] -> Value toJSONList :: [EffectEventQueued] -> Value $ctoEncodingList :: [EffectEventQueued] -> Encoding toEncodingList :: [EffectEventQueued] -> Encoding ToJSON, Value -> Parser [EffectEventQueued] Value -> Parser EffectEventQueued (Value -> Parser EffectEventQueued) -> (Value -> Parser [EffectEventQueued]) -> FromJSON EffectEventQueued forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventQueued parseJSON :: Value -> Parser EffectEventQueued $cparseJSONList :: Value -> Parser [EffectEventQueued] parseJSONList :: Value -> Parser [EffectEventQueued] FromJSON, Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventQueued forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventQueued Typeable EffectEventQueued => (Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventQueued Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema O3.ToSchema) data EffectEventDependencyFailed = EffectEventDependencyFailed { EffectEventDependencyFailed -> UTCTime time :: UTCTime } deriving ((forall x. EffectEventDependencyFailed -> Rep EffectEventDependencyFailed x) -> (forall x. Rep EffectEventDependencyFailed x -> EffectEventDependencyFailed) -> Generic EffectEventDependencyFailed forall x. Rep EffectEventDependencyFailed x -> EffectEventDependencyFailed forall x. EffectEventDependencyFailed -> Rep EffectEventDependencyFailed x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventDependencyFailed -> Rep EffectEventDependencyFailed x from :: forall x. EffectEventDependencyFailed -> Rep EffectEventDependencyFailed x $cto :: forall x. Rep EffectEventDependencyFailed x -> EffectEventDependencyFailed to :: forall x. Rep EffectEventDependencyFailed x -> EffectEventDependencyFailed Generic, Int -> EffectEventDependencyFailed -> ShowS [EffectEventDependencyFailed] -> ShowS EffectEventDependencyFailed -> String (Int -> EffectEventDependencyFailed -> ShowS) -> (EffectEventDependencyFailed -> String) -> ([EffectEventDependencyFailed] -> ShowS) -> Show EffectEventDependencyFailed forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventDependencyFailed -> ShowS showsPrec :: Int -> EffectEventDependencyFailed -> ShowS $cshow :: EffectEventDependencyFailed -> String show :: EffectEventDependencyFailed -> String $cshowList :: [EffectEventDependencyFailed] -> ShowS showList :: [EffectEventDependencyFailed] -> ShowS Show, EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool (EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool) -> (EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool) -> Eq EffectEventDependencyFailed forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool == :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool $c/= :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool /= :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool Eq) deriving anyclass (EffectEventDependencyFailed -> () (EffectEventDependencyFailed -> ()) -> NFData EffectEventDependencyFailed forall a. (a -> ()) -> NFData a $crnf :: EffectEventDependencyFailed -> () rnf :: EffectEventDependencyFailed -> () NFData, [EffectEventDependencyFailed] -> Value [EffectEventDependencyFailed] -> Encoding EffectEventDependencyFailed -> Value EffectEventDependencyFailed -> Encoding (EffectEventDependencyFailed -> Value) -> (EffectEventDependencyFailed -> Encoding) -> ([EffectEventDependencyFailed] -> Value) -> ([EffectEventDependencyFailed] -> Encoding) -> ToJSON EffectEventDependencyFailed forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventDependencyFailed -> Value toJSON :: EffectEventDependencyFailed -> Value $ctoEncoding :: EffectEventDependencyFailed -> Encoding toEncoding :: EffectEventDependencyFailed -> Encoding $ctoJSONList :: [EffectEventDependencyFailed] -> Value toJSONList :: [EffectEventDependencyFailed] -> Value $ctoEncodingList :: [EffectEventDependencyFailed] -> Encoding toEncodingList :: [EffectEventDependencyFailed] -> Encoding ToJSON, Value -> Parser [EffectEventDependencyFailed] Value -> Parser EffectEventDependencyFailed (Value -> Parser EffectEventDependencyFailed) -> (Value -> Parser [EffectEventDependencyFailed]) -> FromJSON EffectEventDependencyFailed forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventDependencyFailed parseJSON :: Value -> Parser EffectEventDependencyFailed $cparseJSONList :: Value -> Parser [EffectEventDependencyFailed] parseJSONList :: Value -> Parser [EffectEventDependencyFailed] FromJSON, Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventDependencyFailed forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventDependencyFailed Typeable EffectEventDependencyFailed => (Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventDependencyFailed Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventDependencyFailed -> Declare (Definitions Schema) NamedSchema O3.ToSchema) data EffectEventStarted = EffectEventStarted { EffectEventStarted -> UTCTime time :: UTCTime, EffectEventStarted -> Id "log" logId :: Id "log", EffectEventStarted -> Text agentHostname :: Text, EffectEventStarted -> Text agentVersion :: Text } deriving ((forall x. EffectEventStarted -> Rep EffectEventStarted x) -> (forall x. Rep EffectEventStarted x -> EffectEventStarted) -> Generic EffectEventStarted forall x. Rep EffectEventStarted x -> EffectEventStarted forall x. EffectEventStarted -> Rep EffectEventStarted x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventStarted -> Rep EffectEventStarted x from :: forall x. EffectEventStarted -> Rep EffectEventStarted x $cto :: forall x. Rep EffectEventStarted x -> EffectEventStarted to :: forall x. Rep EffectEventStarted x -> EffectEventStarted Generic, Int -> EffectEventStarted -> ShowS [EffectEventStarted] -> ShowS EffectEventStarted -> String (Int -> EffectEventStarted -> ShowS) -> (EffectEventStarted -> String) -> ([EffectEventStarted] -> ShowS) -> Show EffectEventStarted forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventStarted -> ShowS showsPrec :: Int -> EffectEventStarted -> ShowS $cshow :: EffectEventStarted -> String show :: EffectEventStarted -> String $cshowList :: [EffectEventStarted] -> ShowS showList :: [EffectEventStarted] -> ShowS Show, EffectEventStarted -> EffectEventStarted -> Bool (EffectEventStarted -> EffectEventStarted -> Bool) -> (EffectEventStarted -> EffectEventStarted -> Bool) -> Eq EffectEventStarted forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventStarted -> EffectEventStarted -> Bool == :: EffectEventStarted -> EffectEventStarted -> Bool $c/= :: EffectEventStarted -> EffectEventStarted -> Bool /= :: EffectEventStarted -> EffectEventStarted -> Bool Eq) deriving anyclass (EffectEventStarted -> () (EffectEventStarted -> ()) -> NFData EffectEventStarted forall a. (a -> ()) -> NFData a $crnf :: EffectEventStarted -> () rnf :: EffectEventStarted -> () NFData, [EffectEventStarted] -> Value [EffectEventStarted] -> Encoding EffectEventStarted -> Value EffectEventStarted -> Encoding (EffectEventStarted -> Value) -> (EffectEventStarted -> Encoding) -> ([EffectEventStarted] -> Value) -> ([EffectEventStarted] -> Encoding) -> ToJSON EffectEventStarted forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventStarted -> Value toJSON :: EffectEventStarted -> Value $ctoEncoding :: EffectEventStarted -> Encoding toEncoding :: EffectEventStarted -> Encoding $ctoJSONList :: [EffectEventStarted] -> Value toJSONList :: [EffectEventStarted] -> Value $ctoEncodingList :: [EffectEventStarted] -> Encoding toEncodingList :: [EffectEventStarted] -> Encoding ToJSON, Value -> Parser [EffectEventStarted] Value -> Parser EffectEventStarted (Value -> Parser EffectEventStarted) -> (Value -> Parser [EffectEventStarted]) -> FromJSON EffectEventStarted forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventStarted parseJSON :: Value -> Parser EffectEventStarted $cparseJSONList :: Value -> Parser [EffectEventStarted] parseJSONList :: Value -> Parser [EffectEventStarted] FromJSON, Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventStarted forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventStarted Typeable EffectEventStarted => (Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventStarted Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventStarted -> Declare (Definitions Schema) NamedSchema O3.ToSchema) data EffectEventReset = EffectEventReset { EffectEventReset -> UTCTime time :: UTCTime } deriving ((forall x. EffectEventReset -> Rep EffectEventReset x) -> (forall x. Rep EffectEventReset x -> EffectEventReset) -> Generic EffectEventReset forall x. Rep EffectEventReset x -> EffectEventReset forall x. EffectEventReset -> Rep EffectEventReset x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventReset -> Rep EffectEventReset x from :: forall x. EffectEventReset -> Rep EffectEventReset x $cto :: forall x. Rep EffectEventReset x -> EffectEventReset to :: forall x. Rep EffectEventReset x -> EffectEventReset Generic, Int -> EffectEventReset -> ShowS [EffectEventReset] -> ShowS EffectEventReset -> String (Int -> EffectEventReset -> ShowS) -> (EffectEventReset -> String) -> ([EffectEventReset] -> ShowS) -> Show EffectEventReset forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventReset -> ShowS showsPrec :: Int -> EffectEventReset -> ShowS $cshow :: EffectEventReset -> String show :: EffectEventReset -> String $cshowList :: [EffectEventReset] -> ShowS showList :: [EffectEventReset] -> ShowS Show, EffectEventReset -> EffectEventReset -> Bool (EffectEventReset -> EffectEventReset -> Bool) -> (EffectEventReset -> EffectEventReset -> Bool) -> Eq EffectEventReset forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventReset -> EffectEventReset -> Bool == :: EffectEventReset -> EffectEventReset -> Bool $c/= :: EffectEventReset -> EffectEventReset -> Bool /= :: EffectEventReset -> EffectEventReset -> Bool Eq) deriving anyclass (EffectEventReset -> () (EffectEventReset -> ()) -> NFData EffectEventReset forall a. (a -> ()) -> NFData a $crnf :: EffectEventReset -> () rnf :: EffectEventReset -> () NFData, [EffectEventReset] -> Value [EffectEventReset] -> Encoding EffectEventReset -> Value EffectEventReset -> Encoding (EffectEventReset -> Value) -> (EffectEventReset -> Encoding) -> ([EffectEventReset] -> Value) -> ([EffectEventReset] -> Encoding) -> ToJSON EffectEventReset forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventReset -> Value toJSON :: EffectEventReset -> Value $ctoEncoding :: EffectEventReset -> Encoding toEncoding :: EffectEventReset -> Encoding $ctoJSONList :: [EffectEventReset] -> Value toJSONList :: [EffectEventReset] -> Value $ctoEncodingList :: [EffectEventReset] -> Encoding toEncodingList :: [EffectEventReset] -> Encoding ToJSON, Value -> Parser [EffectEventReset] Value -> Parser EffectEventReset (Value -> Parser EffectEventReset) -> (Value -> Parser [EffectEventReset]) -> FromJSON EffectEventReset forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventReset parseJSON :: Value -> Parser EffectEventReset $cparseJSONList :: Value -> Parser [EffectEventReset] parseJSONList :: Value -> Parser [EffectEventReset] FromJSON, Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventReset forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventReset Typeable EffectEventReset => (Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventReset Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema O3.ToSchema) data EffectEventFailed = EffectEventFailed { EffectEventFailed -> UTCTime time :: UTCTime, EffectEventFailed -> Maybe Text technicalError :: Maybe Text } deriving ((forall x. EffectEventFailed -> Rep EffectEventFailed x) -> (forall x. Rep EffectEventFailed x -> EffectEventFailed) -> Generic EffectEventFailed forall x. Rep EffectEventFailed x -> EffectEventFailed forall x. EffectEventFailed -> Rep EffectEventFailed x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventFailed -> Rep EffectEventFailed x from :: forall x. EffectEventFailed -> Rep EffectEventFailed x $cto :: forall x. Rep EffectEventFailed x -> EffectEventFailed to :: forall x. Rep EffectEventFailed x -> EffectEventFailed Generic, Int -> EffectEventFailed -> ShowS [EffectEventFailed] -> ShowS EffectEventFailed -> String (Int -> EffectEventFailed -> ShowS) -> (EffectEventFailed -> String) -> ([EffectEventFailed] -> ShowS) -> Show EffectEventFailed forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventFailed -> ShowS showsPrec :: Int -> EffectEventFailed -> ShowS $cshow :: EffectEventFailed -> String show :: EffectEventFailed -> String $cshowList :: [EffectEventFailed] -> ShowS showList :: [EffectEventFailed] -> ShowS Show, EffectEventFailed -> EffectEventFailed -> Bool (EffectEventFailed -> EffectEventFailed -> Bool) -> (EffectEventFailed -> EffectEventFailed -> Bool) -> Eq EffectEventFailed forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventFailed -> EffectEventFailed -> Bool == :: EffectEventFailed -> EffectEventFailed -> Bool $c/= :: EffectEventFailed -> EffectEventFailed -> Bool /= :: EffectEventFailed -> EffectEventFailed -> Bool Eq) deriving anyclass (EffectEventFailed -> () (EffectEventFailed -> ()) -> NFData EffectEventFailed forall a. (a -> ()) -> NFData a $crnf :: EffectEventFailed -> () rnf :: EffectEventFailed -> () NFData, [EffectEventFailed] -> Value [EffectEventFailed] -> Encoding EffectEventFailed -> Value EffectEventFailed -> Encoding (EffectEventFailed -> Value) -> (EffectEventFailed -> Encoding) -> ([EffectEventFailed] -> Value) -> ([EffectEventFailed] -> Encoding) -> ToJSON EffectEventFailed forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventFailed -> Value toJSON :: EffectEventFailed -> Value $ctoEncoding :: EffectEventFailed -> Encoding toEncoding :: EffectEventFailed -> Encoding $ctoJSONList :: [EffectEventFailed] -> Value toJSONList :: [EffectEventFailed] -> Value $ctoEncodingList :: [EffectEventFailed] -> Encoding toEncodingList :: [EffectEventFailed] -> Encoding ToJSON, Value -> Parser [EffectEventFailed] Value -> Parser EffectEventFailed (Value -> Parser EffectEventFailed) -> (Value -> Parser [EffectEventFailed]) -> FromJSON EffectEventFailed forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventFailed parseJSON :: Value -> Parser EffectEventFailed $cparseJSONList :: Value -> Parser [EffectEventFailed] parseJSONList :: Value -> Parser [EffectEventFailed] FromJSON, Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventFailed forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventFailed Typeable EffectEventFailed => (Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventFailed Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema O3.ToSchema) data EffectEventSucceeded = EffectEventSucceeded { EffectEventSucceeded -> UTCTime time :: UTCTime } deriving ((forall x. EffectEventSucceeded -> Rep EffectEventSucceeded x) -> (forall x. Rep EffectEventSucceeded x -> EffectEventSucceeded) -> Generic EffectEventSucceeded forall x. Rep EffectEventSucceeded x -> EffectEventSucceeded forall x. EffectEventSucceeded -> Rep EffectEventSucceeded x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventSucceeded -> Rep EffectEventSucceeded x from :: forall x. EffectEventSucceeded -> Rep EffectEventSucceeded x $cto :: forall x. Rep EffectEventSucceeded x -> EffectEventSucceeded to :: forall x. Rep EffectEventSucceeded x -> EffectEventSucceeded Generic, Int -> EffectEventSucceeded -> ShowS [EffectEventSucceeded] -> ShowS EffectEventSucceeded -> String (Int -> EffectEventSucceeded -> ShowS) -> (EffectEventSucceeded -> String) -> ([EffectEventSucceeded] -> ShowS) -> Show EffectEventSucceeded forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventSucceeded -> ShowS showsPrec :: Int -> EffectEventSucceeded -> ShowS $cshow :: EffectEventSucceeded -> String show :: EffectEventSucceeded -> String $cshowList :: [EffectEventSucceeded] -> ShowS showList :: [EffectEventSucceeded] -> ShowS Show, EffectEventSucceeded -> EffectEventSucceeded -> Bool (EffectEventSucceeded -> EffectEventSucceeded -> Bool) -> (EffectEventSucceeded -> EffectEventSucceeded -> Bool) -> Eq EffectEventSucceeded forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventSucceeded -> EffectEventSucceeded -> Bool == :: EffectEventSucceeded -> EffectEventSucceeded -> Bool $c/= :: EffectEventSucceeded -> EffectEventSucceeded -> Bool /= :: EffectEventSucceeded -> EffectEventSucceeded -> Bool Eq) deriving anyclass (EffectEventSucceeded -> () (EffectEventSucceeded -> ()) -> NFData EffectEventSucceeded forall a. (a -> ()) -> NFData a $crnf :: EffectEventSucceeded -> () rnf :: EffectEventSucceeded -> () NFData, [EffectEventSucceeded] -> Value [EffectEventSucceeded] -> Encoding EffectEventSucceeded -> Value EffectEventSucceeded -> Encoding (EffectEventSucceeded -> Value) -> (EffectEventSucceeded -> Encoding) -> ([EffectEventSucceeded] -> Value) -> ([EffectEventSucceeded] -> Encoding) -> ToJSON EffectEventSucceeded forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventSucceeded -> Value toJSON :: EffectEventSucceeded -> Value $ctoEncoding :: EffectEventSucceeded -> Encoding toEncoding :: EffectEventSucceeded -> Encoding $ctoJSONList :: [EffectEventSucceeded] -> Value toJSONList :: [EffectEventSucceeded] -> Value $ctoEncodingList :: [EffectEventSucceeded] -> Encoding toEncodingList :: [EffectEventSucceeded] -> Encoding ToJSON, Value -> Parser [EffectEventSucceeded] Value -> Parser EffectEventSucceeded (Value -> Parser EffectEventSucceeded) -> (Value -> Parser [EffectEventSucceeded]) -> FromJSON EffectEventSucceeded forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventSucceeded parseJSON :: Value -> Parser EffectEventSucceeded $cparseJSONList :: Value -> Parser [EffectEventSucceeded] parseJSONList :: Value -> Parser [EffectEventSucceeded] FromJSON, Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventSucceeded forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventSucceeded Typeable EffectEventSucceeded => (Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventSucceeded Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventSucceeded -> Declare (Definitions Schema) NamedSchema O3.ToSchema) data EffectEventCancelled = EffectEventCancelled { EffectEventCancelled -> UTCTime time :: UTCTime } deriving ((forall x. EffectEventCancelled -> Rep EffectEventCancelled x) -> (forall x. Rep EffectEventCancelled x -> EffectEventCancelled) -> Generic EffectEventCancelled forall x. Rep EffectEventCancelled x -> EffectEventCancelled forall x. EffectEventCancelled -> Rep EffectEventCancelled x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. EffectEventCancelled -> Rep EffectEventCancelled x from :: forall x. EffectEventCancelled -> Rep EffectEventCancelled x $cto :: forall x. Rep EffectEventCancelled x -> EffectEventCancelled to :: forall x. Rep EffectEventCancelled x -> EffectEventCancelled Generic, Int -> EffectEventCancelled -> ShowS [EffectEventCancelled] -> ShowS EffectEventCancelled -> String (Int -> EffectEventCancelled -> ShowS) -> (EffectEventCancelled -> String) -> ([EffectEventCancelled] -> ShowS) -> Show EffectEventCancelled forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> EffectEventCancelled -> ShowS showsPrec :: Int -> EffectEventCancelled -> ShowS $cshow :: EffectEventCancelled -> String show :: EffectEventCancelled -> String $cshowList :: [EffectEventCancelled] -> ShowS showList :: [EffectEventCancelled] -> ShowS Show, EffectEventCancelled -> EffectEventCancelled -> Bool (EffectEventCancelled -> EffectEventCancelled -> Bool) -> (EffectEventCancelled -> EffectEventCancelled -> Bool) -> Eq EffectEventCancelled forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: EffectEventCancelled -> EffectEventCancelled -> Bool == :: EffectEventCancelled -> EffectEventCancelled -> Bool $c/= :: EffectEventCancelled -> EffectEventCancelled -> Bool /= :: EffectEventCancelled -> EffectEventCancelled -> Bool Eq) deriving anyclass (EffectEventCancelled -> () (EffectEventCancelled -> ()) -> NFData EffectEventCancelled forall a. (a -> ()) -> NFData a $crnf :: EffectEventCancelled -> () rnf :: EffectEventCancelled -> () NFData, [EffectEventCancelled] -> Value [EffectEventCancelled] -> Encoding EffectEventCancelled -> Value EffectEventCancelled -> Encoding (EffectEventCancelled -> Value) -> (EffectEventCancelled -> Encoding) -> ([EffectEventCancelled] -> Value) -> ([EffectEventCancelled] -> Encoding) -> ToJSON EffectEventCancelled forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: EffectEventCancelled -> Value toJSON :: EffectEventCancelled -> Value $ctoEncoding :: EffectEventCancelled -> Encoding toEncoding :: EffectEventCancelled -> Encoding $ctoJSONList :: [EffectEventCancelled] -> Value toJSONList :: [EffectEventCancelled] -> Value $ctoEncodingList :: [EffectEventCancelled] -> Encoding toEncodingList :: [EffectEventCancelled] -> Encoding ToJSON, Value -> Parser [EffectEventCancelled] Value -> Parser EffectEventCancelled (Value -> Parser EffectEventCancelled) -> (Value -> Parser [EffectEventCancelled]) -> FromJSON EffectEventCancelled forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser EffectEventCancelled parseJSON :: Value -> Parser EffectEventCancelled $cparseJSONList :: Value -> Parser [EffectEventCancelled] parseJSONList :: Value -> Parser [EffectEventCancelled] FromJSON, Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema (Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventCancelled forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable EffectEventCancelled Typeable EffectEventCancelled => (Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema) -> ToSchema EffectEventCancelled Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema forall a. Typeable a => (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy EffectEventCancelled -> Declare (Definitions Schema) NamedSchema O3.ToSchema)