@@ -23,14 +23,11 @@ module Data.AppendMap
2323
2424import Prelude hiding (map, null)
2525
26−import Data.Align
2726import Data.Coerce
2827import Data.Default
2928import Data.Map (Map)
3029import qualified Data.Map as Map
3130import Data.Map.Monoidal
32−import Data.Semigroup
33−import Data.Set (Set)
3431import Reflex.Class (FunctorMaybe (..))
3532import Reflex.Patch (Additive, Group (..))
3633
@@ -44,8 +41,6 @@ _unAppendMap = getMonoidalMap
4441pattern AppendMap :: Map k v -> MonoidalMap k v
4542pattern AppendMap m = MonoidalMap m
4643
47−deriving instance Ord k => Align (MonoidalMap k)
48−
4944instance FunctorMaybe (MonoidalMap k) where
5045 fmapMaybe = mapMaybe
5146