From 8163c990823b37ce987429e1f6825358d69171b4 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 23 Aug 2010 16:33:08 +0000
Subject: [PATCH] Wibbles to error message

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

diff --git a/compiler/typecheck/TcMType.lhs b/compiler/typecheck/TcMType.lhs
index d5c794b..c7385e2 100644
--- a/compiler/typecheck/TcMType.lhs
+++ b/compiler/typecheck/TcMType.lhs
@@ -1530,7 +1530,8 @@ dupPredWarn dups   = ptext (sLit "Duplicate constraint(s):") <+> pprWithCommas p
 arityErr :: Outputable a => String -> a -> Int -> Int -> SDoc
 arityErr kind name n m
   = hsep [ text kind, quotes (ppr name), ptext (sLit "should have"),
-	   n_arguments <> comma, text "but has been given", int m]
+	   n_arguments <> comma, text "but has been given", 
+           if m==0 then text "none" else int m]
     where
 	n_arguments | n == 0 = ptext (sLit "no arguments")
 		    | n == 1 = ptext (sLit "1 argument")
-- 
1.7.10.4