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