diff options
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 |