From ce2f1040878bdbda39c3e0a554b6f0221497eff0 Mon Sep 17 00:00:00 2001
From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Sat, 15 Sep 2018 16:15:49 -0400
Subject: [PATCH] Disambiguate variant label

---
 compiler/src/exe/tigert.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.20.1