X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Ftypecheck%2FTcSimplify.lhs;h=3c8160cbcbc459083738f8b4141981be398bb9d6;hb=2ed6929441ca033f2c5e1cf1a836579fff30b073;hp=e1424189285d4173798b8f451d37cc284f2112da;hpb=db7ce4c95962651ba9db8d00b3b9c886f13c2979;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