@@ -6,6 +6,7 @@
66{-# LANGUAGE FlexibleInstances #-}
77{-# LANGUAGE GeneralizedNewtypeDeriving #-}
88{-# LANGUAGE MultiParamTypeClasses #-}
9+{-# LANGUAGE PatternSynonyms #-}
910{-# LANGUAGE RoleAnnotations #-}
1011{-# LANGUAGE ScopedTypeVariables #-}
1112{-# LANGUAGE StandaloneDeriving #-}
@@ -36,6 +37,13 @@ import Reflex.Patch (Additive, Group (..))
3637{-# DEPRECATED AppendMap "Use 'MonoidalMap' instead" #-}
3738type AppendMap = MonoidalMap
3839
40+{-# DEPRECATED _unAppendMap "Use 'getMonoidalMap' instead" #-}
41+_unAppendMap :: MonoidalMap k v -> Map k v
42+_unAppendMap = getMonoidalMap
43+
44+pattern AppendMap :: Map k v -> MonoidalMap k v
45+pattern AppendMap m = MonoidalMap m
46+
3947deriving instance Ord k => Align (MonoidalMap k)
4048
4149instance FunctorMaybe (MonoidalMap k) where