X-Git-Url: http://git.hcoop.net/hcoop/mlt.git/blobdiff_plain/dc3b1a7f9c941c2a323e57861871090465fa31f7..e1968c00f76f1200aec08702810dcf13c85964b1:/src/main.sml

diff --git a/src/main.sml b/src/main.sml
index d9950fa..0df1e44 100644
--- a/src/main.sml
+++ b/src/main.sml
@@ -34,6 +34,6 @@ struct
 			    print msg;
 			    print "\n";
 			    OS.Process.failure)
-	     | Io => (print "FATAL ERROR: Io\n";
+	     | IO.Io {name, function, ...} => (print ("FATAL ERROR: Io: " ^ name ^ ": " ^ function ^ "\n");
 			    OS.Process.failure)
 end
\ No newline at end of file