* Add note about where is their password (surprisingly high number of

[bpt/portal.git] / static / gen.sml

diff --git a/static/gen.sml b/static/gen.sml
index 1e409df..3ca57e8 100644 (file)
--- a/static/gen.sml
+++ b/static/gen.sml
@@ -316,10 +316,18 @@ fun main _ = (generate ())
     handle
     C.Sql s => (print "SQL exception: \n";
                print s;
+               print "\n";
                OS.Process.failure)
   | Fail s => (print "Fail: ";
               print s;
+              print "\n";
               OS.Process.failure)
+  | IO.Io {name, function, ...} => (print "IO exception ";
+                                   print function;
+                                   print ": ";
+                                   print name;
+                                   print "\n";
+                                   OS.Process.failure)
   | ex => (print "Exception!\n";
                  List.app (fn s => print (s ^ "\n")) (SMLofNJ.exnHistory ex);
                  OS.Process.failure)