From: simonmar <unknown>
Date: Mon, 6 Sep 1999 12:35:11 +0000 (+0000)
Subject: [project @ 1999-09-06 12:35:11 by simonmar]
X-Git-Tag: Approximately_9120_patches~5839
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2cf564f73ff9d582fe99752e7c6178f0d76ca48b;p=ghc-hetmet.git

[project @ 1999-09-06 12:35:11 by simonmar]
Report layout parse errors as

	File.hs:10: parse error (possibly incorrect indentation)
---

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 395d06c..5f63937 100644
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -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 '\'']
+    ]
+  where 
+	token = lexemeToString s
 
 cbot = panic "CCall:result_ty"