@@ -210,6 +210,7 @@ withBuffer f = Builder $ \k buf -> f buf >>= k
210withSize :: (Int -> Builder) -> Builder
210withSize :: (Int -> Builder) -> Builder
211withSize f = Builder $ \ k buf@(Buffer _ _ _ l) ->
211withSize f = Builder $ \ k buf@(Buffer _ _ _ l) ->
212 runBuilder (f l) k buf
212 runBuilder (f l) k buf
213+{-# INLINE withSize #-}
214-- | Map the resulting list of texts.
215-- | Map the resulting list of texts.
215mapBuilder :: ([S.Text] -> [S.Text]) -> Builder
216mapBuilder :: ([S.Text] -> [S.Text]) -> Builder