From 2231d6544ba75e0fe41061339a23e1c90a0409bd Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 8 Feb 2006 15:07:01 +0000 Subject: [PATCH] A little more debug printing --- ghc/compiler/simplCore/SimplUtils.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/ghc/compiler/simplCore/SimplUtils.lhs b/ghc/compiler/simplCore/SimplUtils.lhs index 0d9be52..9e616b5 100644 --- a/ghc/compiler/simplCore/SimplUtils.lhs +++ b/ghc/compiler/simplCore/SimplUtils.lhs @@ -27,7 +27,6 @@ import DynFlags ( SimplifierSwitch(..), SimplifierMode(..), DynFlag(..), dopt ) import StaticFlags ( opt_UF_UpdateInPlace, opt_SimplNoPreInlining, opt_RulesOff ) - import CoreSyn import CoreFVs ( exprFreeVars ) import CoreUtils ( cheapEqExpr, exprType, exprIsTrivial, exprIsCheap, @@ -107,7 +106,7 @@ instance Outputable LetRhsFlag where ppr AnRhs = ptext SLIT("rhs") instance Outputable SimplCont where - ppr (Stop _ is_rhs _) = ptext SLIT("Stop") <> brackets (ppr is_rhs) + ppr (Stop ty is_rhs _) = ptext SLIT("Stop") <> brackets (ppr is_rhs) <+> ppr ty ppr (ApplyTo dup arg se cont) = (ptext SLIT("ApplyTo") <+> ppr dup <+> ppr arg) $$ ppr cont ppr (ArgOf _ _ _ _) = ptext SLIT("ArgOf...") ppr (Select dup bndr alts se cont) = (ptext SLIT("Select") <+> ppr dup <+> ppr bndr) $$ -- 1.7.10.4