Catch the right Io exception

diff --git a/src/config.sml b/src/config.sml
index ad3946f..8c66fbc 100644 (file)
--- a/src/config.sml
+++ b/src/config.sml
@@ -131,7 +131,7 @@ struct
        in
            read fields
            before TextIO.closeIn inf
-       end handle Io => config
+       end handle IO.Io _ => config
 
     fun default () =
        let

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