@@ -46,7 +46,7 @@ diffMap olds news = flip Map.mapMaybe (align olds news) $ \case
46-- See also 'Reflex.Patch.Map' and 'Reflex.Patch.MapWithMove'.
46-- See also 'Reflex.Patch.Map' and 'Reflex.Patch.MapWithMove'.
47applyMap :: Ord k => Map k (Maybe v) -> Map k v -> Map k v
47applyMap :: Ord k => Map k (Maybe v) -> Map k v -> Map k v
48applyMap patch old = insertions `Map.union` (old `Map.difference` deletions)
48applyMap patch old = insertions `Map.union` (old `Map.difference` deletions)
49− where (deletions, insertions) = Map.mapEither id $ maybeToEither <$> patch
49+ where (deletions, insertions) = Map.mapEither maybeToEither patch
50 maybeToEither = \case
50 maybeToEither = \case
51 Nothing -> Left ()
51 Nothing -> Left ()
52 Just r -> Right r
52 Just r -> Right r