diff options
| author | panne <unknown> | 2004-05-09 14:39:53 +0000 |
|---|---|---|
| committer | panne <unknown> | 2004-05-09 14:39:53 +0000 |
| commit | 59f53e32c9c22f04d5a280593d57eb48699eaf86 (patch) | |
| tree | 8eb91f99b49a998128f32deb7969b398029a5f7d /src/HsLexer.lhs | |
| parent | fd78f51e768186c89c1799a85c399244afaab271 (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/HsLexer.lhs')
| -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 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 |