Commit 773da86e authored by simonpj's avatar simonpj
Browse files

[project @ 2003-03-11 09:16:02 by simonpj]

----------------------------------
      Fix a long-standing egregious parser bug
	----------------------------------

	*** MERGE TO STABLE ***

	*** NB: the important part of this commit
	***	got committed by accident with an
	***	unrelated message.  This commit
	***	should be from rev 1.50 to 1.52 of RdrHsSyn


GHC has parsed

	data T String = T String

without complaint, ever since day 1!  This led to consequential
incomprehensible messages.  The fix is easy.
parent 4529cc34
......@@ -519,6 +519,7 @@ checkTyVars :: [RdrNameHsType] -> P [RdrNameHsTyVar]
checkTyVars tvs
= mapP chk tvs
where
-- Check that the name space is correct!
chk (HsKindSig (HsTyVar tv) k) | isRdrTyVar tv = returnP (IfaceTyVar tv k)
chk (HsTyVar tv) | isRdrTyVar tv = returnP (UserTyVar tv)
chk other = parseError "Type found where type variable expected"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment