Image transferral now works

1 files changed, 7 insertions, 4 deletions

diff --git a/src/datatypes.ads b/src/datatypes.ads
index 164e7c9..7229f2d 100644
--- a/src/datatypes.ads
+++ b/src/datatypes.ads
@@ -72,14 +72,17 @@ package Datatypes is
     subtype Note_Vector is Note_Vectors.Vector;
 
 
-    type Media_ID is new SU.Unbounded_String;
     type Media_Name is new SU.Unbounded_String;
+    type Media_ID is new SU.Unbounded_String;
 
     package Media_Maps is new Ada.Containers.Ordered_Maps
-       (Key_Type     => Media_ID,
-        Element_Type => Media_Name);
+       (Key_Type     => Media_Name,
+        Element_Type => Media_ID);
 
-    subtype Media_Map is Media_Maps.Map;
+    type Media_Collection is record
+        Filename : SU.Unbounded_String;
+        Map      : Media_Maps.Map;
+    end record;
 
 
 end Datatypes;