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