@@ -167,7 +167,7 @@ unstream (Stream next0 s0 len) = Text (fst a) 0 (snd a)
168-- | The empty stream.
168-- | The empty stream.
169empty :: Stream Char
169empty :: Stream Char
170−empty = Stream next 0 0
170+empty = Stream next () 0
171 where next _ = Done
171 where next _ = Done
172{-# INLINE [0] empty #-}
172{-# INLINE [0] empty #-}