Fix "Error: Error: ..."

Signed-off-by: Marc Lasson <marc.lasson@lexifi.com>
ocaml · Jun 26, 2019 · 6de9237 · 6de9237
1 parent a0fa844
commit 6de9237
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/utils.ml b/src/utils.ml
@@ -87,7 +87,7 @@ let executable_object_directory ~dir name =
 
 let program_not_found ?context ?hint ~loc prog =
   Errors.fail_opt loc
-    "@{<error>Error@}: Program %s not found in the tree or in PATH%s%a"
+    "Program %s not found in the tree or in PATH%s%a"
     (String.maybe_quoted prog)
     (match context with
      | None -> ""

diff --git a/test/blackbox-tests/test-cases/missing-loc-run/run.t b/test/blackbox-tests/test-cases/missing-loc-run/run.t
@@ -16,7 +16,7 @@ Path that needs to be searched:
   File "dune", line 3, characters 14-32:
   3 |  (action (run foo-does-not-exist)))
                     ^^^^^^^^^^^^^^^^^^
-  Error: Error: Program foo-does-not-exist not found in the tree or in PATH (context: default)
+  Error: Program foo-does-not-exist not found in the tree or in PATH (context: default)
   [1]
 
 Path in deps field of alias stanza