[commit: ghc] master: Print COMPLETE pragmas in --show-iface (5f8e234)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5f8e23444caf7a3d085cd8d97762dc3ed777c297/ghc

>---------------------------------------------------------------

commit 5f8e23444caf7a3d085cd8d97762dc3ed777c297
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Mon Jan 30 11:59:11 2017 -0500

    Print COMPLETE pragmas in --show-iface
    
    Reviewers: austin, bgamari
    
    Reviewed By: bgamari
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D3032


>---------------------------------------------------------------

5f8e23444caf7a3d085cd8d97762dc3ed777c297
 compiler/iface/IfaceSyn.hs  | 4 ++++
 compiler/iface/LoadIface.hs | 1 +
 2 files changed, 5 insertions(+)

diff --git a/compiler/iface/IfaceSyn.hs b/compiler/iface/IfaceSyn.hs
index 7a1d427..d4dd51e 100644
--- a/compiler/iface/IfaceSyn.hs
+++ b/compiler/iface/IfaceSyn.hs
@@ -298,6 +298,10 @@ type IfaceAnnTarget = AnnTarget OccName
 
 data IfaceCompleteMatch = IfaceCompleteMatch [IfExtName] IfExtName
 
+instance Outputable IfaceCompleteMatch where
+  ppr (IfaceCompleteMatch cls ty) = text "COMPLETE" <> colon <+> ppr cls
+                                                    <+> dcolon <+> ppr ty
+
 
 
 
diff --git a/compiler/iface/LoadIface.hs b/compiler/iface/LoadIface.hs
index 7c138c4..75f2b6a 100644
--- a/compiler/iface/LoadIface.hs
+++ b/compiler/iface/LoadIface.hs
@@ -1011,6 +1011,7 @@ pprModIface iface
         , ppr (mi_warns iface)
         , pprTrustInfo (mi_trust iface)
         , pprTrustPkg (mi_trust_pkg iface)
+        , vcat (map ppr (mi_complete_sigs iface))
         ]
   where
     pp_hsc_src HsBootFile = text "[boot]"