Fix 405s

ocurrent · Mar 5, 2021 · 9c78af3 · 9c78af3
1 parent 0176889
commit 9c78af3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/analyse.ml b/lib/analyse.ml
@@ -1,7 +1,7 @@
 open Lwt.Infix
 open Current.Syntax
 
-let pool = Current.Pool.create ~label:"analyse" 20
+let pool = Current.Pool.create ~label:"analyse" 4
 
 let ( >>!= ) = Lwt_result.bind
 let list_is_empty = function [] -> true | _::_ -> false

diff --git a/lib/lint.ml b/lib/lint.ml
@@ -1,7 +1,7 @@
 open Lwt.Infix
 open Current.Syntax
 
-let pool = Current.Pool.create ~label:"lint" 20
+let pool = Current.Pool.create ~label:"lint" 4
 
 let ( // ) = Filename.concat
 let ( >>/= ) x f = x >>= fun x -> f (Result.get_ok x)