Mercurial > urweb

comparison src/mono_print.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 796e42c93c48
children 8688e01ae469
comparison
equal deleted inserted replaced
740:b302b6e35f93 741:f7e2026dd5ae
209 space, 209 space,
210 string ":", 210 string ":",
211 space, 211 space,
212 p_typ env t, 212 p_typ env t,
213 string ")"] 213 string ")"]
214 | EReturnBlob {blob, mimeType, t} => box [string "(blob",
215 space,
216 p_exp env blob,
217 space,
218 string "in",
219 space,
220 p_exp env mimeType,
221 space,
222 string ":",
223 space,
224 p_typ env t,
225 string ")"]
214 226
215 | EStrcat (e1, e2) => parenIf par (box [p_exp' true env e1, 227 | EStrcat (e1, e2) => parenIf par (box [p_exp' true env e1,
216 space, 228 space,
217 string "^", 229 string "^",
218 space, 230 space,