diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-12-26 17:59:15 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-12-26 17:59:15 +0000 |
| commit | 84629bd7dc7377a5f1138df7185a0b9771880834 (patch) | |
| tree | 85d4fe686d8a1d873ffb92c6860f7b82c08d25d8 | |
| parent | 5a7a311051c2a525c9692a7b2eb47a70cfc7c9fb (diff) | |
| download | haskell-84629bd7dc7377a5f1138df7185a0b9771880834.tar.gz | |
generalize instance Outputable GenCmm to H98 (#1405)
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 470b325a64..2aca16e9f6 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 -- -------------------------------------------------------------------------- |