From 800b3e1ec94890c0b7ef79baa89e902d428fa45b Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 9 Dec 2007 12:52:57 +0000 Subject: [PATCH] domtool-admin returns proper exit code on OpenSSL exception --- src/main-admin.sml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/main-admin.sml b/src/main-admin.sml index 4ce4170..0e404c6 100644 --- a/src/main-admin.sml +++ b/src/main-admin.sml @@ -61,5 +61,6 @@ val _ = app (fn s => (print s; print "\n")) (Acl.users ())) | _ => (print "Invalid command-line arguments\n"; - print "See the documentation: http://wiki.hcoop.net/wiki/DomTool/AdminProcedures\n")) - handle OpenSSL.OpenSSL s => print ("OpenSSL exception: " ^ s ^ "\n") + print "See the documentation: http://wiki2.hcoop.net/DomTool/AdminProcedures\n")) + handle OpenSSL.OpenSSL s => (print ("OpenSSL exception: " ^ s ^ "\n"); + OS.Process.exit OS.Process.failure) -- 2.20.1