Inline withSize
--HG--
extra : convert_revision : fe9448fc289698f428cf1f524a468a03695da088
commit7fb01b01d9729e9e6de94bea02bb171f81ec6c31
authorBryan O'Sullivan <bos@serpentine.com>
dateFri 20 Aug 2010, 00:15 (16 years ago)
parentaeade62
Data/Text/Lazy/Builder.hs+1
@@ -210,6 +210,7 @@ withBuffer f = Builder $ \k buf -> f buf >>= k
210210withSize :: (Int -> Builder) -> Builder
211211withSize f = Builder $ \ k buf@(Buffer _ _ _ l) ->
212212 runBuilder (f l) k buf
213+{-# INLINE withSize #-}
213214
214215-- | Map the resulting list of texts.
215216mapBuilder :: ([S.Text] -> [S.Text]) -> Builder