diff options
| author | simonmar <unknown> | 2002-04-09 11:23:24 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-09 11:23:24 +0000 |
| commit | 2d73fd75b8b17c660d2da5cf12c51d064028bdee (patch) | |
| tree | 2b33b391122ec14e12de85eede5dfc2b7ba0beb8 /src/HsLexer.lhs | |
| parent | e4627dc83e619f89a99e662733e47f78efa60622 (diff) | |
[haddock @ 2002-04-09 11:23:24 by simonmar]
Add '-- /' as a synonym for '-- |', for compatibility with IDoc.
Diffstat (limited to 'src/HsLexer.lhs')
| -rw-r--r-- | src/HsLexer.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/HsLexer.lhs b/src/HsLexer.lhs index 767ffc9c..d55b5ef0 100644 --- a/src/HsLexer.lhs +++ b/src/HsLexer.lhs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: HsLexer.lhs,v 1.1 2002/04/04 16:23:43 simonmar Exp $ +-- $Id: HsLexer.lhs,v 1.2 2002/04/09 11:23:24 simonmar Exp $ -- -- (c) The GHC Team, 1997-2000 -- @@ -219,6 +219,7 @@ lexer cont input (SrcLoc _ x) y col = newLine cont s y = tab (y+1) 1 True s doc (' ':'|':_) = True + doc (' ':'/':_) = True doc (' ':'^':_) = True doc (' ':'*':_) = True doc _ = False @@ -277,6 +278,7 @@ lexToken cont s loc y x = [] -> error "Internal error: empty context in lexToken" '-':'-':' ':'|':s -> docComment DocCommentNext cont s loc y x + '-':'-':' ':'/':s -> docComment DocCommentNext cont s loc y x '-':'-':' ':'^':s -> docComment DocCommentPrev cont s loc y x '-':'-':' ':'*':s -> docSection cont ('*':s) loc y x |