From: simonpj <unknown>
Date: Fri, 25 Feb 2005 13:57:05 +0000 (+0000)
Subject: [project @ 2005-02-25 13:57:05 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1018
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=57983d166965f3eb275ca7beebfc1162ef4e89c6;p=ghc-hetmet.git

[project @ 2005-02-25 13:57:05 by simonpj]
Wibble to last commit
---

diff --git a/ghc/compiler/typecheck/TcSimplify.lhs b/ghc/compiler/typecheck/TcSimplify.lhs
index 5db9c0a..8b1fed0 100644
--- a/ghc/compiler/typecheck/TcSimplify.lhs
+++ b/ghc/compiler/typecheck/TcSimplify.lhs
@@ -2395,7 +2395,7 @@ addNoInstanceErrs mb_what givens dicts
 		-- Exclude implicit parameters, and tyvar dicts
 
 	add_ors :: [SDoc] -> [SDoc]	-- The empty case should not happen
-	add_ors []      = ptext SLIT("[No suggested fixes]")	-- Strange
+	add_ors []      = [ptext SLIT("[No suggested fixes]")]	-- Strange
 	add_ors (f1:fs) = f1 : map (ptext SLIT("or") <+>) fs
 
 addTopAmbigErrs dicts