Commit 03e02c39 authored by Stephane Glondu's avatar Stephane Glondu

Add timers to caches

parent 7911efbf
......@@ -202,7 +202,7 @@ let raw_get_ballots_archived uuid =
| None -> return Ballots.empty
let archived_ballots_cache =
new BallotsCache.cache raw_get_ballots_archived 10
new BallotsCache.cache raw_get_ballots_archived ~timer:3600. 10
let get_ballot_hashes uuid =
match%lwt get_election_state uuid with
......
......@@ -65,7 +65,7 @@ end
module WCache = Ocsigen_cache.Make (WCacheTypes)
let find_election =
let cache = new WCache.cache raw_find_election 100 in
let cache = new WCache.cache raw_find_election ~timer:3600. 100 in
fun x -> cache#find x
let get_draft_election uuid =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment