From 8edd38dc3555b851ef2a724e69cf997b35bb16c1 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 23 Jan 2003 14:50:53 +0000
Subject: [PATCH] [project @ 2003-01-23 14:50:53 by simonpj] Improve error
 message again

---
 ghc/compiler/typecheck/TcSimplify.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/typecheck/TcSimplify.lhs b/ghc/compiler/typecheck/TcSimplify.lhs
index a888621..90fcb9c 100644
--- a/ghc/compiler/typecheck/TcSimplify.lhs
+++ b/ghc/compiler/typecheck/TcSimplify.lhs
@@ -1990,7 +1990,8 @@ mkMonomorphismMsg tidy_env insts
 				--	f x = show (read "foo")
 				-- whre monomorphism doesn't play any role
     mk_msg docs = vcat [ptext SLIT("Possible cause: the monomorphism restriction applied to the following:"),
-			nest 2 (vcat docs)]
+			nest 2 (vcat docs),
+			ptext SLIT("Probable fix: give these definition(s) an explicit type signature")]
     
 warnDefault dicts default_ty
   = doptM Opt_WarnTypeDefaults  `thenM` \ warn_flag ->
-- 
1.7.10.4