git.iko.soy/patch
on develop help sign in
Add some more deprecated items in Data.AppendMap
5f13e7dRyan Trinkle
src/Data/AppendMap.hs+8
compare with develop
unifiedsplit
@@ -6,6 +6,7 @@
6{-# LANGUAGE FlexibleInstances #-}
6{-# LANGUAGE FlexibleInstances #-}
7{-# LANGUAGE GeneralizedNewtypeDeriving #-}
7{-# LANGUAGE GeneralizedNewtypeDeriving #-}
8{-# LANGUAGE MultiParamTypeClasses #-}
8{-# LANGUAGE MultiParamTypeClasses #-}
9+{-# LANGUAGE PatternSynonyms #-}
9{-# LANGUAGE RoleAnnotations #-}
10{-# LANGUAGE RoleAnnotations #-}
10{-# LANGUAGE ScopedTypeVariables #-}
11{-# LANGUAGE ScopedTypeVariables #-}
11{-# LANGUAGE StandaloneDeriving #-}
12{-# LANGUAGE StandaloneDeriving #-}
@@ -36,6 +37,13 @@ import Reflex.Patch (Additive, Group (..))
36{-# DEPRECATED AppendMap "Use 'MonoidalMap' instead" #-}
37{-# DEPRECATED AppendMap "Use 'MonoidalMap' instead" #-}
37type AppendMap = MonoidalMap
38type AppendMap = MonoidalMap
38
39
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+
39deriving instance Ord k => Align (MonoidalMap k)
47deriving instance Ord k => Align (MonoidalMap k)
40
48
41instance FunctorMaybe (MonoidalMap k) where
49instance FunctorMaybe (MonoidalMap k) where