reviewphiltrans_app.ml 250 Bytes
Newer Older
Philippe Veber's avatar
Philippe Veber committed
1 2 3 4 5
open Core
open Reviewphiltrans

let () =
  Command.group ~summary:"Reviewphiltrans" [
Philippe Veber's avatar
Philippe Veber committed
6 7 8
    "simulation", Pipeline.simulation_command ;
    "detection",  Pipeline.detection_command ;
    "validation", Pipeline.validation_command ;
Philippe Veber's avatar
Philippe Veber committed
9 10
  ]
  |> Command.run