one more lazy/loc

[helm.git] / helm / software / components / cic_disambiguation / number_notation.ml

diff --git a/helm/software/components/cic_disambiguation/number_notation.ml b/helm/software/components/cic_disambiguation/number_notation.ml
index 9dece04ecda69100013d0f04c265b5b93ef8c7bf..37547bf581b97b6512d2a23e5e765cad061b62c6 100644 (file)
--- a/helm/software/components/cic_disambiguation/number_notation.ml
+++ b/helm/software/components/cic_disambiguation/number_notation.ml
@@ -40,7 +40,7 @@ let _ =
       (fun _ num _ ->
         let num = int_of_string num in
         if num = 0 then
-          raise (DisambiguateTypes.Invalid_choice (None, lazy "0 is not a valid positive number"))
+          raise (DisambiguateTypes.Invalid_choice (lazy (Stdpp.dummy_loc, "0 is not a valid positive number")))
         else
           HelmLibraryObjects.build_bin_pos num));
   DisambiguateChoices.add_num_choice