Use ghc-debug

2022-06-11 15:30:52 +02:00
parent 028696d4be
commit f60e1d1624
3 changed files with 6 additions and 1 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -26,6 +26,7 @@ import           GHCup.Prelude
 import           GHCup.Prelude.Logger
 import           GHCup.Prelude.String.QQ
 import           GHCup.Version
+import GHC.Debug.Stub

 import           Cabal.Plan ( findPlanJson, SearchPlanJson(..) )
 import           Control.Concurrent
@@ -120,7 +121,7 @@ plan_json = $( do


 main :: IO ()
-main = do
+main = withGhcDebug $ do
  -- https://gitlab.haskell.org/ghc/ghc/issues/8118
  setLocaleEncoding utf8