Skip to content

haskell-gargantext
haskell-gargantext
Unverified Commit 1380bc72 authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

re-fix mapConcurrentlyChunked

parent 4399f066
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
bin/gargantext-cli/Main.hs
View file @ 1380bc72
...@@ -64,7 +64,7 @@ mapMP f xs = do ...@@ -64,7 +64,7 @@ mapMP f xs = do
mapConcurrentlyChunked :: (a -> IO b) -> [a] -> IO [b] mapConcurrentlyChunked :: (a -> IO b) -> [a] -> IO [b]
mapConcurrentlyChunked f ts = do mapConcurrentlyChunked f ts = do
caps <- getNumCapabilities caps <- getNumCapabilities
let n = caps `div` length ts let n = length ts `div` caps
concat <$> mapConcurrently (mapM f) (chunksOf n ts) concat <$> mapConcurrently (mapM f) (chunksOf n ts)
filterTermsAndCooc filterTermsAndCooc
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment