blob: 2a47cdb5a9c748ba1cb430151e9a4c836687f849 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
open Relational_engine
let () =
if Array.length Sys.argv <> 2 then begin
Printf.eprintf "Usage: %s <config-file>\n%!" Sys.argv.(0);
exit 1
end;
match System.run_from_config Sys.argv.(1) with
| Error e ->
Printf.eprintf "Couldn't initialize: %s\n%!" (Condition.to_string_hum e);
exit 1
| Ok run -> run ()
|
