Commits

Bryan O'Sullivan  committed 4f8d79d

Use a type that doesn't cause a compiler warning

  • Participants
  • Parent commits 09e8479

Comments (0)

Files changed (1)

File Data/Text/Fusion.hs

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