hercules-ci-agent-0.8.0: src/Hercules/Agent/WorkerProtocol/Event/BuildResult.hs

{-# LANGUAGE DeriveAnyClass #-}

module Hercules.Agent.WorkerProtocol.Event.BuildResult where

import Data.Binary
import Protolude

data BuildResult
  = BuildFailure {errorMessage :: Text}
  | BuildSuccess {outputs :: [OutputInfo]}
  deriving (Generic, Binary, Show, Eq)

data OutputInfo = OutputInfo
  { -- | e.g. out, dev
    name :: ByteString,
    -- | store path
    path :: ByteString,
    -- | typically sha256:...
    hash :: ByteString,
    -- | nar size in bytes
    size :: Int64
  }
  deriving (Generic, Binary, Show, Eq)