diff options
Diffstat (limited to 'caching-tests')
| -rw-r--r-- | caching-tests/bench.ur | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/caching-tests/bench.ur b/caching-tests/bench.ur index d9c298c8..2661bd0e 100644 --- a/caching-tests/bench.ur +++ b/caching-tests/bench.ur @@ -3,14 +3,14 @@ table tab : {Id : int, Val : int} PRIMARY KEY Id fun check id = res <- oneOrNoRows (SELECT tab.Val FROM tab WHERE tab.Id = {[id]}); return <xml><body> - cache + Value at {[id]} is {case res of - None => <xml>?</xml> - | Some row => <xml>{[row.Tab.Val]}</xml>} + None => <xml>unknown</xml> + | Some row => <xml>{[row.Tab.Val]}</xml>}. </body></xml> fun flush id = dml (UPDATE tab SET Val = Val + 1 WHERE Id = {[id]}); return <xml><body> - Changed {[id]}! + Incremented value at {[id]} (if it exists). </body></xml> |