X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=b11c1e0f48219f005b345b98f589d775fc79dcc2;hp=c00c371a3ba2243791ff562f862ae4e38f9647ea;hb=c004ec62b41aa2137b5b5e298ca562609b0de92e;hpb=d5183f31fccf9009768eab3f9261dac6c66df59e

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index c00c371..b11c1e0 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -755,6 +755,11 @@ computeChangedOccs ver_fn this_module old_usages eq_info
 
 type OccIfaceEq = GenIfaceEq OccSet
 
+instance Outputable OccIfaceEq where
+  ppr Equal          = ptext SLIT("Equal")
+  ppr NotEqual       = ptext SLIT("NotEqual")
+  ppr (EqBut occset) = ptext SLIT("EqBut") <+> ppr (occSetElts occset)
+
 changedWrt :: OccSet -> OccIfaceEq -> Bool
 changedWrt so_far Equal        = False
 changedWrt so_far NotEqual     = True