Has function for ProgressToken.

Author: godunko

liblsp_3_17/source/lsp-structures-hashes.ads

@@ -12,6 +12,9 @@ package LSP.Structures.Hashes is
      (Item : LSP.Structures.Integer_Or_Virtual_String)
       return Ada.Containers.Hash_Type;
 
+   function Hash
+     (Item : LSP.Structures.ProgressToken) return Ada.Containers.Hash_Type;
+
 private
 
    function Hash
@@ -21,4 +24,11 @@ private
             when True  => Ada.Containers.Hash_Type'Mod (Item.Integer),
             when False => VSS.Strings.Hash (Item.Virtual_String));
 
+   function Hash
+     (Item : LSP.Structures.ProgressToken)
+      return Ada.Containers.Hash_Type is
+        (case Item.Is_Integer is
+            when True  => Ada.Containers.Hash_Type'Mod (Item.Integer),
+            when False => VSS.Strings.Hash (Item.Virtual_String));
+
 end LSP.Structures.Hashes;