@@ -165,9 +165,7 @@ flush = Builder $ \ k buf@(Buffer p o u l) ->
165165
166166-- | Sequence an ST operation on the buffer
167167withBuffer :: (forall s. Buffer s -> ST s (Buffer s)) -> Builder
168−withBuffer f = Builder $ \k buf -> do
169− buf' <- f buf
170− k buf'
168+withBuffer f = Builder $ \k buf -> f buf >>= k
171169{-# INLINE withBuffer #-}
172170
173171-- | Get the size of the buffer
@@ -198,7 +196,7 @@ putChar c
198196
199197-- | Ensure that there are at least @n@ many elements available.
200198ensureFree :: Int -> Builder
201−ensureFree n = n `seq` withSize $ \ l ->
199+ensureFree !n = withSize $ \ l ->
202200 if n <= l
203201 then empty
204202 else flush `append` withBuffer (const (newBuffer (max n defaultChunkSize)))