2 <title>Hcoop: Exception</title>
5 <h1><b>Exception</b></h1>
7 <% switch Web.getExn () of
9 <b>Fail</b>: <% Web.htmlNl msg %>
10 <% | App.C.Sql msg => %>
11 <b>SQL</b>: <% Web.htmlNl msg %>
12 <% | Web.Format s => %>
13 <b>Format</b>: <% Web.htmlNl s %>
15 <b>Unknown exception kind.</b> Backtrace:
16 <% foreach s in SMLofNJ.exnHistory ex do %>
17 <li> <% Web.html s %></li>