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

Fix 4.02.3 compat 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-06-19 21:51:28 +06:30
parent 46eba2ef98
commit 5618be7ab0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/stdune/sexp.ml
View File

@ -299,13 +299,13 @@ module Of_sexp = struct
basic "Integer" (fun s ->
match int_of_string (s Atom.Dune) with
| x -> Ok x
| exception _ -> Error ())
| exception _ -> Result.Error ())
let float =
basic "Float" (fun s ->
match float_of_string (s Atom.Dune) with
| x -> Ok x
| exception _ -> Error ())
| exception _ -> Result.Error ())
let pair a b =
enter
@ -334,7 +334,7 @@ module Of_sexp = struct
let string_map t =
list (pair string t) >>= fun bindings ->
match String.Map.of_list bindings with
| Ok x -> return x
| Result.Ok x -> return x
| Error (key, _v1, _v2) ->
loc >>= fun loc ->
of_sexp_errorf loc "key %s present multiple times" key