File tree Expand file tree Collapse file tree 1 file changed +2
-1
lines changed Expand file tree Collapse file tree 1 file changed +2
-1
lines changed Original file line number Diff line number Diff line change @@ -46,12 +46,13 @@ diffMap olds news = flip Map.mapMaybe (align olds news) $ \case
46
46
-- See also 'Reflex.Patch.Map' and 'Reflex.Patch.MapWithMove'.
47
47
applyMap :: Ord k => Map k (Maybe v ) -> Map k v -> Map k v
48
48
applyMap patch old = insertions `Map.union` (old `Map.difference` deletions)
49
- where (deletions, insertions) = mapPartitionEithers $ maybeToEither <$> patch
49
+ where (deletions, insertions) = Map. mapEither maybeToEither patch
50
50
maybeToEither = \ case
51
51
Nothing -> Left ()
52
52
Just r -> Right r
53
53
54
54
-- | Split a @'Map' k (Either a b)@ into @Map k a@ and @Map k b@, equivalent to @'Map.mapEither' id@
55
+ {-# DEPRECATED mapPartitionEithers "Use 'mapEither' instead" #-}
55
56
mapPartitionEithers :: Map k (Either a b ) -> (Map k a , Map k b )
56
57
mapPartitionEithers = Map. mapEither id
57
58
You can’t perform that action at this time.
0 commit comments