A little more verbose on SSL context error; script for creating daemon certs

[hcoop/domtool2.git] / src / main.sml

diff --git a/src/main.sml b/src/main.sml
index a8cf180..798ede2 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -172,8 +172,9 @@ val self =
 
 fun context x =
     (OpenSSL.context false x)
-    handle e as OpenSSL.OpenSSL _ =>
+    handle e as OpenSSL.OpenSSL s =>
           (print "Couldn't find your certificate.\nYou probably haven't been given any Domtool privileges.\n";
+           print ("Additional information: " ^ s ^ "\n");
            raise e)
 
 fun setupUser () =