Mercurial > urweb
diff src/mono_reduce.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 | 796e42c93c48 |
| children | a28982de5645 |
line wrap: on
line diff
--- a/src/mono_reduce.sml Sat Apr 25 14:47:16 2009 -0400 +++ b/src/mono_reduce.sml Sun Apr 26 09:02:17 2009 -0400 @@ -79,6 +79,7 @@ | ECase (e, pes, _) => impure e orelse List.exists (fn (_, e) => impure e) pes | EError (e, _) => impure e + | EReturnBlob {blob = e1, mimeType = e2, ...} => impure e1 orelse impure e2 | EStrcat (e1, e2) => impure e1 orelse impure e2 @@ -349,6 +350,7 @@ | EStrcat (e1, e2) => summarize d e1 @ summarize d e2 | EError (e, _) => summarize d e @ [Unsure] + | EReturnBlob {blob = e1, mimeType = e2, ...} => summarize d e1 @ summarize d e2 @ [Unsure] | EWrite e => summarize d e @ [WritePage]