Fix 4.02 build
Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
parent
d483768b93
commit
4922faf18a
|
@ -250,7 +250,7 @@ module Of_sexp = struct
|
||||||
of_sexp_errorf loc "%s expected" desc
|
of_sexp_errorf loc "%s expected" desc
|
||||||
| Atom (loc, s) ->
|
| Atom (loc, s) ->
|
||||||
match f (Atom.to_string s) with
|
match f (Atom.to_string s) with
|
||||||
| Error () ->
|
| Result.Error () ->
|
||||||
of_sexp_errorf loc "%s expected" desc
|
of_sexp_errorf loc "%s expected" desc
|
||||||
| Ok x -> x)
|
| Ok x -> x)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue