More verbose couldn't-find-cert message

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

diff --git a/src/main.sml b/src/main.sml
index 2e350cc..7473fb6 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -176,6 +176,7 @@ fun context x =
     (OpenSSL.context false x)
     handle e as OpenSSL.OpenSSL s =>
           (print "Couldn't find your certificate.\nYou probably haven't been given any Domtool privileges.\n";
     (OpenSSL.context false x)
     handle e as OpenSSL.OpenSSL s =>
           (print "Couldn't find your certificate.\nYou probably haven't been given any Domtool privileges.\n";

+           print ("I looked in: " ^ #1 x ^ "\n");

            print ("Additional information: " ^ s ^ "\n");
            raise e)
 
            print ("Additional information: " ^ s ^ "\n");
            raise e)