Catch the right Io exception

[bpt/mlt.git] / src / main.sml

diff --git a/src/main.sml b/src/main.sml
index d9950fa..0df1e44 100644 (file)
--- 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