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
|
||||
| Atom (loc, s) ->
|
||||
match f (Atom.to_string s) with
|
||||
| Error () ->
|
||||
| Result.Error () ->
|
||||
of_sexp_errorf loc "%s expected" desc
|
||||
| Ok x -> x)
|
||||
|
||||
|
|
Loading…
Reference in New Issue