X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftigerc.ml;h=4bf0c62ec0d2d0ae953fe5f7de203dbb0f10f246;hp=5468ff7d841f00f451a25daa47ac37e5a587a9d3;hb=c16dd441582b7c7c09cdb3e706f4767a5b266177;hpb=be22952d3228b62e546756299a0f9a127ae64921

diff --git a/compiler/src/exe/tigerc.ml b/compiler/src/exe/tigerc.ml
index 5468ff7..4bf0c62 100644
--- a/compiler/src/exe/tigerc.ml
+++ b/compiler/src/exe/tigerc.ml
@@ -9,8 +9,8 @@ let () =
   let lexbuf = Lexing.from_channel ic in
   lexbuf_set_filename lexbuf path_to_program_file;
   (match Tiger.Parser.program Tiger.Lexer.token lexbuf with
-  | exception Tiger.Error.T msg ->
-      Printf.eprintf "%s\n" msg;
+  | exception Tiger.Error.T error ->
+      Printf.eprintf "%s\n" (Tiger.Error.to_string error);
       exit 1;
   | absyn ->
       print_endline (Tiger.Absyn.to_string absyn)