@@ -61,8 +61,11 @@ instance Newtype (MonoidalMap k a) (M.Map k a) where
6161instance Ord k => IsList (MonoidalMap k a) where
6262 type Item (MonoidalMap k a) = (k, a)
6363 fromList = MM . M.fromList
64+ {-# INLINE fromList #-}
6465 toList = M.toList . unpack
66+ {-# INLINE toList #-}
6567#endif
6668
6769singleton :: Ord k => k -> a -> MonoidalMap k a
6870singleton k a = MM $ M.singleton k a
71+{-# INLINE singleton #-}