From 491266eeaa64f34923335900fa42e1f239326cab Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Wed, 28 Apr 2021 17:46:44 +0200 Subject: Make GHC.Runtime.Interpreter independent of GHC.Driver --- compiler/GHC/Runtime/Heap/Inspect.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'compiler/GHC/Runtime/Heap/Inspect.hs') diff --git a/compiler/GHC/Runtime/Heap/Inspect.hs b/compiler/GHC/Runtime/Heap/Inspect.hs index dc01a161af..0ec936265e 100644 --- a/compiler/GHC/Runtime/Heap/Inspect.hs +++ b/compiler/GHC/Runtime/Heap/Inspect.hs @@ -731,6 +731,7 @@ cvObtainTerm hsc_env max_depth force old_ty hval = runTR hsc_env $ do return term where interp = hscInterp hsc_env + unit_env = hsc_unit_env hsc_env go :: Int -> Type -> Type -> ForeignHValue -> TcM Term -- I believe that my_ty should not have any enclosing @@ -753,7 +754,7 @@ cvObtainTerm hsc_env max_depth force old_ty hval = runTR hsc_env $ do -- Thunks we may want to force t | isThunk t && force -> do traceTR (text "Forcing a " <> text (show (fmap (const ()) t))) - evalRslt <- liftIO $ GHCi.seqHValue interp hsc_env a + evalRslt <- liftIO $ GHCi.seqHValue interp unit_env a case evalRslt of -- #2950 EvalSuccess _ -> go (pred max_depth) my_ty old_ty a EvalException ex -> do -- cgit v1.2.1