projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4a6a64b
)
Fixed a badly defined pattern match
author
Pepe Iborra
<mnislaih@gmail.com>
Wed, 9 May 2007 10:18:54 +0000
(10:18 +0000)
committer
Pepe Iborra
<mnislaih@gmail.com>
Wed, 9 May 2007 10:18:54 +0000
(10:18 +0000)
compiler/ghci/Debugger.hs
patch
|
blob
|
history
diff --git
a/compiler/ghci/Debugger.hs
b/compiler/ghci/Debugger.hs
index
44c37fb
..
33fcf61
100644
(file)
--- a/
compiler/ghci/Debugger.hs
+++ b/
compiler/ghci/Debugger.hs
@@
-99,7
+99,7
@@
pprintClosureCommand session bindThings force str = do
ids' = map (\id -> id `setIdType` substTy subst (idType id)) ids
subst_dom= varEnvKeys$ getTvSubstEnv subst
subst_ran= varEnvElts$ getTvSubstEnv subst
- new_tvs = [ tv | t <- subst_ran, let Just tv = getTyVar_maybe t]
+ new_tvs = [ tv | Just tv <- map getTyVar_maybe subst_ran]
ic_tyvars'= (`delVarSetListByKey` subst_dom)
. (`extendVarSetList` new_tvs)
$ ic_tyvars ictxt