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

Fix 4.02 build 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-06-19 16:20:28 +01:00
parent d483768b93
commit 4922faf18a
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/stdune/sexp.ml
View File

@ -250,7 +250,7 @@ module Of_sexp = struct
of_sexp_errorf loc "%s expected" desc
| Atom (loc, s) ->
match f (Atom.to_string s) with
| Error () ->
| Result.Error () ->
of_sexp_errorf loc "%s expected" desc
| Ok x -> x)