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/Condition.ml | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/lib/concepts/Condition.ml b/lib/concepts/Condition.ml
index cc0f7a7..16f02d0 100644
--- a/lib/concepts/Condition.ml
+++ b/lib/concepts/Condition.ml
@@ -18,6 +18,8 @@ let condition name message ?parent props =
       |> Option.value ~default:BatMap.empty
       |> props }
 
+let complement props ({properties; _} as condition) = {condition with properties= props properties}
+
 let to_string_hum {name; message; properties; backtrace} =
   let properties' =
     properties
-- 
cgit v1.2.3