@@ -46,6 +46,8 @@ unpack = S.unstreamList . stream
48-- This is exposed solely for people writing GHC rewrite rules.
48-- This is exposed solely for people writing GHC rewrite rules.
49unpackCString# :: Addr# -> Text
51unpackCString# :: Addr# -> Text
50unpackCString# addr# = unstream (S.streamCString# addr#)
52unpackCString# addr# = unstream (S.streamCString# addr#)
51{-# NOINLINE unpackCString# #-}
53{-# NOINLINE unpackCString# #-}