From db3198d7c5ad7bc60bd24bd1bb2c7b122a6dfbd0 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sat, 23 May 2026 01:07:14 +0000
Subject: Include messages on on all conditions

---
 lib/manipulation.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/manipulation.ml')

diff --git a/lib/manipulation.ml b/lib/manipulation.ml
index d98127c..e62af28 100644
--- a/lib/manipulation.ml
+++ b/lib/manipulation.ml
@@ -22,8 +22,7 @@ module Make (Storage : Management.Physical.S) = struct
 
     (* TODO: more specific errors *)
     let storage_error message =
-      condition "storage-error"
-        ("message" |=| (of_string message))
+      condition "storage-error" message empty
   end
 
   let ( let* ) = Result.bind
-- 
cgit v1.2.3