From 5832111169e899fe114947236a3b5b845d4aa9bd Mon Sep 17 00:00:00 2001 From: Magnus Ahltorp Date: Wed, 28 Oct 2015 16:00:32 +0100 Subject: Make check_entries parallelism configurable --- src/util.erl | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/util.erl') diff --git a/src/util.erl b/src/util.erl index 8a8152a..f58cb4b 100644 --- a/src/util.erl +++ b/src/util.erl @@ -124,6 +124,8 @@ parallel_map_loop([Item|Rest], [FreeChild|FreeChildren], WorkingChildren, Acc) - parallel_map_loop(Rest, FreeChildren, queue:in(FreeChild, WorkingChildren), Acc). +parallel_map(Fun, List, 1) -> + lists:map(Fun, List); parallel_map(Fun, List, Parallel) -> ParentPid = self(), ChildPids = lists:map(fun(N) -> -- cgit v1.1