@@ -156,12 +156,12 @@ toLazyTextWith chunkSize m = L.fromChunks . runST $
156flush :: Builder
156flush :: Builder
157flush = Builder $ \ k buf@(Buffer p o u l) ->
157flush = Builder $ \ k buf@(Buffer p o u l) ->
158 if u == 0
158 if u == 0
159− then k buf
159+ then k buf
160− else do arr <- A.unsafeFreeze p
160+ else do arr <- A.unsafeFreeze p
161− let !b = Buffer p (o+u) 0 l
161+ let !b = Buffer p (o+u) 0 l
162− !t = Text arr o u
162+ !t = Text arr o u
163− buf' <- inlineInterleaveST (k b)
163+ ts <- inlineInterleaveST (k b)
164− return $! t : buf'
164+ return $! t : ts
166------------------------------------------------------------------------
166------------------------------------------------------------------------