diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-25 14:47:16 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-25 14:47:16 -0400 |
| commit | 609db88f316604bf1084dbb0defe5e6c0eaf07ae (patch) | |
| tree | a76de7cb5b97a481d0ef3ddb3b406ae4b0f67a7f /tests/blob.ur | |
| parent | fed2930b7cf791909b9f5e073720bdc4e170acad (diff) | |
Add MIME type to file
Diffstat (limited to 'tests/blob.ur')
| -rw-r--r-- | tests/blob.ur | 5 |
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> |