From bc0c8f53ac133c5cbf3bdbb7c08946392cad44b5 Mon Sep 17 00:00:00 2001 From: sof Date: Tue, 17 Feb 1998 20:13:33 +0000 Subject: [PATCH] [project @ 1998-02-17 20:13:33 by sof] - arityErr: prefix error message with what kind of constructor that is being used wrongly. --- ghc/compiler/typecheck/TcMonad.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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") -- 1.7.10.4