aboutsummaryrefslogtreecommitdiffstats
path: root/lib/nt.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/nt.ml')
-rw-r--r--lib/nt.ml10
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/nt.ml b/lib/nt.ml
index 0adf6d9..8622110 100644
--- a/lib/nt.ml
+++ b/lib/nt.ml
@@ -37,11 +37,11 @@ type plan_node =
module Error = struct
open Condition
(* TODO: better error structure *)
- let auth_failed msg = condition "auth-failed" ("message" |=| (of_string msg))
- let handle_error msg = condition "handle-error" ("message" |=| (of_string msg))
- let cursor_error msg = condition "cursor-error" ("message" |=| (of_string msg))
- let not_supported msg = condition "not-supported" ("message" |=| (of_string msg))
- let initialization_error = condition "initialization-error" empty
+ let auth_failed msg = condition "auth-failed" msg empty
+ let handle_error msg = condition "handle-error" msg empty
+ let cursor_error msg = condition "cursor-error" msg empty
+ let not_supported msg = condition "not-supported" msg empty
+ let initialization_error = condition "initialization-error" "Couldn't initialize" empty
end
(* --------------------------------------------------------------------------