diff options
Diffstat (limited to 'compiler/ghci/Debugger.hs')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 5ae7db8caa..1b1b2c9025 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -79,7 +79,7 @@ pprintClosureCommand session bindThings force str = do -- Then, we extract a substitution, -- mapping the old tyvars to the reconstructed types. let Just reconstructed_type = termType term - subst = computeRTTIsubst (idType id) (reconstructed_type) + subst = unifyRTTI (idType id) (reconstructed_type) return (term',subst) tidyTermTyVars :: Session -> Term -> IO Term |