Mercurial > urweb
diff src/prepare.sml @ 1932:98895243b5b6
Change handling of returned text blobs, to activate the normal EWrite optimizations
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Wed, 11 Dec 2013 18:22:10 -0500 |
parents | 0577be31a435 |
children | 4d64af730e35 |
line wrap: on
line diff
--- a/src/prepare.sml Wed Dec 11 14:57:54 2013 -0500 +++ b/src/prepare.sml Wed Dec 11 18:22:10 2013 -0500 @@ -201,7 +201,14 @@ | EReturnBlob {blob, mimeType, t} => let - val (blob, st) = prepExp (blob, st) + val (blob, st) = case blob of + NONE => (blob, st) + | SOME blob => + let + val (b, st) = prepExp (blob, st) + in + (SOME b, st) + end val (mimeType, st) = prepExp (mimeType, st) in ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st)