Mercurial > urweb
comparison src/scriptcheck.sml @ 741:f7e2026dd5ae
Returning a blob as page result
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 26 Apr 2009 09:02:17 -0400 |
parents | 6fc633d990e7 |
children | 9330ba3a2799 |
comparison
equal
deleted
inserted
replaced
740:b302b6e35f93 | 741:f7e2026dd5ae |
---|---|
84 | EBinop (_, e1, e2) => hasClient e1 orelse hasClient e2 | 84 | EBinop (_, e1, e2) => hasClient e1 orelse hasClient e2 |
85 | ERecord (_, xes) => List.exists (hasClient o #2) xes | 85 | ERecord (_, xes) => List.exists (hasClient o #2) xes |
86 | EField (e, _) => hasClient e | 86 | EField (e, _) => hasClient e |
87 | ECase (e, pes, _) => hasClient e orelse List.exists (hasClient o #2) pes | 87 | ECase (e, pes, _) => hasClient e orelse List.exists (hasClient o #2) pes |
88 | EError (e, _) => hasClient e | 88 | EError (e, _) => hasClient e |
89 | EReturnBlob {blob = e1, mimeType = e2, ...} => hasClient e1 orelse hasClient e2 | |
89 | EWrite e => hasClient e | 90 | EWrite e => hasClient e |
90 | ESeq (e1, e2) => hasClient e1 orelse hasClient e2 | 91 | ESeq (e1, e2) => hasClient e1 orelse hasClient e2 |
91 | ELet (_, _, e1, e2) => hasClient e1 orelse hasClient e2 | 92 | ELet (_, _, e1, e2) => hasClient e1 orelse hasClient e2 |
92 | EQuery {query, body, initial, ...} => hasClient query orelse hasClient body | 93 | EQuery {query, body, initial, ...} => hasClient query orelse hasClient body |
93 orelse hasClient initial | 94 orelse hasClient initial |