Make check_entries parallelism configurable

1 files changed, 2 insertions, 1 deletions

diff --git a/src/frontend.erl b/src/frontend.erl
index 1055e5f..a7ca153 100644
--- a/src/frontend.erl
+++ b/src/frontend.erl
@@ -241,9 +241,10 @@ check_entries_int(Entries, Start, End) ->
                 end, [], lists:zip(Entries, lists:seq(Start, End))).
 
 check_entries_noreverse(Entries, Start, End) ->
+    ParallelTasks = application:get_env(plop, check_entries_parallel_tasks, 1),
     Results = util:parallel_map(fun ({Hash, Index}) ->
                                         check_entry_noreverse(Hash, Index)
-                                end, lists:zip(Entries, lists:seq(Start, End)), 2),
+                                end, lists:zip(Entries, lists:seq(Start, End)), ParallelTasks),
     lists:foldl(fun (Result, Acc) ->
                         case Result of
                             ok ->