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 | 3a3efad7e3706ecdeabffadbe9a5631c30af2da0 (patch) | |
| tree | 1d7e3ef3f5bbca99b53ac3ee3b66d934c22f1d0d /demo/batchFun.ur | |
| parent | 0014d8534ad3c3bbed2b02b62843eb62169f04b5 (diff) | |
Convert to requiring explicit 'rpc' marker
Diffstat (limited to 'demo/batchFun.ur')
| -rw-r--r-- | demo/batchFun.ur | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demo/batchFun.ur b/demo/batchFun.ur index 560c0c55..d88f11ca 100644 --- a/demo/batchFun.ur +++ b/demo/batchFun.ur @@ -78,7 +78,7 @@ functor Make(M : sig <xml><td>{m.Show v}</td></xml>) [M.cols] M.fl M.cols (r -- #Id)} {if withDel then - <xml><td><button value="Delete" onclick={del r.Id}/></td></xml> + <xml><td><button value="Delete" onclick={rpc (del r.Id)}/></td></xml> else <xml/>} </tr> @@ -129,7 +129,7 @@ functor Make(M : sig fun exec () = ls <- get batched; - doBatch ls; + rpc (doBatch ls); set batched Nil in return <xml><body> @@ -137,7 +137,7 @@ functor Make(M : sig {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> |