Commits

Anonymous committed 8ef2228

Odd tweak to build with GHC 6.13

Comments (0)

Files changed (1)

Data/Text/Lazy/Builder.hs

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