From 7e8c7235bcaf8f6378e9feef4fcabdfbcddd4f89 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 26 Mar 2017 00:36:45 +0100
Subject: [PATCH] use `result` package for retrocompat

---
 src/core/CCOpt.ml | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/core/CCOpt.ml b/src/core/CCOpt.ml
index 396ce37e..36154caf 100644
--- a/src/core/CCOpt.ml
+++ b/src/core/CCOpt.ml
@@ -148,16 +148,16 @@ let of_list = function
   | [] -> None
 
 let to_result err = function
-  | None -> Error err
-  | Some x -> Ok x
+  | None -> Result.Error err
+  | Some x -> Result.Ok x
 
 let to_result_lazy err_fn = function
-  | None -> Error (err_fn ())
-  | Some x -> Ok x
+  | None -> Result.Error (err_fn ())
+  | Some x -> Result.Ok x
 
 let of_result = function
-  | Error _ -> None
-  | Ok x -> Some x
+  | Result.Error _ -> None
+  | Result.Ok x -> Some x
 
 module Infix = struct
   let (>|=) = (>|=)