@@ -57,7 +57,11 @@ 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 #-}
60−unsafeHead = coerce JSS.rawHead
64+unsafeHead = coerce unsafeRawHead
62{-# INLINE unsafeHead #-}
66{-# INLINE unsafeHead #-}