Rename name to pipeline_name

Author: xvw

ocaml-lsp-server/docs/ocamllsp/jumpToTypedHoles-spec.md renamed to ocaml-lsp-server/docs/ocamllsp/jumpToTypedHole-spec.md

@@ -75,7 +75,7 @@ let on_request ~(params : Jsonrpc.Structured.t option) (state : State.t) =
     | Some doc ->
       let open Fiber.O in
       let merlin = Document.merlin_exn doc in
-      let+ holes = Typed_hole.all ~name:"jump-to-typed-hole" merlin in
+      let+ holes = Typed_hole.all ~pipeline_name:"jump-to-typed-hole" merlin in
       holes |> Typed_hole.find ~position ~range ~direction |> yojson_of_t
     | None ->
       Jsonrpc.Response.Error.raise

ocaml-lsp-server/src/custom_requests/req_jump_to_typed_hole.ml

@@ -69,6 +69,8 @@ let on_request ~(params : Jsonrpc.Structured.t option) (state : State.t) =
                 (Uri.to_string uri))
            ()
     | Some doc ->
-      let+ holes = Typed_hole.all ~name:"typed-holes" (Document.merlin_exn doc) in
+      let+ holes =
+        Typed_hole.all ~pipeline_name:"typed-holes" (Document.merlin_exn doc)
+      in
       yojson_of_t holes)
 ;;

ocaml-lsp-server/src/custom_requests/req_typed_holes.ml

@@ -40,8 +40,8 @@ let find ~range ~position ~direction holes =
   | `Next -> find_next ~range ~position holes
 ;;
 
-let all ?(name = "typed-holes") merlin =
+let all ?(pipeline_name = "typed-holes") merlin =
   Holes
-  |> Document.Merlin.dispatch_exn ~name merlin
+  |> Document.Merlin.dispatch_exn ~name:pipeline_name merlin
   |> Fiber.map ~f:(List.map ~f:(fun (loc, _ty) -> Range.of_loc loc))
 ;;

ocaml-lsp-server/src/typed_hole.ml

@@ -5,4 +5,4 @@ val find
   -> Range.t list
   -> Range.t option
 
-val all : ?name:string -> Document.Merlin.t -> Range.t list Fiber.t
+val all : ?pipeline_name:string -> Document.Merlin.t -> Range.t list Fiber.t