Commit c004ec62 authored by Simon Marlow's avatar Simon Marlow
Browse files

add Outputable instance for OccIfaceEq

parent d5183f31
......@@ -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
......
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