haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clflags.include_dirs is expected to hold unexpanded directories (#242)

This commit is contained in:
sliquister 2018-07-09 05:28:08 -04:00 committed by Jérémie Dimino
parent 48100fcf76
commit 601973c953
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/uTop_main.ml
View File

@ -1195,7 +1195,7 @@ let autoload = ref true
let args = Arg.align [ let args = Arg.align [
"-absname", Arg.Set Location.absname, " Show absolute filenames in error message"; "-absname", Arg.Set Location.absname, " Show absolute filenames in error message";
"-I", Arg.String (fun dir -> Clflags.include_dirs := Misc.expand_directory Config.standard_library dir :: !Clflags.include_dirs), "<dir> Add <dir> to the list of include directories"; "-I", Arg.String (fun dir -> Clflags.include_dirs := dir :: !Clflags.include_dirs), "<dir> Add <dir> to the list of include directories";
"-init", Arg.String (fun s -> Clflags.init_file := Some s), "<file> Load <file> instead of default init file"; "-init", Arg.String (fun s -> Clflags.init_file := Some s), "<file> Load <file> instead of default init file";
"-labels", Arg.Clear Clflags.classic, " Use commuting label mode"; "-labels", Arg.Clear Clflags.classic, " Use commuting label mode";
"-no-app-funct", Arg.Clear Clflags.applicative_functors, " Deactivate applicative functors"; "-no-app-funct", Arg.Clear Clflags.applicative_functors, " Deactivate applicative functors";