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: https://phabricator.haskell.org/D3032
parent f41c27d3
...@@ -298,6 +298,10 @@ type IfaceAnnTarget = AnnTarget OccName ...@@ -298,6 +298,10 @@ type IfaceAnnTarget = AnnTarget OccName
data IfaceCompleteMatch = IfaceCompleteMatch [IfExtName] IfExtName 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 ...@@ -1011,6 +1011,7 @@ pprModIface iface
, ppr (mi_warns iface) , ppr (mi_warns iface)
, pprTrustInfo (mi_trust iface) , pprTrustInfo (mi_trust iface)
, pprTrustPkg (mi_trust_pkg iface) , pprTrustPkg (mi_trust_pkg iface)
, vcat (map ppr (mi_complete_sigs iface))
] ]
where where
pp_hsc_src HsBootFile = text "[boot]" 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