Un-hard code some things

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

diff --git a/src/main.sml b/src/main.sml
index 80b8eaf..d9950fa 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -34,4 +34,6 @@ struct
                            print msg;
                            print "\n";
                            OS.Process.failure)
+            | Io => (print "FATAL ERROR: Io\n";
+                           OS.Process.failure)
 end
\ No newline at end of file