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

Simplify versioning matching 

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

16
src/installed_dune_file.ml
View File

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