{-# 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)