Mercurial > urweb
comparison caching-tests/bench.ur @ 2304:6fb9232ade99
Merge Sqlcache
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 20 Dec 2015 14:18:52 -0500 |
| parents | 8be54d7bd06e |
| children |
comparison
equal
deleted
inserted
replaced
| 2201:1091227f535a | 2304:6fb9232ade99 |
|---|---|
| 1 table tab : {Id : int, Val : int} PRIMARY KEY Id | |
| 2 | |
| 3 fun check id = | |
| 4 res <- oneOrNoRows (SELECT tab.Val FROM tab WHERE tab.Id = {[id]}); | |
| 5 return <xml><body> | |
| 6 Value at {[id]} is | |
| 7 {case res of | |
| 8 None => <xml>unknown</xml> | |
| 9 | Some row => <xml>{[row.Tab.Val]}</xml>}. | |
| 10 </body></xml> | |
| 11 | |
| 12 fun flush id = | |
| 13 dml (UPDATE tab SET Val = Val + 1 WHERE Id = {[id]}); | |
| 14 return <xml><body> | |
| 15 Incremented value at {[id]} (if it exists). | |
| 16 </body></xml> |