From 2b842cb65ce29071d5786bdecc834c026d1f2db2 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 13 Feb 2017 15:36:49 +1100
Subject: Fixed candidate ballot group ordering bug

---
 src/candidates-containers.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/candidates-containers.adb b/src/candidates-containers.adb
index 64a03ca..22249d3 100644
--- a/src/candidates-containers.adb
+++ b/src/candidates-containers.adb
@@ -78,7 +78,11 @@ package body Candidates.Containers is
     begin
         if SU.Length (Left.Group) = SU.Length (Right.Group) then
             if Left.Group = Right.Group then
-                return Left.Group_Rank < Right.Group_Rank;
+                if SU.Length (Left.Group_Rank) = SU.Length (Right.Group_Rank) then
+                    return Left.Group_Rank < Right.Group_Rank;
+                else
+                    return SU.Length (Left.Group_Rank) < SU.Length (Right.Group_Rank);
+                end if;
             else
                 return Left.Group < Right.Group;
             end if;
-- 
cgit