HCoop
/
bpt
/
portal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
That password file writing was right before, gosh darn it
[bpt/portal.git]
/
exn.mlt
diff --git
a/exn.mlt
b/exn.mlt
index
8e534a4
..
b28705f
100644
(file)
--- a/
exn.mlt
+++ b/
exn.mlt
@@
-2,7
+2,7
@@
<title>Hcoop Portal: Exception</title>
</head><body>
<title>Hcoop Portal: Exception</title>
</head><body>
-<h1>
<b>Exception</b>
</h1>
+<h1>
Exception
</h1>
<% switch Web.getExn () of
Fail msg => %>
<% switch Web.getExn () of
Fail msg => %>
@@
-11,6
+11,10
@@
<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) %>
<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, 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 => %>
<% | Init.C.Sql msg => %>
<b>SQL</b>: <% Web.htmlNl msg %>
<% | Init.Access msg => %>