lace_0.1.0_347e4627/source/events/lace-event.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
with
     ada.Strings.Hash;


package body lace.Event
is
   function Hash (the_Kind : in Kind) return ada.Containers.Hash_type
   is
   begin
      return ada.Strings.Hash (String (the_Kind));
   end Hash;

end lace.Event;