From: simonmar <unknown>
Date: Mon, 9 Jan 2006 13:29:02 +0000 (+0000)
Subject: [project @ 2006-01-09 13:29:02 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~57
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4965a02229f7f2e44acc41e70475b0fe1b26233;p=ghc-hetmet.git

[project @ 2006-01-09 13:29:02 by simonmar]
Avoid desugaring bug in HEAD (see test ds057).
---

diff --git a/ghc/compiler/utils/Encoding.hs b/ghc/compiler/utils/Encoding.hs
index 1f266e1..7b35e65 100644
--- a/ghc/compiler/utils/Encoding.hs
+++ b/ghc/compiler/utils/Encoding.hs
@@ -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