GitLab

41f2321f
by Simon Peyton Jones at 2026-01-02T09:29:45+00:00
```
Wibble unused variables
```

@@ -510,13 +510,13 @@ zipCoEnv cvs cos
  instance Outputable Subst where
    ppr (Subst in_scope ids tvs cvs)
          =  char '<' <+>
 -           vcat [ -- InScope =" <+> in_scope_doc,
 +           vcat [ -- InScope =" <+> _in_scope_doc,
                    text " IdSubst   =" <+> ppr ids,
                    text " TvSubst   =" <+> ppr tvs,
                    text " CvSubst   =" <+> ppr cvs
                  ] <+>char '>'
      where
 -    in_scope_doc = pprVarSet (getInScopeVars in_scope) (braces . fsep . map ppr)
 +      _in_scope_doc = pprVarSet (getInScopeVars in_scope) (braces . fsep . map ppr)
  {-
  %************************************************************************