summaryrefslogtreecommitdiff
path: root/src/preferences.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/preferences.ads')
-rw-r--r--src/preferences.ads3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/preferences.ads b/src/preferences.ads
index d38b6ec..05ef3e1 100644
--- a/src/preferences.ads
+++ b/src/preferences.ads
@@ -10,13 +10,12 @@ private with
generic
- Pref_Size : Positive;
Above_Ballot : Candidates.Containers.Above_Line_Ballot;
Below_Ballot : Candidates.Containers.Below_Line_Ballot;
package Preferences is
- subtype Preference_Range is Positive range 1 .. Pref_Size;
+ subtype Preference_Range is Positive range 1 .. Integer (Below_Ballot.Length);
type Preference_Array is array (Preference_Range)