diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-07-15 01:52:38 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-07-14 22:52:38 -0300 |
| commit | c374635a36d71e8cfff6e1c19b62e5d0e14ea371 (patch) | |
| tree | 597fba69d4b39452eabab6299887282c1d7c6bc6 /lib/concepts/Condition.ml | |
| parent | bb3156b8ab78b035ce886bbe3021ec7cbe269d03 (diff) | |
| download | RNT-c374635a36d71e8cfff6e1c19b62e5d0e14ea371.tar.gz RNT-c374635a36d71e8cfff6e1c19b62e5d0e14ea371.zip | |
Storage layer scaffolding, LMDB backend
Diffstat (limited to 'lib/concepts/Condition.ml')
| -rw-r--r-- | lib/concepts/Condition.ml | 2 |
1 files changed, 2 insertions, 0 deletions
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 |