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)
-----------------------------------------------------------------------------
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
-- --------------------------------------------------------------------------
......
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