Mercurial > urweb
diff src/scriptcheck.sml @ 1065:217eb87dde31
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