-------------------------------------------------------------------------------
-- NAME (body)                  : uxstrings-hash.adb
-- AUTHOR                       : Pascal Pignard
-- ROLE                         : UXString hash implementation.
-- NOTES                        : Ada 202x
--
-- COPYRIGHT                    : (c) Pascal Pignard 2020
-- LICENCE                      : CeCILL V2.1 (https://www.cecill.info)
-- CONTACT                      : http://blady.pagesperso-orange.fr
-------------------------------------------------------------------------------

with Ada.Strings.Hash;

function UXStrings.Hash (Key : UXString) return Ada.Containers.Hash_Type is
begin
   return Ada.Strings.Hash (String (Key.Chars.all));
end UXStrings.Hash;