git.iko.soy/patch
on develop help sign in
Merge branch 'develop' into extra-query-instances
230c2f5John Ericson
ChangeLog.md+1
compare with develop
unifiedsplit
@@ -5,6 +5,7 @@
5* Data.WeakBag.traverse and Data.FastWeakBag.traverse have been
5* Data.WeakBag.traverse and Data.FastWeakBag.traverse have been
6 renamed to Data.WeakBag.traverse_ and Data.FastWeakBag.traverse_
6 renamed to Data.WeakBag.traverse_ and Data.FastWeakBag.traverse_
7 respectively.
7 respectively.
8+* Fixes a bug in `Reflex.Patch.MapWithMove.patchThatSortsMapWith` that was producing invalid `PatchMapWithMove`.
8* Additional instances for `Group` and `Query` classes for basic types.
9* Additional instances for `Group` and `Query` classes for basic types.
9
10
10## 0.6.2.4
11## 0.6.2.4
src/Reflex/Patch/MapWithMove.hs+1−1
@@ -155,7 +155,7 @@ patchThatSortsMapWith cmp m = PatchMapWithMove $ Map.fromList $ catMaybes $ zipW
155 Just (from, to)
155 Just (from, to)
156 reverseMapping = Map.fromList $ catMaybes $ zipWith f unsorted sorted
156 reverseMapping = Map.fromList $ catMaybes $ zipWith f unsorted sorted
157 g (to, _) (from, _) = if to == from then Nothing else
157 g (to, _) (from, _) = if to == from then Nothing else
158− let Just movingTo = Map.lookup from reverseMapping
158+ let Just movingTo = Map.lookup to reverseMapping
159 in Just (to, NodeInfo (From_Move from) $ Just movingTo)
159 in Just (to, NodeInfo (From_Move from) $ Just movingTo)
160
160
161-- | Create a 'PatchMapWithMove' that, if applied to the first 'Map' provided,
161-- | Create a 'PatchMapWithMove' that, if applied to the first 'Map' provided,