on master help sign in
Odd tweak to build with GHC 6.13

--HG-- extra : convert_revision : 42f4c9b92378bc93d7b7aad5849ab4e3e4233e41

commit606faa2000d7bcf4a8775772b3f14024792b1431 authorAntoine Latter <aslatter@gmail.com> dateThu 23 Sep 2010, 06:30 (16 years ago) parent7fff782
1 file changed+2−2
Data/Text/Lazy/Builder.hs+2−2
Data/Text/Lazy/Builder.hs+2−2
@@ -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'.