X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcBinds.lhs;h=e189a98f4b430c5fc0a7a6b894a7662e1a834c30;hp=d9b76d2d4f22d17df73452e4531724cd3402384c;hb=5e6e6b8bb75bac436b4dd9f0fd3b518cdd707652;hpb=0d7cc019c65244968f8bc9cbeb5501a3bb832776

diff --git a/compiler/typecheck/TcBinds.lhs b/compiler/typecheck/TcBinds.lhs
index d9b76d2..e189a98 100644
--- a/compiler/typecheck/TcBinds.lhs
+++ b/compiler/typecheck/TcBinds.lhs
@@ -499,7 +499,8 @@ checkStrictBinds top_lvl rec_group mbind mono_tys infos
     check_sig other	       = return ()
 
 strictBindErr flavour unlifted mbind
-  = hang (text flavour <+> msg <+> ptext SLIT("aren't allowed:")) 4 (ppr mbind)
+  = hang (text flavour <+> msg <+> ptext SLIT("aren't allowed:")) 
+	 4 (pprLHsBinds mbind)
   where
     msg | unlifted  = ptext SLIT("bindings for unlifted types")
 	| otherwise = ptext SLIT("bang-pattern bindings")