Mercurial > urweb

comparison demo/roundTrip.ur @ 708:1a317a707d71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add primary keys to demo
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 16:22:11 -0400
parents 9b29ce0babb8
children 15ddd64a5113
comparison
equal deleted inserted replaced
707:d8217b4cb617 708:1a317a707d71
1 table channels : { Client : client, Channel : channel (string * int * float) } 1 table channels : { Client : client, Channel : channel (string * int * float) }
2 PRIMARY KEY Client
2 3
3 fun writeBack v = 4 fun writeBack v =
4 me <- self; 5 me <- self;
5 r <- oneRow (SELECT channels.Channel FROM channels WHERE channels.Client = {[me]}); 6 r <- oneRow (SELECT channels.Channel FROM channels WHERE channels.Client = {[me]});
6 send r.Channels.Channel v 7 send r.Channels.Channel v