git.iko.soy/patch
on develop help sign in
Merge branch 'develop' into duplicate-package
commit9ecb140fbc6d0cd4d0eb9264b49e52eb4a299af4 authorJohn Ericson <John.Ericson@Obsidian.Systems> dateWed 11 Dec 2019, 13:01 (7 years ago) parentd4b2ba2f34c906
2 files changed+2−1
compare with develop
unifiedsplit
ChangeLog.md+1 src/Reflex/Patch/MapWithMove.hs+1−1
ChangeLog.md+1
@@ -5,6 +5,7 @@
55* Data.WeakBag.traverse and Data.FastWeakBag.traverse have been
66 renamed to Data.WeakBag.traverse_ and Data.FastWeakBag.traverse_
77 respectively.
8+* Fixes a bug in `Reflex.Patch.MapWithMove.patchThatSortsMapWith` that was producing invalid `PatchMapWithMove`.
89
910## 0.6.2.4
1011
src/Reflex/Patch/MapWithMove.hs+1−1
@@ -155,7 +155,7 @@ patchThatSortsMapWith cmp m = PatchMapWithMove $ Map.fromList $ catMaybes $ zipW
155155 Just (from, to)
156156 reverseMapping = Map.fromList $ catMaybes $ zipWith f unsorted sorted
157157 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
159159 in Just (to, NodeInfo (From_Move from) $ Just movingTo)
160160
161161-- | Create a 'PatchMapWithMove' that, if applied to the first 'Map' provided,