From b8b316aae0c4132d9fef6bc2c65030a8ebc35f4d Mon Sep 17 00:00:00 2001
From: Thomas Arts <thomas.arts@robuster.software>
Date: Mon, 3 Jun 2019 14:49:13 +0200
Subject: [PATCH] Make sorting idempotent

---
 src/aeb_fate_data.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/aeb_fate_data.erl b/src/aeb_fate_data.erl
index 9a5bfe5..1b6f6ae 100644
--- a/src/aeb_fate_data.erl
+++ b/src/aeb_fate_data.erl
@@ -272,7 +272,10 @@ lt(13, ?FATE_LIST_VALUE([]), ?FATE_LIST_VALUE(_)) -> true;
 lt(13, ?FATE_LIST_VALUE([A|RA]), ?FATE_LIST_VALUE([B|RB])) ->
     O1 = ordinal(A),
     O2 = ordinal(B),
-    if O1 == O2 -> lt(RA, RB);
+    if O1 == O2 ->
+            if A == B -> lt(RA, RB);
+               true -> A < B
+            end;
        true -> O1 < O2
     end;
 lt(14, ?FATE_VARIANT(AritiesA, TagA, TA),