bin/main.ml


1
2
3
4
5
6
7
8

open Sand

let () =
  let open Editor in
  let cli = Config.parse Sys.argv in
  let editor = Editor.init cli in
  let rec loop () = Action.(render *> handle_next_command *> tick >>= loop) in
  Action.eval ~editor loop