diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 01:07:14 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-23 01:07:14 +0000 |
| commit | db3198d7c5ad7bc60bd24bd1bb2c7b122a6dfbd0 (patch) | |
| tree | 0671ce12b98db653af87de99a443b9f83a623cb5 /lib/manipulation.ml | |
| parent | 2190193397596663c4de4f51f8355300c1833997 (diff) | |
| download | Sakura-db3198d7c5ad7bc60bd24bd1bb2c7b122a6dfbd0.tar.gz Sakura-db3198d7c5ad7bc60bd24bd1bb2c7b122a6dfbd0.zip | |
Include messages on on all conditions
Diffstat (limited to 'lib/manipulation.ml')
| -rw-r--r-- | lib/manipulation.ml | 3 |
1 files changed, 1 insertions, 2 deletions
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 |