Commit 5f8e2344 authored by Matthew Pickering's avatar Matthew Pickering Committed by Ben Gamari
Browse files

Print COMPLETE pragmas in --show-iface

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision:
parent f41c27d3
......@@ -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
......@@ -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))
pp_hsc_src HsBootFile = text "[boot]"
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