Tweaklet
--HG--
extra : convert_revision : 8b8158a13c6ccfe9116373f87eb388f916ea5617
commit9c178f14385fe215d257dde44f033484ba9a9b1e
authorJohan Tibell <johan.tibell@gmail.com>
dateSat 15 May 2010, 12:14 (16 years ago)
parent3c8b8c7
Data/Text/Lazy/Builder.hs+6−6
@@ -156,12 +156,12 @@ toLazyTextWith chunkSize m = L.fromChunks . runST $
156156flush :: Builder
157157flush = Builder $ \ k buf@(Buffer p o u l) ->
158158 if u == 0
159− then k buf
160− else do arr <- A.unsafeFreeze p
161− let !b = Buffer p (o+u) 0 l
162− !t = Text arr o u
163− buf' <- inlineInterleaveST (k b)
164− return $! t : buf'
159+ then k buf
160+ else do arr <- A.unsafeFreeze p
161+ let !b = Buffer p (o+u) 0 l
162+ !t = Text arr o u
163+ ts <- inlineInterleaveST (k b)
164+ return $! t : ts
165165
166166------------------------------------------------------------------------
167167