Catch the right Io exception

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

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