Commit bee34c79 authored by Michele Alberti's avatar Michele Alberti
Browse files

[Server] Normalize the file names.

parent 93d1c5d3
...@@ -130,6 +130,9 @@ let () = ...@@ -130,6 +130,9 @@ let () =
~page ~name:"kernel.project.getSourceFileNames" ~page ~name:"kernel.project.getSourceFileNames"
~descr:(Md.plain "Get the source file names of the current project") ~descr:(Md.plain "Get the source file names of the current project")
~input:(module Junit) ~output:(module Jstring.Jlist) ~input:(module Junit) ~output:(module Jstring.Jlist)
Kernel.Files.get (fun () ->
List.map
(fun fname -> (Filepath.Normalized.of_string fname :> string))
(Kernel.Files.get ()))
(* -------------------------------------------------------------------------- *) (* -------------------------------------------------------------------------- *)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment