aboutsummaryrefslogtreecommitdiff
path: root/src/HsLexer.lhs
diff options
context:
space:
mode:
Diffstat (limited to 'src/HsLexer.lhs')
-rw-r--r--src/HsLexer.lhs4
1 files 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