[commit: ghc] master: Add Outputable ShowHowMuch (e7e5939)

[git at git.haskell.org]

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 }