X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftigert.ml;h=f5a58510a1ae5b51bea92bcc505f66f9e82d1512;hp=10b5cbeba3ee46dc9584f9e4c1ec708f3b24e8fc;hb=ce2f1040878bdbda39c3e0a554b6f0221497eff0;hpb=6d83a0545c204cf46413799836f7343faabb716e

diff --git a/compiler/src/exe/tigert.ml b/compiler/src/exe/tigert.ml
index 10b5cbe..f5a5851 100644
--- a/compiler/src/exe/tigert.ml
+++ b/compiler/src/exe/tigert.ml
@@ -1,5 +1,5 @@
 let () =
   let dir = ref "testcases" in
-  Arg.parse [("-dir", String (fun s -> dir := s), "")] (fun _ -> ()) "";
+  Arg.parse [("-dir", Arg.String (fun s -> dir := s), "")] (fun _ -> ()) "";
   let dir = !dir in
   Tiger.Test.run (Tiger.Test_cases.all ~dir)