Commit e7e5939d authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add Outputable ShowHowMuch

I needed this instance when debugging, so I thought I'd add
it permanently.
parent b21e8cc3
......@@ -565,6 +565,11 @@ data ShowHowMuch
-- May 14: the list is max 1 element long at the moment
| ShowIface -- Everything including GHC-internal information (used in --show-iface)
instance Outputable ShowHowMuch where
ppr ShowHeader = text "ShowHeader"
ppr ShowIface = text "ShowIface"
ppr (ShowSome occs) = text "ShowSome" <+> ppr occs
showAll :: ShowSub
showAll = ShowSub { ss_how_much = ShowIface, ss_ppr_bndr = ppr }
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