Add error message to Augeas.Error

[ocaml-augeas.git] / augeas.ml

diff --git a/augeas.ml b/augeas.ml
index 006b76b..aa5a182 100644 (file)
--- a/augeas.ml
+++ b/augeas.ml
@@ -52,7 +52,7 @@ type transform_mode =
   | Include
   | Exclude
 
-exception Error of error_code * string * string * string
+exception Error of error_code * string * string * string * string
 
 type path = string
 
@@ -96,4 +96,4 @@ external source : t -> path -> path option
   = "ocaml_augeas_source"
 
 let () =
-  Callback.register_exception "Augeas.Error" (Error (AugErrInternal, "", "", ""))
+  Callback.register_exception "Augeas.Error" (Error (AugErrInternal, "", "", "", ""))