Mercurial > urweb

diff demo/refFun.ur @ 434:c471345f5165

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove need for '() <-' notation
author Adam Chlipala <adamc@hcoop.net>
date Mon, 27 Oct 2008 08:27:45 -0400
parents 9119a5920106
children 20fab0e96217
line wrap: on
line diff
--- a/demo/refFun.ur	Mon Oct 27 08:16:19 2008 -0400
+++ b/demo/refFun.ur	Mon Oct 27 08:27:45 2008 -0400
@@ -10,7 +10,7 @@
 
     fun new d =
         id <- nextval s;
-        () <- dml (INSERT INTO t (Id, Data) VALUES ({id}, {d}));
+        dml (INSERT INTO t (Id, Data) VALUES ({id}, {d}));
         return id
 
     fun read r =