forked from
jonmsterling.com/ocaml-forester
ocaml
run formatter
+19
-18
+1
-1
lib/compiler/URI_util.ml
+1
-1
lib/compiler/URI_util.ml
···
32
32
let next =
33
33
match mode with
34
34
| `Sequential ->
35
-
let last_sequential = List.fold_left (fun acc_i i -> if i > acc_i then i else acc_i ) 0 keys in
35
+
let last_sequential = List.fold_left (fun acc_i i -> if i > acc_i then i else acc_i) 0 keys in
36
36
last_sequential + 1
37
37
| `Random -> random_not_in keys
38
38
in
+1
-1
lib/core/Base.mli
+1
-1
lib/core/Base.mli
···
64
64
val identity_to_uri : identity -> URI.t option
65
65
type origin =
66
66
| Physical of Lsp.Text_document.t
67
-
| Subtree of { parent : identity; }
67
+
| Subtree of {parent: identity;}
68
68
| Undefined
69
69
val pp_origin : Format.formatter -> origin -> unit
70
70
val show_origin : origin -> string
+2
-1
lib/core/URI_scheme.ml
+2
-1
lib/core/URI_scheme.ml
···
35
35
match String.rindex_opt name '-' with
36
36
| Some i ->
37
37
let prefix = String.sub name 0 i
38
-
and suffix = String.sub name (i + 1) (String.length name - i - 1) in
38
+
and suffix = String.sub name (i + 1) (String.length name - i - 1)
39
+
in
39
40
let@ key = Option.map @~ BaseN.Base36.int_of_string suffix in
40
41
Some prefix, key
41
42
| _ ->
+15
-15
lib/language_server/Code_action.ml
+15
-15
lib/language_server/Code_action.ml
···
41
41
match forest.config.trees with
42
42
| [] -> []
43
43
| dir :: _ ->
44
-
let sequential =
45
-
L.CodeAction.create
46
-
~title: (Format.asprintf "create new tree (sequential address)")
47
-
~kind: (L.CodeActionKind.Other "new tree")
48
-
~edit: (create_tree_edit ~range ~uri next_sequential dir)
49
-
()
50
-
in
51
-
let random =
52
-
L.CodeAction.create
53
-
~title: (Format.asprintf "create new tree (random address)")
54
-
~kind: (L.CodeActionKind.Other "new tree")
55
-
~edit: (create_tree_edit ~range ~uri next_random dir)
56
-
()
57
-
in
58
-
[`CodeAction sequential; `CodeAction random]
44
+
let sequential =
45
+
L.CodeAction.create
46
+
~title: (Format.asprintf "create new tree (sequential address)")
47
+
~kind: (L.CodeActionKind.Other "new tree")
48
+
~edit: (create_tree_edit ~range ~uri next_sequential dir)
49
+
()
50
+
in
51
+
let random =
52
+
L.CodeAction.create
53
+
~title: (Format.asprintf "create new tree (random address)")
54
+
~kind: (L.CodeActionKind.Other "new tree")
55
+
~edit: (create_tree_edit ~range ~uri next_random dir)
56
+
()
57
+
in
58
+
[`CodeAction sequential; `CodeAction random]
59
59
in
60
60
Some actions