@@ -25,7 +25,7 @@ module Data.Text.Lazy.Fusion
25import Prelude hiding (length)
25import Prelude hiding (length)
26import qualified Data.Text.Fusion.Common as S
26import qualified Data.Text.Fusion.Common as S
27import Data.Text.Fusion.Internal
27import Data.Text.Fusion.Internal
28−import Data.Text.Fusion.Size (isEmpty)
28+import Data.Text.Fusion.Size (isEmpty, unknownSize)
29import Data.Text.Lazy.Internal
29import Data.Text.Lazy.Internal
30import qualified Data.Text.Internal as I
30import qualified Data.Text.Internal as I
31import qualified Data.Text.Array as A
31import qualified Data.Text.Array as A
@@ -38,7 +38,7 @@ default(Int64)
39-- | /O(n)/ Convert a 'Text' into a 'Stream Char'.
39-- | /O(n)/ Convert a 'Text' into a 'Stream Char'.
40stream :: Text -> Stream Char
40stream :: Text -> Stream Char
41−stream text = Stream next (text :*: 0) 4 -- random HINT
41+stream text = Stream next (text :*: 0) unknownSize
43 next (Empty :*: _) = Done
43 next (Empty :*: _) = Done
44 next (txt@(Chunk t@(I.Text _ _ len) ts) :*: i)
44 next (txt@(Chunk t@(I.Text _ _ len) ts) :*: i)