forked from
jonmsterling.com/ocaml-forester
ocaml
run the formatter
+2
-3
+1
-2
lib/compiler/State.ml
+1
-2
lib/compiler/State.ml
···
320
320
()
321
321
)
322
322
323
-
324
323
let rec source_path_of_uri (uri : URI.t) (forest : t) : string option =
325
324
let@ tree = Option.bind @@ find_opt forest uri in
326
325
source_path_of_origin (Tree.origin tree) forest
···
334
333
335
334
and source_path_of_identity (identity : identity) (forest : t) : string option =
336
335
let@ uri = Option.bind @@ identity_to_uri identity in
337
-
source_path_of_uri uri forest
336
+
source_path_of_uri uri forest
+1
-1
lib/frontend/Legacy_xml_client.ml
+1
-1
lib/frontend/Legacy_xml_client.ml
···
58
58
let@ uri = Option.bind env in
59
59
let@ path = Option.map @~ State.source_path_of_uri uri forest in
60
60
let position = Range.{source = `File path; offset = 0; start_of_line = 0; line_num = 0} in
61
-
Range.make (position,position)
61
+
Range.make (position, position)
62
62
in
63
63
let@ () = Reporter.with_loc loc_opt in
64
64
kont ()