@@ -370,7 +370,7 @@ compareText ta@(Text _arrA _offA lenA) tb@(Text _arrB _offB lenB)
370-- | /O(n)/ Convert a 'String' into a 'Text'. Subject to
370-- | /O(n)/ Convert a 'String' into a 'Text'. Subject to
371-- fusion. Performs replacement on invalid scalar values.
371-- fusion. Performs replacement on invalid scalar values.
372pack :: String -> Text
372pack :: String -> Text
373−pack = unstream . S.streamList . L.map safe
373+pack = unstream . S.map safe . S.streamList
374{-# INLINE [1] pack #-}
374{-# INLINE [1] pack #-}
376-- | /O(n)/ Convert a Text into a String. Subject to fusion.
376-- | /O(n)/ Convert a Text into a String. Subject to fusion.
@@ -378,17 +378,17 @@ unpack :: Text -> String
378unpack = S.unstreamList . stream
378unpack = S.unstreamList . stream
379{-# INLINE [1] unpack #-}
379{-# INLINE [1] unpack #-}
381−-- | /O(n)/ Convert a literal string into a Text.
381+-- | /O(n)/ Convert a literal string into a Text. Subject to fusion.
382unpackCString# :: Addr# -> Text
382unpackCString# :: Addr# -> Text
383unpackCString# addr# = unstream (S.streamCString# addr#)
383unpackCString# addr# = unstream (S.streamCString# addr#)
384{-# NOINLINE unpackCString# #-}
384{-# NOINLINE unpackCString# #-}
386{-# RULES "TEXT literal" forall a.
386{-# RULES "TEXT literal" forall a.
387− unstream (S.streamList (L.map safe (GHC.unpackCString# a)))
387+ unstream (S.map safe (S.streamList (GHC.unpackCString# a)))
388 = unpackCString# a #-}
388 = unpackCString# a #-}
390{-# RULES "TEXT literal UTF8" forall a.
390{-# RULES "TEXT literal UTF8" forall a.
391− unstream (S.streamList (L.map safe (GHC.unpackCStringUtf8# a)))
391+ unstream (S.map safe (S.streamList (GHC.unpackCStringUtf8# a)))
392 = unpackCString# a #-}
392 = unpackCString# a #-}
394-- | /O(1)/ Convert a character into a Text. Subject to fusion.
394-- | /O(1)/ Convert a character into a Text. Subject to fusion.