pkg: pass locations to git not_found error

Signed-off-by: Ali Caglayan <[email protected]>

Author: Alizter

src/dune_pkg/opamUrl0.ml

@@ -52,12 +52,12 @@ type resolve =
   | Resolved of Rev_store.Object.resolved
   | Unresolved of Rev_store.Object.t
 
-let not_found ~git_output t =
+let not_found ~loc ~git_output t =
   let url = base_url t in
   let rev = rev t in
   let git_output = List.map ~f:Pp.verbatim git_output in
   Error
-    (User_message.make
+    (User_message.make ~loc
      @@ git_output
      @ [ (match rev with
           | None -> Pp.textf "default branch not found in %s" url
@@ -91,7 +91,7 @@ let resolve t ~loc rev_store =
   | `Ref revision ->
     Rev_store.resolve_revision rev_store remote ~revision
     >>| (function
-     | None -> not_found ~git_output:[] t
+     | None -> not_found ~loc ~git_output:[] t
      | Some o -> Ok (Resolved o))
 ;;
 
@@ -103,7 +103,7 @@ let fetch_revision t ~loc resolve rev_store =
   | Unresolved o ->
     Rev_store.fetch_object rev_store remote o
     >>| (function
-     | Error git_output -> not_found ~git_output t
+     | Error git_output -> not_found ~loc ~git_output t
      | Ok rev -> Ok rev)
 ;;
 

src/dune_pkg/rev_store.ml

@@ -486,9 +486,7 @@ let run_with_exit_code { dir; _ } ~allow_codes ~display args =
              minimum supported version is Git 2.29."
         ]
         ~hints:[ User_message.command "Please update your git version." ]
-    | _ ->
-      Console.print [ Pp.verbatim stderr ];
-      Error { Git_error.dir; args; exit_code; output = [] })
+    | _ -> Error { Git_error.dir; args; exit_code; output = [ stderr ] })
 ;;
 
 let run t ~display args =