Mercurial > urweb

comparison src/prepare.sml @ 1065:217eb87dde31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.url and redirects
author Adam Chlipala <adamc@hcoop.net>
date Thu, 10 Dec 2009 13:32:09 -0500
parents 467285bb5578
children b2311dfb3158
comparison
equal deleted inserted replaced
1064:b89e3d8731ed 1065:217eb87dde31
200 val (mimeType, st) = prepExp (mimeType, st) 200 val (mimeType, st) = prepExp (mimeType, st)
201 in 201 in
202 ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st) 202 ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st)
203 end 203 end
204 204
205 | ERedirect (e, t) =>
206 let
207 val (e, st) = prepExp (e, st)
208 in
209 ((ERedirect (e, t), loc), st)
210 end
211
205 | EWrite e => 212 | EWrite e =>
206 let 213 let
207 val (e, st) = prepExp (e, st) 214 val (e, st) = prepExp (e, st)
208 in 215 in
209 ((EWrite e, loc), st) 216 ((EWrite e, loc), st)