Client: duplicates results in list versions
.
This commit is contained in:
parent
4c30016af3
commit
b4573fb323
@ -96,7 +96,7 @@ let register name commands =
|
|||||||
let previous =
|
let previous =
|
||||||
try Protocol_hash.Table.find versions name
|
try Protocol_hash.Table.find versions name
|
||||||
with Not_found -> [] in
|
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 =
|
let commands_for_version version =
|
||||||
try Protocol_hash.Table.find versions version
|
try Protocol_hash.Table.find versions version
|
||||||
|
Loading…
Reference in New Issue
Block a user