(fun _ num _ ->
let num = int_of_string num in
if num = 0 then
- raise DisambiguateTypes.Invalid_choice
+ raise (DisambiguateTypes.Invalid_choice (lazy "0 is not a valid positive number"))
else
HelmLibraryObjects.build_bin_pos num));
DisambiguateChoices.add_num_choice