{-# LANGUAGE DeriveAnyClass #-} module Hercules.API.Agent.Evaluate.EvaluateEvent.AttributeErrorEvent where import Data.Aeson.Types import Hercules.API.Prelude data AttributeErrorEvent = AttributeErrorEvent { AttributeErrorEvent -> [Text] expressionPath :: [Text], AttributeErrorEvent -> Text errorMessage :: Text, AttributeErrorEvent -> Maybe Text errorDerivation :: Maybe Text, AttributeErrorEvent -> Maybe Text errorType :: Maybe Text, AttributeErrorEvent -> Maybe Text trace :: Maybe Text } deriving ((forall x. AttributeErrorEvent -> Rep AttributeErrorEvent x) -> (forall x. Rep AttributeErrorEvent x -> AttributeErrorEvent) -> Generic AttributeErrorEvent forall x. Rep AttributeErrorEvent x -> AttributeErrorEvent forall x. AttributeErrorEvent -> Rep AttributeErrorEvent x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. AttributeErrorEvent -> Rep AttributeErrorEvent x from :: forall x. AttributeErrorEvent -> Rep AttributeErrorEvent x $cto :: forall x. Rep AttributeErrorEvent x -> AttributeErrorEvent to :: forall x. Rep AttributeErrorEvent x -> AttributeErrorEvent Generic, Int -> AttributeErrorEvent -> ShowS [AttributeErrorEvent] -> ShowS AttributeErrorEvent -> String (Int -> AttributeErrorEvent -> ShowS) -> (AttributeErrorEvent -> String) -> ([AttributeErrorEvent] -> ShowS) -> Show AttributeErrorEvent forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> AttributeErrorEvent -> ShowS showsPrec :: Int -> AttributeErrorEvent -> ShowS $cshow :: AttributeErrorEvent -> String show :: AttributeErrorEvent -> String $cshowList :: [AttributeErrorEvent] -> ShowS showList :: [AttributeErrorEvent] -> ShowS Show, AttributeErrorEvent -> AttributeErrorEvent -> Bool (AttributeErrorEvent -> AttributeErrorEvent -> Bool) -> (AttributeErrorEvent -> AttributeErrorEvent -> Bool) -> Eq AttributeErrorEvent forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: AttributeErrorEvent -> AttributeErrorEvent -> Bool == :: AttributeErrorEvent -> AttributeErrorEvent -> Bool $c/= :: AttributeErrorEvent -> AttributeErrorEvent -> Bool /= :: AttributeErrorEvent -> AttributeErrorEvent -> Bool Eq, AttributeErrorEvent -> () (AttributeErrorEvent -> ()) -> NFData AttributeErrorEvent forall a. (a -> ()) -> NFData a $crnf :: AttributeErrorEvent -> () rnf :: AttributeErrorEvent -> () NFData) instance ToJSON AttributeErrorEvent where toJSON :: AttributeErrorEvent -> Value toJSON = Options -> AttributeErrorEvent -> Value forall a. (Generic a, GToJSON' Value Zero (Rep a)) => Options -> a -> Value genericToJSON Options aesonOptions toEncoding :: AttributeErrorEvent -> Encoding toEncoding = Options -> AttributeErrorEvent -> Encoding forall a. (Generic a, GToJSON' Encoding Zero (Rep a)) => Options -> a -> Encoding genericToEncoding Options aesonOptions instance FromJSON AttributeErrorEvent where parseJSON :: Value -> Parser AttributeErrorEvent parseJSON = Options -> Value -> Parser AttributeErrorEvent forall a. (Generic a, GFromJSON Zero (Rep a)) => Options -> Value -> Parser a genericParseJSON Options aesonOptions aesonOptions :: Options aesonOptions :: Options aesonOptions = Options defaultOptions { omitNothingFields :: Bool omitNothingFields = Bool True }