@@ -206,7 +206,7 @@ ensureFree !n = withSize $ \ l ->
206206-- | Ensure that @n@ many elements are available, and then use @f@ to
207207-- write some elements into the memory.
208208writeN :: Int -> (forall s. A.MArray s Word16 -> Int -> ST s ()) -> Builder
209−writeN n f = ensureFree 1 `append'` withBuffer (writeNBuffer n f)
209+writeN n f = ensureFree n `append'` withBuffer (writeNBuffer n f)
210210{-# INLINE [1] writeN #-}
211211
212212writeNBuffer :: Int -> (A.MArray s Word16 -> Int -> ST s ()) -> (Buffer s)
@@ -251,7 +251,7 @@ append' (Builder f) (Builder g) = Builder (f . g)
251251"writeN/combine" forall a b (f::forall s. A.MArray s Word16 -> Int -> ST s ())
252252 (g::forall s. A.MArray s Word16 -> Int -> ST s ()).
253253 append (writeN a f) (writeN b g) =
254− (writeN (a+b) (\marr o -> f marr o >> g marr (o+a)))
254+ writeN (a+b) (\marr o -> f marr o >> g marr (o+a))
255255
256256"ensureFree/combine" forall a b .
257257 append (ensureFree a) (ensureFree b) = ensureFree (max a b)