X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcSimplify.lhs;h=3c8160cbcbc459083738f8b4141981be398bb9d6;hb=5237f0f57fc16e6584be98d5139dde57819ad689;hp=e1424189285d4173798b8f451d37cc284f2112da;hpb=6e0c3f50e131f502577a61b09a339af295de9d23;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcSimplify.lhs b/compiler/typecheck/TcSimplify.lhs
index e142418..3c8160c 100644
--- a/compiler/typecheck/TcSimplify.lhs
+++ b/compiler/typecheck/TcSimplify.lhs
@@ -2451,8 +2451,8 @@ addNoInstanceErrs mb_what givens dicts
 			        ptext SLIT("to the") <+> what] ]
 
     	fix2 | null instance_dicts = []
-	     | otherwise	   = [ ptext SLIT("add an instance declaration for")
-				       <+> pprDictsTheta instance_dicts ]
+	     | otherwise	   = [ sep [ptext SLIT("add an instance declaration for"),
+				            pprDictsTheta instance_dicts] ]
 	instance_dicts = [d | d <- dicts, isClassDict d, not (isTyVarDict d)]
 		-- Insts for which it is worth suggesting an adding an instance declaration
 		-- Exclude implicit parameters, and tyvar dicts