summaryrefslogtreecommitdiff
path: root/tests/blob.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-25 14:47:16 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-25 14:47:16 -0400
commitd2274ae571370a5f0b88a6b0a5b264fde29378b9 (patch)
treea76de7cb5b97a481d0ef3ddb3b406ae4b0f67a7f /tests/blob.ur
parent3d0a7f3cd81daaa7d49de95de7fe4eb8d1288876 (diff)
Add MIME type to file
Diffstat (limited to 'tests/blob.ur')
-rw-r--r--tests/blob.ur5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/blob.ur b/tests/blob.ur
index 37c3f753..2d58faae 100644
--- a/tests/blob.ur
+++ b/tests/blob.ur
@@ -1,9 +1,10 @@
sequence s
-table t : { Id : int, Nam : option string, Data : blob, Desc : string }
+table t : { Id : int, Nam : option string, Data : blob, Desc : string, Typ : string }
fun save r =
id <- nextval s;
- dml (INSERT INTO t (Id, Nam, Data, Desc) VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]}));
+ dml (INSERT INTO t (Id, Nam, Data, Desc, Typ)
+ VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]}, {[fileMimeType r.Data]}));
main ()
and main () = return <xml><body>