{-# LANGUAGE DeriveAnyClass #-} module Hercules.Agent.WorkerProtocol.Command.Build where import Data.Binary import Hercules.Agent.WorkerProtocol.LogSettings import Protolude data Build = Build { Build -> Text drvPath :: Text, Build -> [ByteString] inputDerivationOutputPaths :: [ByteString], Build -> LogSettings logSettings :: LogSettings, Build -> Bool materializeDerivation :: Bool } deriving ((forall x. Build -> Rep Build x) -> (forall x. Rep Build x -> Build) -> Generic Build forall x. Rep Build x -> Build forall x. Build -> Rep Build x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Build x -> Build $cfrom :: forall x. Build -> Rep Build x Generic, Get Build [Build] -> Put Build -> Put (Build -> Put) -> Get Build -> ([Build] -> Put) -> Binary Build forall t. (t -> Put) -> Get t -> ([t] -> Put) -> Binary t putList :: [Build] -> Put $cputList :: [Build] -> Put get :: Get Build $cget :: Get Build put :: Build -> Put $cput :: Build -> Put Binary, Int -> Build -> ShowS [Build] -> ShowS Build -> String (Int -> Build -> ShowS) -> (Build -> String) -> ([Build] -> ShowS) -> Show Build forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Build] -> ShowS $cshowList :: [Build] -> ShowS show :: Build -> String $cshow :: Build -> String showsPrec :: Int -> Build -> ShowS $cshowsPrec :: Int -> Build -> ShowS Show, Build -> Build -> Bool (Build -> Build -> Bool) -> (Build -> Build -> Bool) -> Eq Build forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Build -> Build -> Bool $c/= :: Build -> Build -> Bool == :: Build -> Build -> Bool $c== :: Build -> Build -> Bool Eq)