adam@1552: table channels : { Channel : channel {} }
adam@1552:
adam@1552: fun get () =
adam@1552: ch <- channel;
adam@1552: dml (INSERT INTO channels (Channel) VALUES ({[ch]}));
adam@1552: return
adam@1552: Hi.
adam@1552:
adam@1552:
adam@1552: fun post () =
adam@1552: ch <- channel;
adam@1552: dml (INSERT INTO channels (Channel) VALUES ({[ch]}));
adam@1552: return
adam@1552: Hi!
adam@1552:
adam@1552:
adam@1552: fun main () = return
adam@1552: Get
adam@1552:
adam@1552: