From 0658be42e7458907b8ff5f9ce50152f6bf5fd966 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Wed, 29 Apr 2026 23:29:12 +0000
Subject: Use `Result` rather than a custom type

---
 lib/external/lmdb.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/external/lmdb.ml b/lib/external/lmdb.ml
index d2e6be0..7b0812d 100644
--- a/lib/external/lmdb.ml
+++ b/lib/external/lmdb.ml
@@ -2,15 +2,15 @@ open Ctypes
 open PosixTypes
 open Foreign
 
-type mdb_result = Success | Failure of int
+type mdb_result = (unit, int) Result.t
 
 let mdb_result_of_int = function
-  | 0 -> Success
-  | x -> Failure x
+  | 0 -> Ok ()
+  | x -> Error x
 
 let int_of_mdb_result = function
-  | Success -> 0
-  | Failure x -> x
+  | Ok _ -> 0
+  | Error x -> x
 
 let mdb_mode_t = mode_t
 
-- 
cgit v1.2.3