diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-26 11:07:25 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-26 11:07:25 -0400 |
| commit | d824fdd52fb824a6a9db9fb3cc32cfb28746d04b (patch) | |
| tree | e73efff25966663d1e173a44b019be814b1a923a /tests/blob.ur | |
| parent | 8be9bc6c82ce1ad669f4696bc91415f3421e51b8 (diff) | |
blobSize
Diffstat (limited to 'tests/blob.ur')
| -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 ec683068..82a631b9 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 FROM t ORDER BY t.Desc) - (fn r => <xml><li><a link={view r.T.Id}>{[r.T.Desc]}</a></li></xml>); + 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>); return <xml><body> {ls} |