From f4965a02229f7f2e44acc41e70475b0fe1b26233 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 9 Jan 2006 13:29:02 +0000
Subject: [PATCH] [project @ 2006-01-09 13:29:02 by simonmar] Avoid desugaring
 bug in HEAD (see test ds057).

---
 ghc/compiler/utils/Encoding.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4