diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-26 12:35:45 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-26 12:35:45 -0400 |
commit | a4d3d754e8b4fc6bad46f414a7d27228ab60107f (patch) | |
tree | 122ba347fb6260488aaec3aca188e6600d0125f9 /tests | |
parent | 8ae6d29e66997f90e36803d19f5b23b63a9c4a4b (diff) |
sql_ufunc and octet_length
Diffstat (limited to 'tests')
-rw-r--r-- | tests/blob.ur | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/blob.ur b/tests/blob.ur index 82a631b9..4c368a86 100644 --- a/tests/blob.ur +++ b/tests/blob.ur @@ -12,8 +12,8 @@ fun save r = main () and main () = - ls <- queryX (SELECT t.Id, t.Desc, t.Data FROM t ORDER BY t.Desc) - (fn r => <xml><li><a link={view r.T.Id}>{[r.T.Desc]} ({[blobSize r.T.Data]})</a></li></xml>); + ls <- queryX (SELECT t.Id, t.Desc, octet_length(t.Data) AS Len FROM t ORDER BY t.Desc) + (fn r => <xml><li><a link={view r.T.Id}>{[r.T.Desc]} ({[r.Len]})</a></li></xml>); return <xml><body> {ls} |