Compact every week

VictorNicollet · Mar 12, 2014 · ca90c16 · ca90c16
1 parent 779e1a8
commit ca90c16
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/couchDB.ml b/src/couchDB.ml
@@ -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