{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DuplicateRecordFields #-}

module Hercules.API.Effects.EffectEvent where

import Data.Aeson.Types (FromJSON (..), ToJSON (..), genericParseJSON, genericToEncoding, genericToJSON)
import Hercules.API.Prelude

data EffectEvent
  = Queued EffectEventQueued
  | DependencyFailed EffectEventDependencyFailed
  | Started EffectEventStarted
  | Failed EffectEventFailed
  | Succeeded EffectEventSucceeded
  | Cancelled EffectEventCancelled
  deriving (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
$cto :: forall x. Rep EffectEvent x -> EffectEvent
$cfrom :: forall x. EffectEvent -> Rep EffectEvent x
Generic, Int -> EffectEvent -> ShowS
[EffectEvent] -> ShowS
EffectEvent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEvent] -> ShowS
$cshowList :: [EffectEvent] -> ShowS
show :: EffectEvent -> String
$cshow :: EffectEvent -> String
showsPrec :: Int -> EffectEvent -> ShowS
$cshowsPrec :: Int -> EffectEvent -> ShowS
Show, EffectEvent -> EffectEvent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEvent -> EffectEvent -> Bool
$c/= :: EffectEvent -> EffectEvent -> Bool
== :: EffectEvent -> EffectEvent -> Bool
$c== :: EffectEvent -> EffectEvent -> Bool
Eq, EffectEvent -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEvent -> ()
$crnf :: EffectEvent -> ()
NFData, Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEvent -> Declare (Definitions Schema) NamedSchema
ToSchema)

instance FromJSON EffectEvent where
  parseJSON :: Value -> Parser EffectEvent
parseJSON = forall a.
(Generic a, GFromJSON Zero (Rep a)) =>
Options -> Value -> Parser a
genericParseJSON Options
schemaCompatibleOptions

instance ToJSON EffectEvent where
  toJSON :: EffectEvent -> Value
toJSON = forall a.
(Generic a, GToJSON' Value Zero (Rep a)) =>
Options -> a -> Value
genericToJSON Options
schemaCompatibleOptions

  toEncoding :: EffectEvent -> Encoding
toEncoding = 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. 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
$cto :: forall x. Rep EffectEventQueued x -> EffectEventQueued
$cfrom :: forall x. EffectEventQueued -> Rep EffectEventQueued x
Generic, Int -> EffectEventQueued -> ShowS
[EffectEventQueued] -> ShowS
EffectEventQueued -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventQueued] -> ShowS
$cshowList :: [EffectEventQueued] -> ShowS
show :: EffectEventQueued -> String
$cshow :: EffectEventQueued -> String
showsPrec :: Int -> EffectEventQueued -> ShowS
$cshowsPrec :: Int -> EffectEventQueued -> ShowS
Show, EffectEventQueued -> EffectEventQueued -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventQueued -> EffectEventQueued -> Bool
$c/= :: EffectEventQueued -> EffectEventQueued -> Bool
== :: EffectEventQueued -> EffectEventQueued -> Bool
$c== :: EffectEventQueued -> EffectEventQueued -> Bool
Eq, EffectEventQueued -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventQueued -> ()
$crnf :: EffectEventQueued -> ()
NFData, [EffectEventQueued] -> Encoding
[EffectEventQueued] -> Value
EffectEventQueued -> Encoding
EffectEventQueued -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventQueued] -> Encoding
$ctoEncodingList :: [EffectEventQueued] -> Encoding
toJSONList :: [EffectEventQueued] -> Value
$ctoJSONList :: [EffectEventQueued] -> Value
toEncoding :: EffectEventQueued -> Encoding
$ctoEncoding :: EffectEventQueued -> Encoding
toJSON :: EffectEventQueued -> Value
$ctoJSON :: EffectEventQueued -> Value
ToJSON, Value -> Parser [EffectEventQueued]
Value -> Parser EffectEventQueued
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventQueued]
$cparseJSONList :: Value -> Parser [EffectEventQueued]
parseJSON :: Value -> Parser EffectEventQueued
$cparseJSON :: Value -> Parser EffectEventQueued
FromJSON, Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventQueued -> Declare (Definitions Schema) NamedSchema
ToSchema)

data EffectEventDependencyFailed = EffectEventDependencyFailed
  { EffectEventDependencyFailed -> UTCTime
time :: UTCTime
  }
  deriving (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
$cto :: forall x.
Rep EffectEventDependencyFailed x -> EffectEventDependencyFailed
$cfrom :: forall x.
EffectEventDependencyFailed -> Rep EffectEventDependencyFailed x
Generic, Int -> EffectEventDependencyFailed -> ShowS
[EffectEventDependencyFailed] -> ShowS
EffectEventDependencyFailed -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventDependencyFailed] -> ShowS
$cshowList :: [EffectEventDependencyFailed] -> ShowS
show :: EffectEventDependencyFailed -> String
$cshow :: EffectEventDependencyFailed -> String
showsPrec :: Int -> EffectEventDependencyFailed -> ShowS
$cshowsPrec :: Int -> EffectEventDependencyFailed -> ShowS
Show, EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool
$c/= :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool
== :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool
$c== :: EffectEventDependencyFailed -> EffectEventDependencyFailed -> Bool
Eq, EffectEventDependencyFailed -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventDependencyFailed -> ()
$crnf :: EffectEventDependencyFailed -> ()
NFData, [EffectEventDependencyFailed] -> Encoding
[EffectEventDependencyFailed] -> Value
EffectEventDependencyFailed -> Encoding
EffectEventDependencyFailed -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventDependencyFailed] -> Encoding
$ctoEncodingList :: [EffectEventDependencyFailed] -> Encoding
toJSONList :: [EffectEventDependencyFailed] -> Value
$ctoJSONList :: [EffectEventDependencyFailed] -> Value
toEncoding :: EffectEventDependencyFailed -> Encoding
$ctoEncoding :: EffectEventDependencyFailed -> Encoding
toJSON :: EffectEventDependencyFailed -> Value
$ctoJSON :: EffectEventDependencyFailed -> Value
ToJSON, Value -> Parser [EffectEventDependencyFailed]
Value -> Parser EffectEventDependencyFailed
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventDependencyFailed]
$cparseJSONList :: Value -> Parser [EffectEventDependencyFailed]
parseJSON :: Value -> Parser EffectEventDependencyFailed
$cparseJSON :: Value -> Parser EffectEventDependencyFailed
FromJSON, Proxy EffectEventDependencyFailed
-> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventDependencyFailed
-> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventDependencyFailed
-> Declare (Definitions Schema) NamedSchema
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. 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
$cto :: forall x. Rep EffectEventStarted x -> EffectEventStarted
$cfrom :: forall x. EffectEventStarted -> Rep EffectEventStarted x
Generic, Int -> EffectEventStarted -> ShowS
[EffectEventStarted] -> ShowS
EffectEventStarted -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventStarted] -> ShowS
$cshowList :: [EffectEventStarted] -> ShowS
show :: EffectEventStarted -> String
$cshow :: EffectEventStarted -> String
showsPrec :: Int -> EffectEventStarted -> ShowS
$cshowsPrec :: Int -> EffectEventStarted -> ShowS
Show, EffectEventStarted -> EffectEventStarted -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventStarted -> EffectEventStarted -> Bool
$c/= :: EffectEventStarted -> EffectEventStarted -> Bool
== :: EffectEventStarted -> EffectEventStarted -> Bool
$c== :: EffectEventStarted -> EffectEventStarted -> Bool
Eq, EffectEventStarted -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventStarted -> ()
$crnf :: EffectEventStarted -> ()
NFData, [EffectEventStarted] -> Encoding
[EffectEventStarted] -> Value
EffectEventStarted -> Encoding
EffectEventStarted -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventStarted] -> Encoding
$ctoEncodingList :: [EffectEventStarted] -> Encoding
toJSONList :: [EffectEventStarted] -> Value
$ctoJSONList :: [EffectEventStarted] -> Value
toEncoding :: EffectEventStarted -> Encoding
$ctoEncoding :: EffectEventStarted -> Encoding
toJSON :: EffectEventStarted -> Value
$ctoJSON :: EffectEventStarted -> Value
ToJSON, Value -> Parser [EffectEventStarted]
Value -> Parser EffectEventStarted
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventStarted]
$cparseJSONList :: Value -> Parser [EffectEventStarted]
parseJSON :: Value -> Parser EffectEventStarted
$cparseJSON :: Value -> Parser EffectEventStarted
FromJSON, Proxy EffectEventStarted
-> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventStarted
-> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventStarted
-> Declare (Definitions Schema) NamedSchema
ToSchema)

data EffectEventReset = EffectEventReset
  { EffectEventReset -> UTCTime
time :: UTCTime
  }
  deriving (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
$cto :: forall x. Rep EffectEventReset x -> EffectEventReset
$cfrom :: forall x. EffectEventReset -> Rep EffectEventReset x
Generic, Int -> EffectEventReset -> ShowS
[EffectEventReset] -> ShowS
EffectEventReset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventReset] -> ShowS
$cshowList :: [EffectEventReset] -> ShowS
show :: EffectEventReset -> String
$cshow :: EffectEventReset -> String
showsPrec :: Int -> EffectEventReset -> ShowS
$cshowsPrec :: Int -> EffectEventReset -> ShowS
Show, EffectEventReset -> EffectEventReset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventReset -> EffectEventReset -> Bool
$c/= :: EffectEventReset -> EffectEventReset -> Bool
== :: EffectEventReset -> EffectEventReset -> Bool
$c== :: EffectEventReset -> EffectEventReset -> Bool
Eq, EffectEventReset -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventReset -> ()
$crnf :: EffectEventReset -> ()
NFData, [EffectEventReset] -> Encoding
[EffectEventReset] -> Value
EffectEventReset -> Encoding
EffectEventReset -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventReset] -> Encoding
$ctoEncodingList :: [EffectEventReset] -> Encoding
toJSONList :: [EffectEventReset] -> Value
$ctoJSONList :: [EffectEventReset] -> Value
toEncoding :: EffectEventReset -> Encoding
$ctoEncoding :: EffectEventReset -> Encoding
toJSON :: EffectEventReset -> Value
$ctoJSON :: EffectEventReset -> Value
ToJSON, Value -> Parser [EffectEventReset]
Value -> Parser EffectEventReset
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventReset]
$cparseJSONList :: Value -> Parser [EffectEventReset]
parseJSON :: Value -> Parser EffectEventReset
$cparseJSON :: Value -> Parser EffectEventReset
FromJSON, Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventReset -> Declare (Definitions Schema) NamedSchema
ToSchema)

data EffectEventFailed = EffectEventFailed
  { EffectEventFailed -> UTCTime
time :: UTCTime,
    EffectEventFailed -> Maybe Text
technicalError :: Maybe Text
  }
  deriving (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
$cto :: forall x. Rep EffectEventFailed x -> EffectEventFailed
$cfrom :: forall x. EffectEventFailed -> Rep EffectEventFailed x
Generic, Int -> EffectEventFailed -> ShowS
[EffectEventFailed] -> ShowS
EffectEventFailed -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventFailed] -> ShowS
$cshowList :: [EffectEventFailed] -> ShowS
show :: EffectEventFailed -> String
$cshow :: EffectEventFailed -> String
showsPrec :: Int -> EffectEventFailed -> ShowS
$cshowsPrec :: Int -> EffectEventFailed -> ShowS
Show, EffectEventFailed -> EffectEventFailed -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventFailed -> EffectEventFailed -> Bool
$c/= :: EffectEventFailed -> EffectEventFailed -> Bool
== :: EffectEventFailed -> EffectEventFailed -> Bool
$c== :: EffectEventFailed -> EffectEventFailed -> Bool
Eq, EffectEventFailed -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventFailed -> ()
$crnf :: EffectEventFailed -> ()
NFData, [EffectEventFailed] -> Encoding
[EffectEventFailed] -> Value
EffectEventFailed -> Encoding
EffectEventFailed -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventFailed] -> Encoding
$ctoEncodingList :: [EffectEventFailed] -> Encoding
toJSONList :: [EffectEventFailed] -> Value
$ctoJSONList :: [EffectEventFailed] -> Value
toEncoding :: EffectEventFailed -> Encoding
$ctoEncoding :: EffectEventFailed -> Encoding
toJSON :: EffectEventFailed -> Value
$ctoJSON :: EffectEventFailed -> Value
ToJSON, Value -> Parser [EffectEventFailed]
Value -> Parser EffectEventFailed
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventFailed]
$cparseJSONList :: Value -> Parser [EffectEventFailed]
parseJSON :: Value -> Parser EffectEventFailed
$cparseJSON :: Value -> Parser EffectEventFailed
FromJSON, Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventFailed -> Declare (Definitions Schema) NamedSchema
ToSchema)

data EffectEventSucceeded = EffectEventSucceeded
  { EffectEventSucceeded -> UTCTime
time :: UTCTime
  }
  deriving (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
$cto :: forall x. Rep EffectEventSucceeded x -> EffectEventSucceeded
$cfrom :: forall x. EffectEventSucceeded -> Rep EffectEventSucceeded x
Generic, Int -> EffectEventSucceeded -> ShowS
[EffectEventSucceeded] -> ShowS
EffectEventSucceeded -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventSucceeded] -> ShowS
$cshowList :: [EffectEventSucceeded] -> ShowS
show :: EffectEventSucceeded -> String
$cshow :: EffectEventSucceeded -> String
showsPrec :: Int -> EffectEventSucceeded -> ShowS
$cshowsPrec :: Int -> EffectEventSucceeded -> ShowS
Show, EffectEventSucceeded -> EffectEventSucceeded -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventSucceeded -> EffectEventSucceeded -> Bool
$c/= :: EffectEventSucceeded -> EffectEventSucceeded -> Bool
== :: EffectEventSucceeded -> EffectEventSucceeded -> Bool
$c== :: EffectEventSucceeded -> EffectEventSucceeded -> Bool
Eq, EffectEventSucceeded -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventSucceeded -> ()
$crnf :: EffectEventSucceeded -> ()
NFData, [EffectEventSucceeded] -> Encoding
[EffectEventSucceeded] -> Value
EffectEventSucceeded -> Encoding
EffectEventSucceeded -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventSucceeded] -> Encoding
$ctoEncodingList :: [EffectEventSucceeded] -> Encoding
toJSONList :: [EffectEventSucceeded] -> Value
$ctoJSONList :: [EffectEventSucceeded] -> Value
toEncoding :: EffectEventSucceeded -> Encoding
$ctoEncoding :: EffectEventSucceeded -> Encoding
toJSON :: EffectEventSucceeded -> Value
$ctoJSON :: EffectEventSucceeded -> Value
ToJSON, Value -> Parser [EffectEventSucceeded]
Value -> Parser EffectEventSucceeded
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventSucceeded]
$cparseJSONList :: Value -> Parser [EffectEventSucceeded]
parseJSON :: Value -> Parser EffectEventSucceeded
$cparseJSON :: Value -> Parser EffectEventSucceeded
FromJSON, Proxy EffectEventSucceeded
-> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventSucceeded
-> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventSucceeded
-> Declare (Definitions Schema) NamedSchema
ToSchema)

data EffectEventCancelled = EffectEventCancelled
  { EffectEventCancelled -> UTCTime
time :: UTCTime
  }
  deriving (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
$cto :: forall x. Rep EffectEventCancelled x -> EffectEventCancelled
$cfrom :: forall x. EffectEventCancelled -> Rep EffectEventCancelled x
Generic, Int -> EffectEventCancelled -> ShowS
[EffectEventCancelled] -> ShowS
EffectEventCancelled -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EffectEventCancelled] -> ShowS
$cshowList :: [EffectEventCancelled] -> ShowS
show :: EffectEventCancelled -> String
$cshow :: EffectEventCancelled -> String
showsPrec :: Int -> EffectEventCancelled -> ShowS
$cshowsPrec :: Int -> EffectEventCancelled -> ShowS
Show, EffectEventCancelled -> EffectEventCancelled -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EffectEventCancelled -> EffectEventCancelled -> Bool
$c/= :: EffectEventCancelled -> EffectEventCancelled -> Bool
== :: EffectEventCancelled -> EffectEventCancelled -> Bool
$c== :: EffectEventCancelled -> EffectEventCancelled -> Bool
Eq, EffectEventCancelled -> ()
forall a. (a -> ()) -> NFData a
rnf :: EffectEventCancelled -> ()
$crnf :: EffectEventCancelled -> ()
NFData, [EffectEventCancelled] -> Encoding
[EffectEventCancelled] -> Value
EffectEventCancelled -> Encoding
EffectEventCancelled -> Value
forall a.
(a -> Value)
-> (a -> Encoding)
-> ([a] -> Value)
-> ([a] -> Encoding)
-> ToJSON a
toEncodingList :: [EffectEventCancelled] -> Encoding
$ctoEncodingList :: [EffectEventCancelled] -> Encoding
toJSONList :: [EffectEventCancelled] -> Value
$ctoJSONList :: [EffectEventCancelled] -> Value
toEncoding :: EffectEventCancelled -> Encoding
$ctoEncoding :: EffectEventCancelled -> Encoding
toJSON :: EffectEventCancelled -> Value
$ctoJSON :: EffectEventCancelled -> Value
ToJSON, Value -> Parser [EffectEventCancelled]
Value -> Parser EffectEventCancelled
forall a.
(Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a
parseJSONList :: Value -> Parser [EffectEventCancelled]
$cparseJSONList :: Value -> Parser [EffectEventCancelled]
parseJSON :: Value -> Parser EffectEventCancelled
$cparseJSON :: Value -> Parser EffectEventCancelled
FromJSON, Proxy EffectEventCancelled
-> Declare (Definitions Schema) NamedSchema
forall a.
(Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a
declareNamedSchema :: Proxy EffectEventCancelled
-> Declare (Definitions Schema) NamedSchema
$cdeclareNamedSchema :: Proxy EffectEventCancelled
-> Declare (Definitions Schema) NamedSchema
ToSchema)