diff options
author | Luite Stegeman <stegeman@gmail.com> | 2020-12-10 14:19:02 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-20 07:49:15 -0400 |
commit | dd11f2d5e87ba83ca16510e3e1ac6c41c1df1647 (patch) | |
tree | 66550e7e66b679ae9ec31cab237d7bbced67b2ee /compiler/GHC/Core/Subst.hs | |
parent | ceef490b25dbff93860b121c58b0191b1a0c07bf (diff) | |
download | haskell-dd11f2d5e87ba83ca16510e3e1ac6c41c1df1647.tar.gz |
Save the type of breakpoints in the Breakpoint tick in STG
GHCi needs to know the types of all breakpoints, but it's
not possible to get the exprType of any expression in STG.
This is preparation for the upcoming change to make GHCi
bytecode from STG instead of Core.
Diffstat (limited to 'compiler/GHC/Core/Subst.hs')
-rw-r--r-- | compiler/GHC/Core/Subst.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Subst.hs b/compiler/GHC/Core/Subst.hs index 918733a725..7110208d79 100644 --- a/compiler/GHC/Core/Subst.hs +++ b/compiler/GHC/Core/Subst.hs @@ -718,8 +718,8 @@ substDVarSet subst fvs ------------------ substTickish :: Subst -> Tickish Id -> Tickish Id -substTickish subst (Breakpoint n ids) - = Breakpoint n (map do_one ids) +substTickish subst (Breakpoint ext n ids) + = Breakpoint ext n (map do_one ids) where do_one = getIdFromTrivialExpr . lookupIdSubst subst substTickish _subst other = other |