[commit: ghc] supercompiler: Pretty-print indirection specially (977fd43)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler http://hackage.haskell.org/trac/ghc/changeset/977fd438bd4c91a847c4596a77fd74e7cea9e52f >--------------------------------------------------------------- commit 977fd438bd4c91a847c4596a77fd74e7cea9e52f Author: Max Bolingbroke <[email protected]> Date: Thu Mar 15 09:57:46 2012 +0000 Pretty-print indirection specially >--------------------------------------------------------------- compiler/supercompile/Supercompile/Core/Syntax.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Core/Syntax.hs b/compiler/supercompile/Supercompile/Core/Syntax.hs index 636b115..a882eb3 100644 --- a/compiler/supercompile/Supercompile/Core/Syntax.hs +++ b/compiler/supercompile/Supercompile/Core/Syntax.hs @@ -200,7 +200,7 @@ instance (Functor ann, OutputableLambdas1 ann) => Outputable (ValueF ann) where instance (Functor ann, OutputableLambdas1 ann) => OutputableLambdas (ValueF ann) where pprPrecLam v = case v of - Indirect x -> ([], flip pPrintPrec x) + Indirect x -> ([], \prec -> text "!" <> pPrintPrec prec x) TyLambda x e -> (x:xs, ppr_prec) where (xs, ppr_prec) = pprPrecLam1 e Lambda x e -> (x:xs, ppr_prec)