Remove label from error raising helper

[tiger.ml.git] / compiler / src / lib / tiger / tiger_error.ml

diff --git a/compiler/src/lib/tiger/tiger_error.ml b/compiler/src/lib/tiger/tiger_error.ml
index eb2c177..9e0d16a 100644 (file)
--- 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)