Tiny performance improvement via strictness
--HG--
extra : convert_revision : f29a0a04b175952f9f30c0ad7fe2b85dd3d610fa
commit4c662c09d90c73f588b5b35451373bd3567d8abb
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 14 Jul 2010, 22:55 (16 years ago)
parent9220a2d
Data/Text/Fusion.hs+1−2
@@ -65,8 +65,7 @@ default(Int)
6565stream :: Text -> Stream Char
6666stream (Text arr off len) = Stream next off (maxSize len)
6767 where
68− end = off+len
69− {-# INLINE next #-}
68+ !end = off+len
7069 next !i
7170 | i >= end = Done
7271 | n >= 0xD800 && n <= 0xDBFF = Yield (U16.chr2 n n2) (i + 2)