From: Adam Chlipala Date: Sun, 9 Dec 2007 12:52:57 +0000 (+0000) Subject: domtool-admin returns proper exit code on OpenSSL exception X-Git-Tag: release_2010-11-19~99 X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/800b3e1ec94890c0b7ef79baa89e902d428fa45b domtool-admin returns proper exit code on OpenSSL exception --- 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)