Permalink
Browse files

Compact every week

  • Loading branch information...
1 parent 779e1a8 commit ca90c162f6c49927c893114491f29d44aaf71feb @VictorNicollet committed Mar 12, 2014
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/couchDB.ml
View
@@ -54,6 +54,8 @@ module Convenience = CouchDB_convenience
(* Bind signals ---------------------------------------------------------------------------- *)
-let () = Sig.listen Sig.Std.Bot.tick (Util.every 3600.0 ImplDB.compact)
+let week = 3600. *. 24. *. 7.
+
+let () = Sig.listen Sig.Std.Bot.tick (Util.every week ImplDB.compact)
let () = Sig.listen Sig.Std.Put.once ImplViews.compile_views

0 comments on commit ca90c16

Please sign in to comment.