[project @ 1996-03-21 12:46:33 by partain]

[ghc-hetmet.git] / ghc / compiler / coreSyn / PprCore.lhs

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index b3569e8..770e9bf 100644 (file)
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -335,7 +335,7 @@ ppr_expr pe (Prim prim args)
 
 ppr_expr pe expr@(Lam _ _)
   = let
-       (uvars, tyvars, vars, body) = digForLambdas expr
+       (uvars, tyvars, vars, body) = collectBinders expr
     in
     ppHang (ppCat [pp_vars SLIT("_/u\\_") (puvar    pe) uvars,
                   pp_vars SLIT("_/\\_")  (ptyvar   pe) tyvars,