diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-05-09 10:18:54 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-05-09 10:18:54 +0000 |
| commit | ba3819264292ce81f02495f67887a0568d373d1e (patch) | |
| tree | c4bf4514ebeacd0d1aa8b5f61630ec9d9848ed40 /compiler/ghci/Debugger.hs | |
| parent | 4a6a64b9f9437e40706368bf288d62f1aa5060a5 (diff) | |
| download | haskell-ba3819264292ce81f02495f67887a0568d373d1e.tar.gz | |
Fixed a badly defined pattern match
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 44c37fb329..33fcf61d73 100644 --- 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 |