@@ -128,7 +128,7 @@ fromText t@(Text arr off l)
129fromString :: String -> Builder
129fromString :: String -> Builder
130fromString str = Builder $ \k (Buffer p0 o0 u0 l0) ->
130fromString 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)
132 loop marr o u l s@(c:cs)
132 loop marr o u l s@(c:cs)
133 | l <= 1 = do
133 | l <= 1 = do
134 arr <- A.unsafeFreeze marr
134 arr <- A.unsafeFreeze marr