diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-04-28 17:46:44 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-30 23:22:13 -0400 |
| commit | 491266eeaa64f34923335900fa42e1f239326cab (patch) | |
| tree | bf43304ac8bdc07de248b4c7ae622e95d42ca918 /compiler/GHC/Runtime/Heap/Inspect.hs | |
| parent | c7ca3619e2544d7627c082b6e5bbe57a6b8abc05 (diff) | |
| download | haskell-491266eeaa64f34923335900fa42e1f239326cab.tar.gz | |
Make GHC.Runtime.Interpreter independent of GHC.Driver
Diffstat (limited to 'compiler/GHC/Runtime/Heap/Inspect.hs')
| -rw-r--r-- | compiler/GHC/Runtime/Heap/Inspect.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |