From c004ec62b41aa2137b5b5e298ca562609b0de92e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 6 Dec 2007 09:24:03 +0000 Subject: [PATCH] add Outputable instance for OccIfaceEq --- compiler/iface/MkIface.lhs | 5 +++++ 1 file changed, 5 insertions(+) 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 -- 1.7.10.4