comparison src/cjr.sml @ 741:f7e2026dd5ae

Returning a blob as page result
author Adam Chlipala <adamc@hcoop.net>
date Sun, 26 Apr 2009 09:02:17 -0400
parents e0dd85ea58e1
children 8688e01ae469
comparison
equal deleted inserted replaced
740:b302b6e35f93 741:f7e2026dd5ae
73 | EField of exp * string 73 | EField of exp * string
74 74
75 | ECase of exp * (pat * exp) list * { disc : typ, result : typ } 75 | ECase of exp * (pat * exp) list * { disc : typ, result : typ }
76 76
77 | EError of exp * typ 77 | EError of exp * typ
78 | EReturnBlob of {blob : exp, mimeType : exp, t : typ}
78 79
79 | EWrite of exp 80 | EWrite of exp
80 | ESeq of exp * exp 81 | ESeq of exp * exp
81 | ELet of string * typ * exp * exp 82 | ELet of string * typ * exp * exp
82 83