From 650e36e6e2a0ee4fd94b236d8b59d331247d90e0 Mon Sep 17 00:00:00 2001 From: Julian Schurhammer Date: Thu, 20 Oct 2022 21:36:59 +1300 Subject: make list.sort a 'stable' sort --- src/gleam/list.gleam | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/gleam/list.gleam b/src/gleam/list.gleam index 37e1857..8fca289 100644 --- a/src/gleam/list.gleam +++ b/src/gleam/list.gleam @@ -994,8 +994,8 @@ fn merge_up(na, nb, a, b, acc, compare) { 0, _, _, [bx, ..br] -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare) _, _, [ax, ..ar], [bx, ..br] -> case compare(ax, bx) { - order.Lt -> merge_up(na - 1, nb, ar, b, [ax, ..acc], compare) - _ -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare) + order.Gt -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare) + _ -> merge_up(na - 1, nb, ar, b, [ax, ..acc], compare) } } } -- cgit v1.2.3