let run_monad name f = Lwt_main.run (f ()) |> function | `Ok () -> () | `Error (`Database e) -> ksprintf fail "%S ends with error: %s" name (Trakeva.Error.to_string e)