From 955bc2ac1a1cddee52fa574c7585db867e857cbd Mon Sep 17 00:00:00 2001
From: David Hewson <david.hewson@tracsis.com>
Date: Tue, 12 Dec 2023 18:25:23 +0000
Subject: [PATCH] undo this show related change in waitEither can't trigger the
 difference, if i find out what it was it can come back

---
 src/Test/WebDriver/Commands/Wait.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Test/WebDriver/Commands/Wait.hs b/src/Test/WebDriver/Commands/Wait.hs
index 9817afe..6f3af06 100644
--- a/src/Test/WebDriver/Commands/Wait.hs
+++ b/src/Test/WebDriver/Commands/Wait.hs
@@ -122,7 +122,7 @@ waitEither failure success = wait' handler
     handleFailedCommand e@(FailedCommand NoSuchElement _) = return . Left . show $ e
     handleFailedCommand err = throwIO err
 
-    handleExpectFailed (ExpectFailed e) = return . Left $ e
+    handleExpectFailed (e :: ExpectFailed) = return . Left . show $ e
 
 wait' :: (WDSessionStateIO m, HasCallStack) =>
          ((String -> m b) -> m a -> m b) -> Int -> Double -> m a -> m b