From f6a99c2dbc025f10db75ddb7936f3c2e0ffc5f48 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 14 Apr 2004 10:03:25 +0000
Subject: [haddock @ 2004-04-14 10:03:25 by simonmar] fix for single-line
 comment syntax

---
 src/HsLexer.lhs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/HsLexer.lhs b/src/HsLexer.lhs
index 4202a406..8e82be86 100644
--- a/src/HsLexer.lhs
+++ b/src/HsLexer.lhs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: HsLexer.lhs,v 1.14 2003/10/20 17:19:22 sof Exp $
+-- $Id: HsLexer.lhs,v 1.15 2004/04/14 10:03:25 simonmar Exp $
 --
 -- (c) The GHC Team, 1997-2000
 --
@@ -220,7 +220,7 @@ lexer cont input (SrcLoc _ x0) y0 col =
 	-- single-line comments
         tab y x bol s@('-':'-':' ':c:_) | doc c = 
 	 	is_a_token bol s y x
-        tab y _ _ ('-':'-':s) =
+        tab y _ _ ('-':'-':s) | null s || not (isSymbol (head s)) =
         	newLine cont (drop 1 (dropWhile (/= '\n') s)) y
 
 	-- multi-line nested comments
-- 
cgit v1.2.3