X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsBinds.lhs;h=ba3dbd68bf34f48ca3fa49f35e206f84f4e41082;hp=a6d8523e93e752b13e0663017695a31d956b284c;hb=98de5f474de6eb5dc9b2e2ec582e02902fdb3856;hpb=6bb68af67f4782e1d02f186c1a6c01ff4e430202

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index a6d8523..ba3dbd6 100644
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -477,6 +477,9 @@ data SpecPrag
   = SpecPrag   
 	HsWrapper	-- An wrapper, that specialises the polymorphic function
 	InlinePragma 	-- Inlining spec for the specialised function
+
+instance Outputable SpecPrag where
+  ppr (SpecPrag _ p) = ptext (sLit "SpecPrag") <+> ppr p
 \end{code}
 
 \begin{code}