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;