From 1a9c8f45dfb84058fd167439238de0a040730553 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 Jan 2001 14:16:44 +0000
Subject: [PATCH] [project @ 2001-01-16 14:16:44 by simonmar] Improve a parser
 error message.

---
 ghc/compiler/parser/ParseUtil.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 9610106..a040db9 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -139,7 +139,7 @@ checkDictTy :: RdrNameHsType -> [RdrNameHsType] -> P RdrNameHsType
 checkDictTy (HsTyVar t) args@(_:_) | not (isRdrTyVar t) 
   	= returnP (mkHsDictTy t args)
 checkDictTy (HsAppTy l r) args = checkDictTy l (r:args)
-checkDictTy _ _ = parseError "Illegal class assertion"
+checkDictTy _ _ = parseError "Malformed context in instance header"
 
 -- Put more comments!
 -- Checks that the lhs of a datatype declaration
-- 
1.7.10.4