Commit 2220d42a authored by simonm's avatar simonm

[project @ 1997-09-03 10:43:01 by simonm]

Fix exporting of (->) instances.  This is the fix from the web page
with minor changes for the new continuation-passing lexer.
parent 153ad63a
......@@ -665,6 +665,14 @@ lex_id2 cont module_dot buf =
','# -> lex_tuple cont module_dot (stepOnBy# buf 2#)
_ -> lex_id3 cont module_dot buf
':'# -> lex_id3 cont module_dot (incLexeme buf)
'-'# ->
case module_dot of
Nothing -> lex_id3 cont module_dot buf
Just ghc -> -- this should be "GHC" (current home of (->))
case lookAhead# buf 1# of
'>'# -> end_lex_id cont module_dot (ITconid SLIT("->"))
(stepOnBy# buf 2#)
_ -> lex_id3 cont module_dot buf
_ -> lex_id3 cont module_dot buf
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment