From 73fdd91e5a5a6a7cabdafb453f23749693029cc5 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sun, 6 Mar 2022 22:24:51 +0100
Subject: [PATCH] Fix the tower of Babel (#2757)

---
 exe/Wrapper.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exe/Wrapper.hs b/exe/Wrapper.hs
index ffc8db4389..b721a4f3f5 100644
--- a/exe/Wrapper.hs
+++ b/exe/Wrapper.hs
@@ -115,7 +115,7 @@ launchHaskellLanguageServer parsedArgs = do
 #else
       let Cradle { cradleOptsProg = CradleAction { runGhcCmd } } = cradle
       -- we need to be compatible with NoImplicitPrelude
-      ghcBinary <- (fmap trim <$> runGhcCmd ["-v0", "-package-env=-", "-e", "do e <- System.Environment.getExecutablePath ; System.IO.putStr e"])
+      ghcBinary <- (fmap trim <$> runGhcCmd ["-v0", "-package-env=-", "-ignore-dot-ghci", "-e", "Control.Monad.join (Control.Monad.fmap System.IO.putStr System.Environment.getExecutablePath)"])
         >>= cradleResult "Failed to get project GHC executable path"
       libdir <- HieBios.getRuntimeGhcLibDir cradle
         >>= cradleResult "Failed to get project GHC libdir path"