diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-12-02 12:54:00 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-12-02 12:54:00 +0000 |
| commit | 7f474b779449109760d133eef5aba0aa3c38474a (patch) | |
| tree | 32533bfd3a7692ca1adc5b75b01097af2780f92e /compiler/ghci/Debugger.hs | |
| parent | 5a99cd502b29503578bc6a227bf80f2db9742e79 (diff) | |
| download | haskell-7f474b779449109760d133eef5aba0aa3c38474a.tar.gz | |
refactoring only
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 |