Mercurial > urweb

comparison src/prepare.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 7fa4871e8272
children 8688e01ae469
comparison
equal deleted inserted replaced
740:b302b6e35f93 741:f7e2026dd5ae
154 val (e, sns) = prepExp (e, sns) 154 val (e, sns) = prepExp (e, sns)
155 in 155 in
156 ((EError (e, t), loc), sns) 156 ((EError (e, t), loc), sns)
157 end 157 end
158 158
159 | EReturnBlob {blob, mimeType, t} =>
160 let
161 val (blob, sns) = prepExp (blob, sns)
162 val (mimeType, sns) = prepExp (mimeType, sns)
163 in
164 ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), sns)
165 end
166
159 | EWrite e => 167 | EWrite e =>
160 let 168 let
161 val (e, sns) = prepExp (e, sns) 169 val (e, sns) = prepExp (e, sns)
162 in 170 in
163 ((EWrite e, loc), sns) 171 ((EWrite e, loc), sns)