aboutsummaryrefslogtreecommitdiff
path: root/src/HsLexer.lhs
diff options
context:
space:
mode:
Diffstat (limited to 'src/HsLexer.lhs')
-rw-r--r--src/HsLexer.lhs4
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"