Commit 84629bd7 authored by Isaac Dupree's avatar Isaac Dupree

generalize instance Outputable GenCmm to H98 (#1405)

parent 5a7a3110
...@@ -71,8 +71,8 @@ writeCmms handle cmms = printForC handle (pprCmms cmms) ...@@ -71,8 +71,8 @@ writeCmms handle cmms = printForC handle (pprCmms cmms)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
instance (Outputable info, Outputable g) instance (Outputable d, Outputable info, Outputable g)
=> Outputable (GenCmm CmmStatic info g) where => Outputable (GenCmm d info g) where
ppr c = pprCmm c ppr c = pprCmm c
instance (Outputable d, Outputable info, Outputable i) instance (Outputable d, Outputable info, Outputable i)
...@@ -110,7 +110,7 @@ instance Outputable CmmInfo where ...@@ -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 pprCmm (Cmm tops) = vcat $ intersperse (text "") $ map pprTop tops
-- -------------------------------------------------------------------------- -- --------------------------------------------------------------------------
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment