Commits

Bryan O'Sullivan committed 4f8d79d

Use a type that doesn't cause a compiler warning

Comments (0)

Files changed (1)

 
 -- | The empty stream.
 empty :: Stream Char
-empty = Stream next 0 0
+empty = Stream next () 0
     where next _ = Done
 {-# INLINE [0] empty #-}