Commit ba381926 authored by mnislaih's avatar mnislaih
Browse files

Fixed a badly defined pattern match

parent 4a6a64b9
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment