diff options
| author | simonmar <unknown> | 2004-04-14 10:03:25 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-04-14 10:03:25 +0000 |
| commit | f6a99c2dbc025f10db75ddb7936f3c2e0ffc5f48 (patch) | |
| tree | 336b6bc6bf99a09e01da1a60bbfd723f8cfcbd93 | |
| parent | 562b185ae69a55491790e0fc358971ed31f4bf45 (diff) | |
[haddock @ 2004-04-14 10:03:25 by simonmar]
fix for single-line comment syntax
| -rw-r--r-- | src/HsLexer.lhs | 4 |
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 |