diff options
Diffstat (limited to 'src/bundles.ads')
-rw-r--r-- | src/bundles.ads | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/bundles.ads b/src/bundles.ads index 5a0c274..cea046e 100644 --- a/src/bundles.ads +++ b/src/bundles.ads @@ -55,19 +55,12 @@ private use type Rationals.Fraction; - - - type Paper_Lot is record - How_Many : Positive := 1; - Prefs : Given_Prefs.Preference_Array; - end record; + use type Given_Prefs.Preference_Array; package Paper_Vectors is new Ada.Containers.Vectors - (Index_Type => Positive, - Element_Type => Paper_Lot); - - + (Index_Type => Positive, + Element_Type => Given_Prefs.Preference_Array); use type Paper_Vectors.Vector; |