@@ -46,7 +46,7 @@ diffMap olds news = flip Map.mapMaybe (align olds news) $ \case
4646-- See also 'Reflex.Patch.Map' and 'Reflex.Patch.MapWithMove'.
4747applyMap :: Ord k => Map k (Maybe v) -> Map k v -> Map k v
4848applyMap 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
5050 maybeToEither = \case
5151 Nothing -> Left ()
5252 Just r -> Right r