e0/bin/main.ml

open E0

let () =
  let p = Lexing.from_channel stdin |> Parse.try_parse in
  match p with
  | Error msg -> Printf.eprintf "Could not load program: %s" msg
  | Ok p -> Ast.show_program p |> print_endline
init 2022-03-08 06:16:27 +00:00			`open E0`

			`let () =`
Move the majority of the procedure back to lib 2022-03-08 09:20:19 +00:00			`let p = Lexing.from_channel stdin \|> Parse.try_parse in`
Parsing 2022-03-08 08:52:20 +00:00			`match p with`
			`\| Error msg -> Printf.eprintf "Could not load program: %s" msg`
			`\| Ok p -> Ast.show_program p \|> print_endline`