From 7d42e12db49e9a9268b1552d93f59b13d98b475b Mon Sep 17 00:00:00 2001 From: HuStmpHrrr Date: Thu, 9 Apr 2020 09:49:02 -0400 Subject: [PATCH] make the code compile --- bin/kaleidoscope.ml | 2 +- lib/dune | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/kaleidoscope.ml b/bin/kaleidoscope.ml index 815fb19..b6b3338 100644 --- a/bin/kaleidoscope.ml +++ b/bin/kaleidoscope.ml @@ -4,7 +4,7 @@ let () = let open Command.Let_syntax in Command.basic ~summary:"Parse and print kaleidoscope" [%map_open - let file = flag "file" (optional file) ~doc:"FILE read input from file" in + let file = flag "file" (optional string) ~doc:"FILE read input from file" in fun () -> Kaleidoscope_lib.Toplevel.main (match file with | None -> `Stdin | Some file -> `File file)] diff --git a/lib/dune b/lib/dune index 930b7b6..cefae68 100644 --- a/lib/dune +++ b/lib/dune @@ -10,7 +10,7 @@ llvm.target llvm.scalar_opts menhirLib) - (preprocess (pps ppx_jane ppx_expect ppx_let)) + (preprocess (pps ppx_jane -allow-unannotated-ignores ppx_expect ppx_let)) (inline_tests)) (ocamllex lexer)