Inline mconcat
commit8cd841fbd192ef17ecc85268cb7e5379e613c603
authorJohan Tibell <johan.tibell@gmail.com>
dateSat 21 May 2011, 08:43 (15 years ago)
parent97d73d7
Data/Text/Lazy/Builder.hs+2
@@ -82,6 +82,8 @@ instance Monoid Builder where
8282 {-# INLINE mempty #-}
8383 mappend = append
8484 {-# INLINE mappend #-}
85+ mconcat = foldr mappend mempty
86+ {-# INLINE mconcat #-}
8587
8688instance String.IsString Builder where
8789 fromString = fromString