handle IO.Io _ => ()
| OS.SysErr (s, _) => print ("System error processing user " ^ user ^ ": " ^ s ^ "\n")
| ErrorMsg.Error => print ("User " ^ user ^ " had a compilation error.\n")
+ | _ => print "Unknown exception during regeneration!\n"
in
app contactNode Config.nodeIps;
Env.pre ();
OpenSSL.close bio
handle OpenSSL.OpenSSL _ => ();
loop ())
+ | _ =>
+ (print "Unknown exception in main loop!\n";
+ OpenSSL.close bio
+ handle OpenSSL.OpenSSL _ => ();
+ loop ())
in
print ("Domtool dispatcher starting up at " ^ now () ^ "\n");
print "Listening for connections....\n";