diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-08-22 12:55:18 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-08-22 12:55:18 -0400 |
| commit | f79732bbf16467ecf40c6068bac93502aa49e9d2 (patch) | |
| tree | 1d7e3ef3f5bbca99b53ac3ee3b66d934c22f1d0d /demo/batch.ur | |
| parent | 28f2c29dd98659f00e4d7bc3147c2fc2e5320f34 (diff) | |
Convert to requiring explicit 'rpc' marker
Diffstat (limited to 'demo/batch.ur')
| -rw-r--r-- | demo/batch.ur | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/demo/batch.ur b/demo/batch.ur index 4100749f..8213dd81 100644 --- a/demo/batch.ur +++ b/demo/batch.ur @@ -25,7 +25,8 @@ fun show withDel lss = Nil => <xml/> | Cons ((id, a), ls) => <xml> <tr><td>{[id]}</td> <td>{[a]}</td> {if withDel then - <xml><td><button value="Delete" onclick={del id}/></td></xml> + <xml><td><button value="Delete" onclick={rpc (del id)}/> + </td></xml> else <xml/>} </tr> {show' ls} @@ -55,7 +56,7 @@ fun main () = fun exec () = ls <- get batched; - doBatch ls; + rpc (doBatch ls); set batched Nil in return <xml><body> @@ -63,7 +64,7 @@ fun main () = {show True lss} - <button value="Update" onclick={ls <- allRows (); set lss ls}/><br/> + <button value="Update" onclick={ls <- rpc (allRows ()); set lss ls}/><br/> <br/> <h2>Batch new rows to add</h2> |