X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_error.ml;h=9e0d16a3252bae9d19c64581a2ee5eb7b235fd92;hp=eb2c177bb3ae4fafb6f381b48bcd8ca21b4a18b4;hb=2f38b9f1292d971826d540718855f63431029715;hpb=ef79993b1016fbaa73b0993c88a16b23f8cb7408

diff --git a/compiler/src/lib/tiger/tiger_error.ml b/compiler/src/lib/tiger/tiger_error.ml
index eb2c177..9e0d16a 100644
--- a/compiler/src/lib/tiger/tiger_error.ml
+++ b/compiler/src/lib/tiger/tiger_error.ml
@@ -2,6 +2,6 @@ module Pos = Tiger_position
 
 exception T of string
 
-let exn ~pos ~msg =
+let exn ~pos msg =
   let msg = Printf.sprintf "Error: %s. In %s." msg (Pos.to_string pos) in
   raise (T msg)