matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Set version when parsing dune files 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-01 17:08:15 +07:00
parent 8390af90e4
commit bedad1f689
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/installed_dune_file.ml
View File

@ -63,13 +63,15 @@ let load fname =
| _ ->
Loc.fail (Sexp.Loc.of_lexbuf lexbuf) "%s" bad_dune_file
in
let lexer =
let (lexer, syntax) =
match version with
| "1" -> Sexp.Lexer.jbuild_token
| "2" -> Sexp.Lexer.token
| "1" -> (Sexp.Lexer.jbuild_token, (0, 0))
| "2" -> (Sexp.Lexer.token, (1, 0))
| _ -> Loc.fail version_loc "unknown version %S" version
in
Sexp.Of_sexp.parse of_sexp Univ_map.empty lexer ~mode:Single fname
Sexp.Of_sexp.parse of_sexp
(Univ_map.singleton (Syntax.key Stanza.syntax) syntax)
(Io.Sexp.load ~lexer ~mode:Single fname))
let gen confs =
let sexps =