Fix bug in generating unicode escape characters
commitefc3d092e051040dbbb0b578d58edc12cc8a5a04
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateThu 30 May 2019, 00:21 (7 years ago)
parent0e669b8
compiler/src/Data/Utf8.hs+1−1
@@ -636,7 +636,7 @@ writeChunks mba offset chunks =
636636writeCode :: MBA RealWorld -> Int -> Int -> ST RealWorld ()
637637writeCode mba offset code =
638638 do writeWord8 mba offset 0x5C {- \ -}
639− writeWord8 mba offset 0x75 {- u -}
639+ writeWord8 mba (offset + 1) 0x75 {- u -}
640640 writeHex mba (offset + 2) (shiftR code 12)
641641 writeHex mba (offset + 3) (shiftR code 8)
642642 writeHex mba (offset + 4) (shiftR code 4)