@@ -57,11 +57,7 @@ unsafeHead (Text arr off _len)
57 where m = A.unsafeIndex arr off
57 where m = A.unsafeIndex arr off
58 n = A.unsafeIndex arr (off+1)
58 n = A.unsafeIndex arr (off+1)
60−unsafeRawHead :: JSString -> Char
61−unsafeRawHead x = C# (chr# (js_charCodeAt 0 x))
62−{-# INLINE unsafeRawHead #-}
64−unsafeHead = coerce unsafeRawHead
60+unsafeHead = coerce JSS.rawHead
66{-# INLINE unsafeHead #-}
62{-# INLINE unsafeHead #-}