@@ -318,17 +318,17 @@ wordToBits :: Int -> [Char]
318wordToBits code =
318wordToBits code =
319 [ '\\' -- 0x5C -- \
319 [ '\\' -- 0x5C -- \
320 , 'u' -- 0x75 -- u
320 , 'u' -- 0x75 -- u
321− , toBits code 0
321+ , toBits code 12
322 , toBits code 8
322 , toBits code 8
323− , toBits code 16
323+ , toBits code 4
324− , toBits code 24
324+ , toBits code 0
328toBits :: Int -> Int -> Char
328toBits :: Int -> Int -> Char
329toBits code offset =
329toBits code offset =
330 let !n = fromIntegral (shiftR code offset .&. 0x000F) in
330 let !n = fromIntegral (shiftR code offset .&. 0x000F) in
331− Char.chr $ if n < 10 then 0x30 + n else 0x41 + (n - 10)
331+ Char.chr $ if n < 10 then 0x30 + n else 0x61 + (n - 10)
334{-# NOINLINE singleQuoteBits #-}
334{-# NOINLINE singleQuoteBits #-}