Print COMPLETE pragmas in --show-iface
authorMatthew Pickering <matthewtpickering@gmail.com>
Mon, 30 Jan 2017 16:59:11 +0000 (11:59 -0500)
committerBen Gamari <ben@smart-cactus.org>
Mon, 30 Jan 2017 19:02:34 +0000 (14:02 -0500)
Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3032

compiler/iface/IfaceSyn.hs
compiler/iface/LoadIface.hs

index 7a1d427..d4dd51e 100644 (file)
@@ -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
+
 
 
 
index 7c138c4..75f2b6a 100644 (file)
@@ -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]"