More unboxing in fromString
--HG--
extra : convert_revision : fd96ce6072154d7af6e195677c0fc7c29747fa8a
commit9220a2db4cedf8b266f26b160864cb7d974402e5
authorJohan Tibell <johan.tibell@gmail.com>
dateTue 18 May 2010, 09:13 (16 years ago)
parente79261b
Data/Text/Lazy/Builder.hs+1−1
@@ -128,7 +128,7 @@ fromText t@(Text arr off l)
128128--
129129fromString :: String -> Builder
130130fromString str = Builder $ \k (Buffer p0 o0 u0 l0) ->
131− let loop marr !o !u !l [] = k (Buffer marr o u l)
131+ let loop !marr !o !u !l [] = k (Buffer marr o u l)
132132 loop marr o u l s@(c:cs)
133133 | l <= 1 = do
134134 arr <- A.unsafeFreeze marr