Note:

You are viewing a development version of the library. Goto the latest version.

let data_assert t data origin =
  match data_check t data origin with
    | None -> ()
    | Some str -> failwith str