From c374635a36d71e8cfff6e1c19b62e5d0e14ea371 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Wed, 15 Jul 2026 01:52:38 +0000
Subject: Storage layer scaffolding, LMDB backend

---
 lib/concepts/Value.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/concepts/Value.ml')

diff --git a/lib/concepts/Value.ml b/lib/concepts/Value.ml
index 65a0439..75b0e88 100644
--- a/lib/concepts/Value.ml
+++ b/lib/concepts/Value.ml
@@ -1,3 +1,6 @@
 type value = String of string | Integer of int
 
 let to_string = function String s -> s | Integer n -> Int.to_string n
+
+let equal x y =
+  match x, y with String x, String y -> x = y | Integer x, Integer y -> x = y | _, _ -> false
-- 
cgit v1.2.3