{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} module Hercules.API.Agent.Effect.EffectTask where import Hercules.API.Prelude import Hercules.API.Task (Task) data EffectTask = EffectTask { EffectTask -> Id (Task EffectTask) id :: Id (Task EffectTask), EffectTask -> Text derivationPath :: Text, EffectTask -> Text logToken :: Text, EffectTask -> [Text] inputDerivationOutputPaths :: [Text], EffectTask -> Text token :: Text, EffectTask -> Id "project" projectId :: Id "project", EffectTask -> Text projectPath :: Text } deriving ((forall x. EffectTask -> Rep EffectTask x) -> (forall x. Rep EffectTask x -> EffectTask) -> Generic EffectTask forall x. Rep EffectTask x -> EffectTask forall x. EffectTask -> Rep EffectTask x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep EffectTask x -> EffectTask $cfrom :: forall x. EffectTask -> Rep EffectTask x Generic, Int -> EffectTask -> ShowS [EffectTask] -> ShowS EffectTask -> String (Int -> EffectTask -> ShowS) -> (EffectTask -> String) -> ([EffectTask] -> ShowS) -> Show EffectTask forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [EffectTask] -> ShowS $cshowList :: [EffectTask] -> ShowS show :: EffectTask -> String $cshow :: EffectTask -> String showsPrec :: Int -> EffectTask -> ShowS $cshowsPrec :: Int -> EffectTask -> ShowS Show, EffectTask -> EffectTask -> Bool (EffectTask -> EffectTask -> Bool) -> (EffectTask -> EffectTask -> Bool) -> Eq EffectTask forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: EffectTask -> EffectTask -> Bool $c/= :: EffectTask -> EffectTask -> Bool == :: EffectTask -> EffectTask -> Bool $c== :: EffectTask -> EffectTask -> Bool Eq, EffectTask -> () (EffectTask -> ()) -> NFData EffectTask forall a. (a -> ()) -> NFData a rnf :: EffectTask -> () $crnf :: EffectTask -> () NFData, [EffectTask] -> Encoding [EffectTask] -> Value EffectTask -> Encoding EffectTask -> Value (EffectTask -> Value) -> (EffectTask -> Encoding) -> ([EffectTask] -> Value) -> ([EffectTask] -> Encoding) -> ToJSON EffectTask forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a toEncodingList :: [EffectTask] -> Encoding $ctoEncodingList :: [EffectTask] -> Encoding toJSONList :: [EffectTask] -> Value $ctoJSONList :: [EffectTask] -> Value toEncoding :: EffectTask -> Encoding $ctoEncoding :: EffectTask -> Encoding toJSON :: EffectTask -> Value $ctoJSON :: EffectTask -> Value ToJSON, Value -> Parser [EffectTask] Value -> Parser EffectTask (Value -> Parser EffectTask) -> (Value -> Parser [EffectTask]) -> FromJSON EffectTask forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a parseJSONList :: Value -> Parser [EffectTask] $cparseJSONList :: Value -> Parser [EffectTask] parseJSON :: Value -> Parser EffectTask $cparseJSON :: Value -> Parser EffectTask FromJSON)