HCoop
/
hcoop
/
domtool2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
989965b
)
domtool-admin returns proper exit code on OpenSSL exception
author
Adam Chlipala
<adamc@hcoop.net>
Sun, 9 Dec 2007 12:52:57 +0000
(12:52 +0000)
committer
Adam Chlipala
<adamc@hcoop.net>
Sun, 9 Dec 2007 12:52:57 +0000
(12:52 +0000)
src/main-admin.sml
patch
|
blob
|
blame
|
history
diff --git
a/src/main-admin.sml
b/src/main-admin.sml
index
4ce4170
..
0e404c6
100644
(file)
--- 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";
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)