Mercurial > urweb

diff tests/blob.ur @ 745:ee2feab275db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
blobSize
author Adam Chlipala <adamc@hcoop.net>
date Sun, 26 Apr 2009 11:07:25 -0400
parents 43553c93dd8c
children 2c7244c066f1
line wrap: on
line diff
--- a/tests/blob.ur	Sun Apr 26 10:54:45 2009 -0400
+++ b/tests/blob.ur	Sun Apr 26 11:07:25 2009 -0400
@@ -12,8 +12,8 @@
     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}