git.iko.soy/reflex
on develop help sign in
Align instance moved to monoidal-containers
19c1263Cale Gibbard
reflex.cabal+1−1
compare with develop
unifiedsplit
@@ -46,7 +46,7 @@ library
46 exception-transformers == 0.4.*,
46 exception-transformers == 0.4.*,
47 lens >= 4.7 && < 5,
47 lens >= 4.7 && < 5,
48 monad-control >= 1.0.1 && < 1.1,
48 monad-control >= 1.0.1 && < 1.1,
49− monoidal-containers == 0.4.*,
49+ monoidal-containers == 0.5.*,
50 mtl >= 2.1 && < 2.3,
50 mtl >= 2.1 && < 2.3,
51 prim-uniq >= 0.1.0.1 && < 0.2,
51 prim-uniq >= 0.1.0.1 && < 0.2,
52 primitive >= 0.5 && < 0.7,
52 primitive >= 0.5 && < 0.7,
src/Data/AppendMap.hs−5
@@ -23,14 +23,11 @@ module Data.AppendMap
23
23
24import Prelude hiding (map, null)
24import Prelude hiding (map, null)
25
25
26−import Data.Align
27import Data.Coerce
26import Data.Coerce
28import Data.Default
27import Data.Default
29import Data.Map (Map)
28import Data.Map (Map)
30import qualified Data.Map as Map
29import qualified Data.Map as Map
31import Data.Map.Monoidal
30import Data.Map.Monoidal
32−import Data.Semigroup
33−import Data.Set (Set)
34import Reflex.Class (FunctorMaybe (..))
31import Reflex.Class (FunctorMaybe (..))
35import Reflex.Patch (Additive, Group (..))
32import Reflex.Patch (Additive, Group (..))
36
33
@@ -44,8 +41,6 @@ _unAppendMap = getMonoidalMap
44pattern AppendMap :: Map k v -> MonoidalMap k v
41pattern AppendMap :: Map k v -> MonoidalMap k v
45pattern AppendMap m = MonoidalMap m
42pattern AppendMap m = MonoidalMap m
46
43
47−deriving instance Ord k => Align (MonoidalMap k)
48−
49instance FunctorMaybe (MonoidalMap k) where
44instance FunctorMaybe (MonoidalMap k) where
50 fmapMaybe = mapMaybe
45 fmapMaybe = mapMaybe
51
46