Mercurial > urweb

comparison src/scriptcheck.sml @ 741:f7e2026dd5ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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