Commits

Yaron Minsky committed ee0f08e

added of_error_string

Comments (0)

Files changed (2)

 let of_error e =
   Error e
 
+let of_error_string s =
+  of_error (Error.of_string s)
+
 let to_line t =
   let base =
     match t with
 
 val of_string : string -> t
 val of_error : Error.t -> t
+val of_error_string : string -> t
 val empty : t
 
 (** Returns an update as a single, ['\n']-terminated string  *)