{-# 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. 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
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
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
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)