Use a type that doesn't cause a compiler warning
--HG--
extra : convert_revision : d81cd811d41499b95a7fe9ceea28211d54c6013d
commitcaca45e1e63e81abebf257556768f7aba431f970
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 3 Feb 2009, 21:38 (18 years ago)
parent320c5d0
Data/Text/Fusion.hs+1−1
@@ -167,7 +167,7 @@ unstream (Stream next0 s0 len) = Text (fst a) 0 (snd a)
167167
168168-- | The empty stream.
169169empty :: Stream Char
170−empty = Stream next 0 0
170+empty = Stream next () 0
171171 where next _ = Done
172172{-# INLINE [0] empty #-}
173173