From ea99441e0da927e5a40cf21311265c7e22974f12 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 13 Feb 2017 13:21:17 +1100
Subject: Preference dedupe removed, bignum library obtained from internet
 (will be replaced later)

---
 src/bundles.ads | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'src/bundles.ads')

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;
 
 
-- 
cgit