Commits

tibbe committed 5c235e5

More unboxing in fromString

Comments (0)

Files changed (1)

Data/Text/Lazy/Builder.hs

 --
 fromString :: String -> Builder
 fromString str = Builder $ \k (Buffer p0 o0 u0 l0) ->
-    let loop marr !o !u !l [] = k (Buffer marr o u l)
+    let loop !marr !o !u !l [] = k (Buffer marr o u l)
         loop marr o u l s@(c:cs)
             | l <= 1 = do
                 arr <- A.unsafeFreeze marr