From 3746ce4682daf46a6c6a0aa25fdbe189d261d5b7 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Wed, 3 Nov 2021 15:25:04 +1300
Subject: Notes are queried

---
 src/deck_io.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/deck_io.ads')

diff --git a/src/deck_io.ads b/src/deck_io.ads
index 5fe9880..e7723a3 100644
--- a/src/deck_io.ads
+++ b/src/deck_io.ads
@@ -55,7 +55,7 @@ package Deck_IO is
     type Field is new SU.Unbounded_String;
 
     package Field_Vectors is new Ada.Containers.Vectors
-       (Index_Type   => Positive,
+       (Index_Type   => Field_Ordinal,
         Element_Type => Field);
 
 
-- 
cgit