From 59f53e32c9c22f04d5a280593d57eb48699eaf86 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 9 May 2004 14:39:53 +0000
Subject: [haddock @ 2004-05-09 14:39:53 by panne] Fix the fix for single-line
 comment syntax, ------------------------------------------- is now a valid
 comment line again.

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

(limited to 'src/HsLexer.lhs')

diff --git a/src/HsLexer.lhs b/src/HsLexer.lhs
index 8e82be86..d3776bbe 100644
--- a/src/HsLexer.lhs
+++ b/src/HsLexer.lhs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: HsLexer.lhs,v 1.15 2004/04/14 10:03:25 simonmar Exp $
+-- $Id: HsLexer.lhs,v 1.16 2004/05/09 14:39:53 panne 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) | null s || not (isSymbol (head s)) =
+        tab y _ _ ('-':'-':s) | null s || not (isSymbol (head (dropWhile (== '-') s)))  =
         	newLine cont (drop 1 (dropWhile (/= '\n') s)) y
 
 	-- multi-line nested comments
-- 
cgit v1.2.3