EvaluationDetail.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DerivingStrategies #-}

module Hercules.API.Build.EvaluationDetail where

import Data.OpenApi qualified as O3
import Hercules.API.Attribute (Attribute)
import Hercules.API.Build.AgentRequirements (AgentRequirements)
import Hercules.API.Build.EvaluationDependency
  ( EvaluationDependency,
  )
import Hercules.API.Derivation (Derivation, DerivationStatus)
import Hercules.API.Evaluation.AttributeError
  ( AttributeError,
  )
import Hercules.API.Evaluation.Evaluation
  ( Evaluation,
  )
import Hercules.API.Message (Message)
import Hercules.API.Prelude
import Hercules.API.Result (Result)

data EvaluationDetail = EvaluationDetail
  { id :: Id Evaluation,
    agentHostname :: Text,
    agentVersion :: Text,
    messages :: [Message],
    attributes :: [Attribute (Result AttributeError Derivation)],
    ifdAttributes :: [IFDAttribute],
    evaluationDependencies :: [EvaluationDependency],
    evaluationLog :: Maybe (Id "log"),
    -- | A set of (path, derivationstatus) that is relevant to the evaluation
    derivations :: Map Text DerivationStatus,
    derivationsWaitingCount :: Int,
    derivationsBuildingCount :: Int,
    derivationsBuildFailureCount :: Int,
    derivationsDependencyFailureCount :: Int,
    derivationsBuildSuccessCount :: Int,
    derivationsCancelledCount :: Int,
    unmetAgentRequirements :: [AgentRequirements]
  }
  deriving (Generic, Show, Eq)
  deriving anyclass (NFData, ToJSON, FromJSON, ToSchema, O3.ToSchema)

newtype IFDAttribute = IFDAttribute (Attribute Derivation)
  deriving (Generic, Show, Eq)
  deriving anyclass (NFData, ToJSON, FromJSON, ToSchema, O3.ToSchema)