Summary of recent support requests with response times

[bpt/portal.git] / exn.mlt
diff --git a/exn.mlt b/exn.mlt

index 8e534a4..c36e18a 100644 (file)
--- a/exn.mlt
+++ b/exn.mlt
@@ -2,7 +2,7 @@
  <title>Hcoop Portal: Exception</title>
  </head><body>
  
-<h1><b>Exception</b></h1>
+<h1>Exception</h1>
  
  <% switch Web.getExn () of
       Fail msg => %>
@@ -11,6 +11,8 @@
  <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 %>
  <% | Init.C.Sql msg => %>
  <b>SQL</b>: <% Web.htmlNl msg %>
  <% | Init.Access msg => %>