Fix the tower of Babel (#2757)

haskell · Mar 6, 2022 · 73fdd91 · 73fdd91
1 parent e29f61f
commit 73fdd91
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"