Remove dependency on either in launcher

cardano-foundation · Feb 27, 2025 · 2d16070 · 2d16070
1 parent 9f3ff72
commit 2d16070
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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