summaryrefslogtreecommitdiff
path: root/src/datatypes.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/datatypes.ads')
-rw-r--r--src/datatypes.ads11
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;