view caching-tests/bench.ur @ 2307:6ae9a2784a45

Return to working version mode
author Adam Chlipala <>
date Sun, 20 Dec 2015 14:39:50 -0500
parents 8be54d7bd06e
line wrap: on
line source
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>
      Value at {[id]} is
      {case res of
           None => <xml>unknown</xml>
         | Some row => <xml>{[row.Tab.Val]}</xml>}.

fun flush id =
    dml (UPDATE tab SET Val = Val + 1 WHERE Id = {[id]});
    return <xml><body>
      Incremented value at {[id]} (if it exists).