diff options
| author | simonmar <unknown> | 2002-05-09 10:34:44 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-09 10:34:44 +0000 |
| commit | 14abcb39a7cfa824d6c52735a5b6fc222b1b4993 (patch) | |
| tree | eb41fe94da80e74308ec7043a86363f70be50760 /src | |
| parent | 9f9522a4985ed610f00dc98aee5b03b6d1ff06aa (diff) | |
[haddock @ 2002-05-09 10:34:44 by simonmar]
Fix buglet
Diffstat (limited to 'src')
| -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 77531527..e270154a 100644 --- a/src/HsLexer.lhs +++ b/src/HsLexer.lhs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: HsLexer.lhs,v 1.6 2002/05/08 13:39:56 simonmar Exp $ +-- $Id: HsLexer.lhs,v 1.7 2002/05/09 10:34:44 simonmar Exp $ -- -- (c) The GHC Team, 1997-2000 -- @@ -352,7 +352,7 @@ lexToken cont s loc y x = do_doc ('#':s) f = f DocOptions cont s loc y x do_doc ('*':s) f = section 1 s where section n ('*':s) = section (n+1) s - section n _ = f (DocSection n) cont s loc y x + section n s = f (DocSection n) cont s loc y x do_doc _ _ = error "Internal error: HsLexer.do_doc" |