3 files changed, 5 insertions, 4 deletions
diff --git a/lib/management/branch.ml b/lib/management/branch.ml
index 1d28c36..4ba0983 100644
--- a/lib/management/branch.ml
+++ b/lib/management/branch.ml
@@ -15,7 +15,7 @@ let names_key = "branch_names"
 module Make (Storage : Physical.S) = struct
   module Error = struct
     open Condition
-    let branch_not_found name = condition "branch-not-found" ("name" |=| (of_string name))
+    let branch_not_found name = condition "branch-not-found" "Branch not found" ("name" |=| (of_string name))
   end
 
   let load_names storage =
diff --git a/lib/management/multigroup.ml b/lib/management/multigroup.ml
index f115d97..b908302 100644
--- a/lib/management/multigroup.ml
+++ b/lib/management/multigroup.ml
@@ -13,6 +13,7 @@ class multigroup ~name:(init_name : Conventions.Name.t) =
     method relations = relations
     method timestamp = timestamp
 
+    (* TODO: a variant returning (Relation.relation, Condition.t) result *)
     method get_relation rel_name = BatMap.String.find_opt rel_name relations
     method get_relation_names = BatMap.String.fold (fun n _ acc -> n :: acc) relations []
     method has_relation rel_name = BatMap.String.mem rel_name relations
diff --git a/lib/management/physical.ml b/lib/management/physical.ml
index 3765cff..7c6f6b2 100644
--- a/lib/management/physical.ml
+++ b/lib/management/physical.ml
@@ -132,9 +132,9 @@ module MemoryBackend :
   module Error = struct
     open Condition
     (* TODO: more structure *)
-    let parse_error msg = condition "parse-error" ("message" |=| (of_string msg))
-    let already_in_transaction = condition "already-in-transaction" empty
-    let not_in_transaction = condition "not-in-transaction" empty
+    let parse_error msg = condition "parse-error" msg empty
+    let already_in_transaction = condition "already-in-transaction" "Already inside a transaction" empty
+    let not_in_transaction = condition "not-in-transaction" "Not inside a transaction" empty
   end
 
   let parse sexp =