re-fix mapConcurrentlyChunked

1380bc72 · Nicolas Pouillard · 4399f066 · 1380bc72
Unverified Commit 1380bc72 authored Jul 04, 2018 by Nicolas Pouillard
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Main.hs bin/gargantext-cli/Main.hs +1 -1

No files found.
--- a/bin/gargantext-cli/Main.hs
+++ b/bin/gargantext-cli/Main.hs
@@ -64,7 +64,7 @@ mapMP f xs = do
 mapConcurrentlyChunked :: (a -> IO b) -> [a] -> IO [b]
 mapConcurrentlyChunked f ts = do
  caps <- getNumCapabilities
-  let n = caps `div` length ts
+  let n = length ts `div` caps
  concat <$> mapConcurrently (mapM f) (chunksOf n ts)

 filterTermsAndCooc