Instantiate IVector2_Queue

1 files changed, 6 insertions, 0 deletions

diff --git a/game.adb b/game.adb
index 22890c0..7dbe7f0 100644
--- a/game.adb
+++ b/game.adb
@@ -12,6 +12,7 @@ use Ada.Containers;
 with Ada.Strings.Fixed; use Ada.Strings.Fixed;
 with Ada.Strings;
 with Ada.Exceptions; use Ada.Exceptions;
+with Queue;
 
 procedure Game is
     DEVELOPMENT : constant Boolean := True;
@@ -266,6 +267,9 @@ procedure Game is
         Items: Hashed_Map_Items.Map;
     end record;
 
+    package IVector2_Queue is new Queue(Item => IVector2);
+    use IVector2_Queue;
+
     type Game_State is record
         Map: Map_Access := Null;
         Player: Player_State;
@@ -282,6 +286,8 @@ procedure Game is
         Camera_Velocity: Vector2 := (x => 0.0, y => 0.0);
 
         Checkpoint: Checkpoint_State;
+
+        Q: IVector2_Queue.Queue;
         Duration_Of_Last_Turn: Double;
     end record;