aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-04-09 11:23:24 +0000
committersimonmar <unknown>2002-04-09 11:23:24 +0000
commit2d73fd75b8b17c660d2da5cf12c51d064028bdee (patch)
tree2b33b391122ec14e12de85eede5dfc2b7ba0beb8 /src
parente4627dc83e619f89a99e662733e47f78efa60622 (diff)
[haddock @ 2002-04-09 11:23:24 by simonmar]
Add '-- /' as a synonym for '-- |', for compatibility with IDoc.
Diffstat (limited to 'src')
-rw-r--r--src/HsLexer.lhs4
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