From 05e8eeffeed187e61b221d1e86536d629699e5af Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Sun, 11 Jan 2026 23:53:24 +0000
Subject: [PATCH] Minor refactor

---
 haskell/Pre.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/haskell/Pre.hs b/haskell/Pre.hs
index 84ab04f..cc420eb 100644
--- a/haskell/Pre.hs
+++ b/haskell/Pre.hs
@@ -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