blob: 2423c37a04c2561a2d51538ec3e7a59f3e82acca (
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%!" e;
exit 1
| Ok run -> run ()
|
