diff options
Diffstat (limited to 'ghc/compiler/utils/Encoding.hs')
| -rw-r--r-- | ghc/compiler/utils/Encoding.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/utils/Encoding.hs b/ghc/compiler/utils/Encoding.hs index 1f266e11a7..7b35e65da4 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 |