aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorpanne <unknown>2004-05-09 14:39:53 +0000
committerpanne <unknown>2004-05-09 14:39:53 +0000
commit59f53e32c9c22f04d5a280593d57eb48699eaf86 (patch)
tree8eb91f99b49a998128f32deb7969b398029a5f7d /src
parentfd78f51e768186c89c1799a85c399244afaab271 (diff)
[haddock @ 2004-05-09 14:39:53 by panne]
Fix the fix for single-line comment syntax, ------------------------------------------- is now a valid comment line again.
Diffstat (limited to 'src')
-rw-r--r--src/HsLexer.lhs4
1 files changed, 2 insertions, 2 deletions
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