diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-11-13 17:01:13 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-11-13 17:01:13 +0000 |
| commit | 40739684494d88dde2efad64f15be2acbcc884a2 (patch) | |
| tree | d74f5dcdba07aa040e0c339a7b58a6c732ba6ad1 /compiler/ghci/Debugger.hs | |
| parent | f0cecc6c982a5761343b6b1f8671bb50cd11145a (diff) | |
| download | haskell-40739684494d88dde2efad64f15be2acbcc884a2.tar.gz | |
Fix Trac 1865: GHCi debugger crashes with :print
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 d31d4d67d1..9fbee36b94 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -81,7 +81,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 - Just subst = computeRTTIsubst (idType id) (reconstructed_type) + subst = computeRTTIsubst (idType id) (reconstructed_type) return (term',subst) tidyTermTyVars :: Session -> Term -> IO Term |