X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FFamInstEnv.lhs;h=93a67a7eddc17417e9ed7fb1fed3c0c8039d5cc5;hb=ada48bbc7f6a43b2c042df629327902d82cea681;hp=eed3bf57cb5b254c4c724dec7d16bf83769f123d;hpb=e4b7186c16788b719e0150ac3bc3cc628ea00d64;p=ghc-hetmet.git

diff --git a/compiler/types/FamInstEnv.lhs b/compiler/types/FamInstEnv.lhs
index eed3bf5..93a67a7 100644
--- a/compiler/types/FamInstEnv.lhs
+++ b/compiler/types/FamInstEnv.lhs
@@ -187,6 +187,9 @@ data FamilyInstEnv
 			-- 	If *not* then the common case of looking up
 			--	(T a b c) can fail immediately
 
+instance Outputable FamilyInstEnv where
+  ppr (FamIE fs b) = ptext (sLit "FamIE") <+> ppr b <+> vcat (map ppr fs)
+
 -- INVARIANTS:
 --  * The fs_tvs are distinct in each FamInst
 --	of a range value of the map (so we can safely unify them)