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.Bifunctor
import Data.Bool import Data.Bool
import Data.Char import Data.Char
import Data.Either.Extra
import Data.Finite import Data.Finite
import Data.Fixed (Fixed (MkFixed)) import Data.Fixed (Fixed (MkFixed))
import Data.Foldable hiding (foldl1, foldr1, maximum, maximumBy, minimum, minimumBy) 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 pure $ Left $ ExceptionFailure e
Right (Right (r, dt)) -> do Right (Right (r, dt)) -> do
rs <- for ts $ runTests opts r 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) pure $ Right (dt + childTimes, rs)
where where
runTest = \case runTest = \case