From d46e4bc63587c1b628cc80b3eac7a132a58d534d Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Tue, 31 May 2016 14:42:49 +0200
Subject: STM delegation policy can be customized

The command line option is named:
  - async-proofs-delegation-threshold
Values are of type float, default 1.0 (seconds).
Proofs taking less that the threshold are not delegated to
a worker.
---
 lib/flags.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/flags.ml')

diff --git a/lib/flags.ml b/lib/flags.ml
index c1ec9738ca..7de4fe8548 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -73,6 +73,7 @@ let async_proofs_is_worker () =
   !async_proofs_worker_id <> "master"
 let async_proofs_is_master () =
   !async_proofs_mode = APon && !async_proofs_worker_id = "master"
+let async_proofs_delegation_threshold = ref 1.0
 
 let debug = ref false
 let in_debugger = ref false
-- 
cgit v1.2.3