[project @ 2002-09-27 12:42:42 by simonpj]

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

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index 6bf8c32..c83b46e 100644 (file)
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -1136,7 +1136,7 @@ missingStrictFields con fields
         | otherwise   = colon <+> pprWithCommas ppr fields
 
     header = ptext SLIT("Constructor") <+> quotes (ppr con) <+> 
-            ptext SLIT("does not have the required strict fields") 
+            ptext SLIT("does not have the required strict field(s)") 
          
 
 missingFields :: DataCon -> [FieldLabel] -> SDoc