@@ -370,7 +370,7 @@ compareText ta@(Text _arrA _offA lenA) tb@(Text _arrB _offB lenB)
370370-- | /O(n)/ Convert a 'String' into a 'Text'. Subject to
371371-- fusion. Performs replacement on invalid scalar values.
372372pack :: String -> Text
373−pack = unstream . S.streamList . L.map safe
373+pack = unstream . S.map safe . S.streamList
374374{-# INLINE [1] pack #-}
375375
376376-- | /O(n)/ Convert a Text into a String. Subject to fusion.
@@ -378,17 +378,17 @@ unpack :: Text -> String
378378unpack = S.unstreamList . stream
379379{-# INLINE [1] unpack #-}
380380
381−-- | /O(n)/ Convert a literal string into a Text.
381+-- | /O(n)/ Convert a literal string into a Text. Subject to fusion.
382382unpackCString# :: Addr# -> Text
383383unpackCString# addr# = unstream (S.streamCString# addr#)
384384{-# NOINLINE unpackCString# #-}
385385
386386{-# 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)))
388388 = unpackCString# a #-}
389389
390390{-# 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)))
392392 = unpackCString# a #-}
393393
394394-- | /O(1)/ Convert a character into a Text. Subject to fusion.