with Ada.Strings.Hash;

package body Bookstore.Messages is

   function Hash_Key (Key : Message_Key) return Ada.Containers.Hash_Type is
5   begin
      return Ada.Strings.Hash (Message_Key 'Image (Key));
   end Hash_Key;

end Bookstore.Messages;
10