Mercurial > urweb

comparison src/prepare.sml @ 1932:98895243b5b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
1931:1a04b1edded2 1932:98895243b5b6
199 ((EError (e, t), loc), st) 199 ((EError (e, t), loc), st)
200 end 200 end
201 201
202 | EReturnBlob {blob, mimeType, t} => 202 | EReturnBlob {blob, mimeType, t} =>
203 let 203 let
204 val (blob, st) = prepExp (blob, st) 204 val (blob, st) = case blob of
205 NONE => (blob, st)
206 | SOME blob =>
207 let
208 val (b, st) = prepExp (blob, st)
209 in
210 (SOME b, st)
211 end
205 val (mimeType, st) = prepExp (mimeType, st) 212 val (mimeType, st) = prepExp (mimeType, st)
206 in 213 in
207 ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st) 214 ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st)
208 end 215 end
209 216