Commits

tibbe committed 763d5b0

Inline mconcat

Comments (0)

Files changed (1)

Data/Text/Lazy/Builder.hs

    {-# INLINE mempty #-}
    mappend = append
    {-# INLINE mappend #-}
+   mconcat = foldr mappend mempty
+   {-# INLINE mconcat #-}
 
 instance String.IsString Builder where
     fromString = fromString