X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FFamInstEnv.lhs;h=783ee13836823d3d3cafb722a6b5fcbaf41cceef;hb=1fa25d26f6bc9ab6def35b272405bad5bd23f6bf;hp=28a87701215365cd089a0bab02fd810965a89f83;hpb=5f449458b64f2fa2f5c6dd604c8f92e0e2fbcdcf;p=ghc-hetmet.git

diff --git a/compiler/types/FamInstEnv.lhs b/compiler/types/FamInstEnv.lhs
index 28a8770..783ee13 100644
--- a/compiler/types/FamInstEnv.lhs
+++ b/compiler/types/FamInstEnv.lhs
@@ -94,7 +94,7 @@ pprFamInstHdr :: FamInst -> SDoc
 pprFamInstHdr (FamInst {fi_fam = fam, fi_tys = tys, fi_tycon = tycon})
   = pprTyConSort <+> pprHead
   where
-    pprHead = pprTypeApp fam (ppr fam) tys
+    pprHead = pprTypeApp fam tys
     pprTyConSort | isDataTyCon tycon = ptext (sLit "data instance")
 		 | isNewTyCon  tycon = ptext (sLit "newtype instance")
 		 | isSynTyCon  tycon = ptext (sLit "type instance")