path: root/discocaml/main.ml

open Discocaml

let () =
  Yojson.Safe.from_channel stdin
  |> request_of_yojson_exn |> handle_request |> response_to_yojson
  |> Yojson.Safe.to_channel stdout