@@ -181,8 +181,8 @@ toLazyText = toLazyTextWith smallChunkSize
181181-- If the initial buffer is too small to hold all data, subsequent
182182-- buffers will be the default buffer size.
183183toLazyTextWith :: Int -> Builder -> L.Text
184−toLazyTextWith chunkSize m = L.fromChunks . runST $
185− newBuffer chunkSize >>= runBuilder (m `append` flush) (const (return []))
184+toLazyTextWith chunkSize m = L.fromChunks (runST $
185+ newBuffer chunkSize >>= runBuilder (m `append` flush) (const (return [])))
186186
187187-- | /O(1)./ Pop the 'S.Text' we have constructed so far, if any,
188188-- yielding a new chunk in the result lazy 'L.Text'.