From: simonmar <unknown>
Date: Tue, 16 Jan 2001 14:16:44 +0000 (+0000)
Subject: [project @ 2001-01-16 14:16:44 by simonmar]
X-Git-Tag: Approximately_9120_patches~2883
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1a9c8f45dfb84058fd167439238de0a040730553;p=ghc-hetmet.git

[project @ 2001-01-16 14:16:44 by simonmar]
Improve a parser error message.
---

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