[commit: ghc] master: Add Outputable ShowHowMuch (e7e5939)
git at git.haskell.org
git at git.haskell.org
Tue May 10 13:21:59 UTC 2016
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/e7e5939d80f05cfc52e98af50d0e0227aeee826d/ghc
>---------------------------------------------------------------
commit e7e5939d80f05cfc52e98af50d0e0227aeee826d
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date: Mon May 9 09:46:27 2016 +0100
Add Outputable ShowHowMuch
I needed this instance when debugging, so I thought I'd add
it permanently.
>---------------------------------------------------------------
e7e5939d80f05cfc52e98af50d0e0227aeee826d
compiler/iface/IfaceSyn.hs | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/compiler/iface/IfaceSyn.hs b/compiler/iface/IfaceSyn.hs
index de582bf..a95d8c9 100644
--- a/compiler/iface/IfaceSyn.hs
+++ b/compiler/iface/IfaceSyn.hs
@@ -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 }
More information about the ghc-commits
mailing list