@@ -82,6 +82,8 @@ instance Monoid Builder where
82 {-# INLINE mempty #-}
82 {-# INLINE mempty #-}
83 mappend = append
83 mappend = append
84 {-# INLINE mappend #-}
84 {-# INLINE mappend #-}
85+ mconcat = foldr mappend mempty
86+ {-# INLINE mconcat #-}
86instance String.IsString Builder where
88instance String.IsString Builder where
87 fromString = fromString
89 fromString = fromString