Commit f4965a02 authored by simonmar's avatar simonmar
Browse files

[project @ 2006-01-09 13:29:02 by simonmar]

Avoid desugaring bug in HEAD (see test ds057).
parent 5d8f5e00
......@@ -92,8 +92,8 @@ utf8DecodeChar# a# =
-- will signal a lexer error immediately.
utf8DecodeChar :: Ptr Word8 -> (Char, Ptr Word8)
utf8DecodeChar (Ptr a#) = ( C# c#, Ptr b# )
where (# c#, b# #) = utf8DecodeChar# a#
utf8DecodeChar (Ptr a#) =
case utf8DecodeChar# a# of (# c#, b# #) -> ( C# c#, Ptr b# )
-- UTF-8 is cleverly designed so that we can always figure out where
-- the start of the current character is, given any position in a
......
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