experimenter-0.1.0.0: src/Experimenter/StepResult.hs

{-# LANGUAGE DeriveAnyClass  #-}
{-# LANGUAGE DeriveGeneric   #-}
{-# LANGUAGE TemplateHaskell #-}

module Experimenter.StepResult where

import           Control.DeepSeq
import           Control.Lens
import qualified Data.Text       as T
import           GHC.Generics

data StepResult = StepResult
  { _resultName   :: !T.Text
  , _resultXValue :: !(Maybe Double) -- ^ If not specified number of steps
  , _resultYValue :: !Double
  } deriving (Generic)
makeLenses ''StepResult


instance NFData StepResult where
  rnf (StepResult n x y) = rnf n `seq` rnf1 x `seq` rnf y