patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor refactor

Browse Source
This commit is contained in:
George Thomas 2026-01-11 23:53:24 +00:00
parent 4aa4216354
commit 05e8eeffee
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
haskell/Pre.hs
View File

@ -107,7 +107,6 @@ import Control.Monad.Writer
import Data.Bifunctor
import Data.Bool
import Data.Char
import Data.Either.Extra
import Data.Finite
import Data.Fixed (Fixed (MkFixed))
import Data.Foldable hiding (foldl1, foldr1, maximum, maximumBy, minimum, minimumBy)
@ -436,7 +435,7 @@ runTests opts r0 (TestTree name tc ts) =
pure $ Left $ ExceptionFailure e
Right (Right (r, dt)) -> do
rs <- for ts $ runTests opts r
let childTimes = fromMaybe 0 $ eitherToMaybe $ fmap (sum . map fst) $ traverse (.result) rs
let childTimes = either (const 0) id $ fmap (sum . map fst) $ traverse (.result) rs
pure $ Right (dt + childTimes, rs)
where
runTest = \case