@@ -38,14 +38,11 @@ import Data.Foldable as F
3838import Data.Functor
3939import Data.List as L
4040import Data.Map.Strict as M
41+import Data.Monoid
4142import Data.Text as T
4243import Data.Vector as V
4344import Test.QuickCheck
4445
45−#if MIN_VERSION_mtl(2,3,0)
46−import Control.Monad
47−import Control.Monad.Fix
48−#endif
4946
5047-- | Collects all thrown warnings in 'StateT' and errors
5148-- in 'ExceptT' into a single value using 'Monoid'.
@@ -89,7 +86,7 @@ instance (Ord k, Semigroup v) => Semigroup (MonoidMap k v) where
8986
9087instance (Ord k, Monoid v) => Monoid (MonoidMap k v) where
9188 mempty = MonoidMap M.empty
92− mappend = (<>)
89+ mappend = mmAppend
9390
9491instance (ToJSON k, ToJSON v) => ToJSON (MonoidMap k v) where
9592 toJSON (MonoidMap m) = toJSON $ L.map toObj $ M.toList m