From 4922faf18a80d1387c60855a696a3d25f03f7a1d Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jeremie@dimino.org>
Date: Tue, 19 Jun 2018 16:20:28 +0100
Subject: [PATCH] Fix 4.02 build

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
---
 src/stdune/sexp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/stdune/sexp.ml b/src/stdune/sexp.ml
index 73b922cf..4df32932 100644
--- a/src/stdune/sexp.ml
+++ b/src/stdune/sexp.ml
@@ -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)