payment: note that Stripe has instituted an additional 1% fee for non-US cards

[hcoop/portal.git] / exn.mlt

diff --git a/exn.mlt b/exn.mlt
index c36e18a..1b28abe 100644 (file)
--- a/exn.mlt
+++ b/exn.mlt
@@ -11,14 +11,18 @@
 <b>System error</b>: <% Web.html name %>
 <% | OS.SysErr (name, SOME syserr) => %>
 <b>System error</b>: <% Web.html name %>: <% Web.html (OS.errorName syserr) %>: <% Web.htmlNl (OS.errorMsg syserr) %>
-<% | IO.Io {name, function, ...} => %>
-<b>IO error</b>: <% Web.html name %> for <% Web.html function %>
+<% | IO.Io {name, function, cause, ...} => %>
+<b>IO error</b>: <% Web.html name %> for <% Web.html function %><br>
+<b>Cause</b>: <% Web.html (Init.explain cause) %><br>
+<b>Tokens</b>: <p><% Web.htmlNl (Init.tokens ()) %></p>
 <% | Init.C.Sql msg => %>
 <b>SQL</b>: <% Web.htmlNl msg %>
 <% | Init.Access msg => %>
 <b>Authorization error</b>: <% Web.htmlNl msg %>
 <% | Web.Format s => %>
 <b>Format</b>: <% Web.htmlNl s %>
+<% | DynLinkage.DynLinkError s => %>
+<b>Linking error</b>: <% Web.htmlNl s %>
 
 <% | Init.NeedTos => %>
 <p><b>Our records indicate that you need to agree to our Terms of Service.</b></p>