Commit 2cf564f7 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-09-06 12:35:11 by simonmar]

Report layout parse errors as

	File.hs:10: parse error (possibly incorrect indentation)
parent ec9a1a0d
......@@ -73,8 +73,14 @@ parseError s =
srcParseErr :: StringBuffer -> SrcLoc -> Message
srcParseErr s l
= hcat [ppr l, ptext SLIT(": parse error on input "),
char '`', text (lexemeToString s), char '\'']
= hcat [ppr l,
if null token
then ptext SLIT(": parse error (possibly incorrect indentation)")
else hcat [ptext SLIT(": parse error on input "),
char '`', text token, char '\'']
token = lexemeToString s
cbot = panic "CCall:result_ty"
Supports Markdown
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