{-# LANGUAGE DeriveAnyClass #-} module Hercules.Agent.WorkerProtocol.Event.BuildResult where import Data.Binary import Hercules.Agent.WorkerProtocol.OutputInfo (OutputInfo) import Protolude data BuildResult = BuildFailure {BuildResult -> Text errorMessage :: Text} | BuildSuccess {BuildResult -> [OutputInfo] outputs :: [OutputInfo]} deriving ((forall x. BuildResult -> Rep BuildResult x) -> (forall x. Rep BuildResult x -> BuildResult) -> Generic BuildResult forall x. Rep BuildResult x -> BuildResult forall x. BuildResult -> Rep BuildResult x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. BuildResult -> Rep BuildResult x from :: forall x. BuildResult -> Rep BuildResult x $cto :: forall x. Rep BuildResult x -> BuildResult to :: forall x. Rep BuildResult x -> BuildResult Generic, Get BuildResult [BuildResult] -> Put BuildResult -> Put (BuildResult -> Put) -> Get BuildResult -> ([BuildResult] -> Put) -> Binary BuildResult forall t. (t -> Put) -> Get t -> ([t] -> Put) -> Binary t $cput :: BuildResult -> Put put :: BuildResult -> Put $cget :: Get BuildResult get :: Get BuildResult $cputList :: [BuildResult] -> Put putList :: [BuildResult] -> Put Binary, Int -> BuildResult -> ShowS [BuildResult] -> ShowS BuildResult -> String (Int -> BuildResult -> ShowS) -> (BuildResult -> String) -> ([BuildResult] -> ShowS) -> Show BuildResult forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> BuildResult -> ShowS showsPrec :: Int -> BuildResult -> ShowS $cshow :: BuildResult -> String show :: BuildResult -> String $cshowList :: [BuildResult] -> ShowS showList :: [BuildResult] -> ShowS Show, BuildResult -> BuildResult -> Bool (BuildResult -> BuildResult -> Bool) -> (BuildResult -> BuildResult -> Bool) -> Eq BuildResult forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: BuildResult -> BuildResult -> Bool == :: BuildResult -> BuildResult -> Bool $c/= :: BuildResult -> BuildResult -> Bool /= :: BuildResult -> BuildResult -> Bool Eq)