[project @ 2005-02-25 13:57:05 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcSimplify.lhs

diff --git a/ghc/compiler/typecheck/TcSimplify.lhs b/ghc/compiler/typecheck/TcSimplify.lhs
index 5db9c0a..8b1fed0 100644 (file)
--- 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