Skip to content
Snippets Groups Projects
Commit 93b31968 authored by Michele Alberti's avatar Michele Alberti
Browse files

[gui] Use actual path of files and not their prettified versions.

parent 0ce4dbfb
No related branches found
No related tags found
No related merge requests found
...@@ -23,7 +23,7 @@ ...@@ -23,7 +23,7 @@
let add_files (host_window: Design.main_window_extension_points) = let add_files (host_window: Design.main_window_extension_points) =
Gtk_helper.source_files_chooser Gtk_helper.source_files_chooser
(host_window :> Gtk_helper.source_files_chooser_host) (host_window :> Gtk_helper.source_files_chooser_host)
(List.map Filepath.Normalized.to_pretty_string (Kernel.Files.get ())) (Kernel.Files.get () :> string list)
(fun filenames -> (fun filenames ->
Kernel.Files.set (List.map Datatype.Filepath.of_string filenames); Kernel.Files.set (List.map Datatype.Filepath.of_string filenames);
if Ast.is_computed () then if Ast.is_computed () then
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment