More verbose couldn't-find-cert message

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";
+           print ("I looked in: " ^ #1 x ^ "\n");
            print ("Additional information: " ^ s ^ "\n");
            raise e)