Mercurial > urweb

diff tests/blob.ur @ 890:034eeb099564

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Blobs tested in MySQL and SQLite
author Adam Chlipala <adamc@hcoop.net>
date Sat, 18 Jul 2009 10:27:32 -0400
parents 2c7244c066f1
children 67ebd30a2283
line wrap: on
line diff
--- a/tests/blob.ur	Fri Jul 17 18:13:02 2009 -0400
+++ b/tests/blob.ur	Sat Jul 18 10:27:32 2009 -0400
@@ -1,7 +1,7 @@
 sequence s
 table t : { Id : int, Nam : option string, Data : blob, Desc : string, Typ : string }
 
-fun view id =
+fun see id =
     r <- oneRow (SELECT t.Data, t.Typ FROM t WHERE t.Id = {[id]});
     returnBlob r.T.Data (blessMime r.T.Typ)
 
@@ -13,7 +13,7 @@
 
 and main () =
     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>);
+          (fn r => <xml><li><a link={see r.T.Id}>{[r.T.Desc]} ({[r.Len]})</a></li></xml>);
     return <xml><body>
       {ls}