Client: duplicates results in list versions.

This commit is contained in:
Pietro Abate 2017-11-26 23:17:25 +01:00 committed by Benjamin Canou
parent 4c30016af3
commit b4573fb323

View File

@ -96,7 +96,7 @@ let register name commands =
let previous =
try Protocol_hash.Table.find versions name
with Not_found -> [] in
Protocol_hash.Table.add versions name (commands @ previous)
Protocol_hash.Table.replace versions name (commands @ previous)
let commands_for_version version =
try Protocol_hash.Table.find versions version