Mercurial > urweb
comparison demo/roundTrip.ur @ 708:1a317a707d71
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 |