From 84629bd7dc7377a5f1138df7185a0b9771880834 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Wed, 26 Dec 2007 17:59:15 +0000 Subject: [PATCH] generalize instance Outputable GenCmm to H98 (#1405) --- compiler/cmm/PprCmm.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 470b325..2aca16e 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -71,8 +71,8 @@ writeCmms handle cmms = printForC handle (pprCmms cmms) ----------------------------------------------------------------------------- -instance (Outputable info, Outputable g) - => Outputable (GenCmm CmmStatic info g) where +instance (Outputable d, Outputable info, Outputable g) + => Outputable (GenCmm d info g) where ppr c = pprCmm c instance (Outputable d, Outputable info, Outputable i) @@ -110,7 +110,7 @@ instance Outputable CmmInfo where ----------------------------------------------------------------------------- -pprCmm :: (Outputable info, Outputable g) => GenCmm CmmStatic info g -> SDoc +pprCmm :: (Outputable d, Outputable info, Outputable g) => GenCmm d info g -> SDoc pprCmm (Cmm tops) = vcat $ intersperse (text "") $ map pprTop tops -- -------------------------------------------------------------------------- -- 1.7.10.4