diff --git a/src/main.opa b/src/main.opa index 2fc24c5..4fb27e5 100644 --- a/src/main.opa +++ b/src/main.opa @@ -10,12 +10,20 @@ type result = { string candidate_name, string candidate_first_name, int score, + list(Date.date) log } database presidential @mongo { result /first[{id}] } +function increase(result) { + /presidential/first[id == result.id] <- { score += 800, log <+ Date.now() }; + arr = result.arrondissement; + #{"a{arr}"} = tab_pan(arr); +} + + function table(arr) { dbset(result, _) s = /presidential/first[arrondissement == arr; order -score; limit 50]; it = DbSet.iterator(s); @@ -32,9 +40,11 @@ function table_row(result) { { result.candidate_name } { result.score } - + + Booster + - + { List.length(result.log) } }