From 2d1607005d7f3146f8f1c7a2c2ded59bc94aff44 Mon Sep 17 00:00:00 2001
From: Heinrich Apfelmus <apfelmus@quantentunnel.de>
Date: Wed, 26 Feb 2025 13:57:08 +0100
Subject: [PATCH] Remove dependency on `either` in `launcher`

---
 lib/launcher/src/Cardano/Launcher.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/launcher/src/Cardano/Launcher.hs b/lib/launcher/src/Cardano/Launcher.hs
index 50eb40fb336..7c63642024b 100644
--- a/lib/launcher/src/Cardano/Launcher.hs
+++ b/lib/launcher/src/Cardano/Launcher.hs
@@ -56,9 +56,6 @@ import Control.Tracer
     , contramap
     , traceWith
     )
-import Data.Either.Combinators
-    ( leftToMaybe
-    )
 import Data.List
     ( isPrefixOf
     )
@@ -291,7 +288,7 @@ withBackendCreateProcess tr process mTimeoutSecs ifToSendSigINT action = do
                     (traceWith tr' MsgLauncherActionDone)
                     (action $ ProcessHandles mstdin mstdout mstderr ph)
 
-    traceWith tr $ MsgLauncherFinish (leftToMaybe res)
+    traceWith tr $ MsgLauncherFinish $ either Just (const Nothing) res
     either throwIO pure res
   where
     -- Exceptions resulting from the @exec@ call for this command. The most