X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=a7bf168f695f9265912ed42d4529b4e9cfe7d59e;hb=f757a5b168fbd2f3f40056f37aa8613117e9a3da;hp=80ef6d0b903fd1079ecd35704303af5efc3a82ec;hpb=5d9ab59646a5477cd1cd1b7149e0fb600d1361ed;p=ghc-hetmet.git diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index 80ef6d0..a7bf168 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -761,11 +761,6 @@ computeChangedOccs ver_fn this_module old_usages eq_info type OccIfaceEq = GenIfaceEq OccName -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