@@ -255,8 +255,6 @@ unescapeText' bs = runText $ \done -> do
256 {-# INLINE f #-}
256 {-# INLINE f #-}
258−{-# INLINE unescapeText' #-}
260write :: A.MArray s -> Int -> Word16 -> ST s ()
258write :: A.MArray s -> Int -> Word16 -> ST s ()
261write dest pos char =
259write dest pos char =
262 A.unsafeWrite dest pos char
260 A.unsafeWrite dest pos char