From: Pepe Iborra <mnislaih@gmail.com>
Date: Wed, 9 May 2007 10:18:54 +0000 (+0000)
Subject: Fixed a badly defined pattern match
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ba3819264292ce81f02495f67887a0568d373d1e

Fixed a badly defined pattern match
---

diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs
index 44c37fb..33fcf61 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