From: sof <unknown>
Date: Tue, 17 Feb 1998 20:13:33 +0000 (+0000)
Subject: [project @ 1998-02-17 20:13:33 by sof]
X-Git-Tag: Approx_2487_patches~955
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc0c8f53ac133c5cbf3bdbb7c08946392cad44b5;p=ghc-hetmet.git

[project @ 1998-02-17 20:13:33 by sof]
- arityErr: prefix error message with what kind
  of constructor that is being used wrongly.
---

diff --git a/ghc/compiler/typecheck/TcMonad.lhs b/ghc/compiler/typecheck/TcMonad.lhs
index 3fe3ac5..4c7ab55 100644
--- a/ghc/compiler/typecheck/TcMonad.lhs
+++ b/ghc/compiler/typecheck/TcMonad.lhs
@@ -555,8 +555,8 @@ ctxt_to_use ctxt | opt_PprStyle_All = ctxt
      		   takeAtMost n (x:xs) = x:takeAtMost (n-1) xs
 
 arityErr kind name n m
-  = hsep [ ppr name, ptext SLIT("should have"),
-	   n_arguments <> comma, text "but has been given", int m, char '.']
+  = hsep [ text kind, quotes (ppr name), ptext SLIT("should have"),
+	   n_arguments <> comma, text "but has been given", int m]
     where
 	n_arguments | n == 0 = ptext SLIT("no arguments")
 		    | n == 1 = ptext SLIT("1 argument")