git.iko.soy/elk
on master help sign in
Fix bug in generating unicode escape characters
efc3d09Evan Czaplicki
compiler/src/Data/Utf8.hs+1−1
compare with master
unifiedsplit
@@ -636,7 +636,7 @@ writeChunks mba offset chunks =
636writeCode :: MBA RealWorld -> Int -> Int -> ST RealWorld ()
636writeCode :: MBA RealWorld -> Int -> Int -> ST RealWorld ()
637writeCode mba offset code =
637writeCode mba offset code =
638 do writeWord8 mba offset 0x5C {- \ -}
638 do writeWord8 mba offset 0x5C {- \ -}
639− writeWord8 mba offset 0x75 {- u -}
639+ writeWord8 mba (offset + 1) 0x75 {- u -}
640 writeHex mba (offset + 2) (shiftR code 12)
640 writeHex mba (offset + 2) (shiftR code 12)
641 writeHex mba (offset + 3) (shiftR code 8)
641 writeHex mba (offset + 3) (shiftR code 8)
642 writeHex mba (offset + 4) (shiftR code 4)
642 writeHex mba (offset + 4) (shiftR code 4)