@@ -32,6 +32,8 @@ import qualified Data.Map as Map (showTree, showTreeWith)
3232#endif
3333import qualified Data.Witherable as W
3434import Data.Map.Monoidal
35+import qualified Data.Map.Monoidal as MonoidalMap
36+
3537
3638{-# DEPRECATED AppendMap "Use 'MonoidalMap' instead" #-}
3739-- | AppendMap is a synonym for 'Data.Map.Monoidal.MonoidalMap'
@@ -48,7 +50,7 @@ pattern AppendMap m = MonoidalMap m
4850
4951#if !MIN_VERSION_witherable(0,3,2)
5052instance W.Filterable (MonoidalMap k) where
51− mapMaybe = W.mapMaybe
53+ mapMaybe = MonoidalMap.mapMaybe
5254#endif
5355
5456-- | Deletes a key, returning 'Nothing' if the result is empty.