Exception
<% switch Web.getExn () of
Fail msg => %>
Fail: <% Web.htmlNl msg %>
<% | OS.SysErr (name, NONE) => %>
System error: <% Web.html name %>
<% | OS.SysErr (name, SOME syserr) => %>
System error: <% Web.html name %>: <% Web.html (OS.errorName syserr) %>: <% Web.htmlNl (OS.errorMsg syserr) %>
<% | IO.Io {name, function, ...} => %>
IO error: <% Web.html name %> for <% Web.html function %>
<% | PassGen.C.Sql msg => %>
SQL: <% Web.htmlNl msg %>
<% | Web.Format s => %>
Format: <% Web.htmlNl s %>
<% | ex => %>
Unknown exception kind. Backtrace:
<% foreach s in SMLofNJ.exnHistory ex do %>
<% Web.html s %>
<% end
end %>