Mercurial > urweb

diff src/scriptcheck.sml @ 1065:217eb87dde31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.url and redirects
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Dec 2009 13:32:09 -0500
parents 8371d12ae63f
children b2311dfb3158
line wrap: on
line diff
--- a/src/scriptcheck.sml	Thu Dec 10 12:06:03 2009 -0500
+++ b/src/scriptcheck.sml	Thu Dec 10 13:32:09 2009 -0500
@@ -106,6 +106,7 @@
                       | ECase (e, pes, _) => hasClient e orelse List.exists (hasClient o #2) pes
                       | EError (e, _) => hasClient e
                       | EReturnBlob {blob = e1, mimeType = e2, ...} => hasClient e1 orelse hasClient e2
+                      | ERedirect (e, _) => hasClient e
                       | EWrite e => hasClient e
                       | ESeq (e1, e2) => hasClient e1 orelse hasClient e2
                       | ELet (_, _, e1, e2) => hasClient e1 orelse hasClient e2