github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Switch over to mapConcurrently in Command.Git too

Browse Source
This commit is contained in:
Timothy Clem 2017-04-24 09:59:58 -07:00
parent 5181a11455
commit c1be28de3b
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Command/Git.hs
View File

@ -3,11 +3,10 @@ module Command.Git
, readFilesAtSHAs
) where
import qualified Control.Concurrent.Async.Pool as Async
import qualified Control.Concurrent.Async as Async
import Data.Functor.Both
import Data.String
import Data.List ((\\), nub)
import GHC.Conc (numCapabilities)
import Prologue
import Git.Blob
import Git.Libgit2
@ -35,9 +34,7 @@ readFilesAtSHAs gitDir alternates paths shas = do
pure . nub $! (\ (p, _, _) -> toS p) <$> runBothWith (\\) paths <> runBothWith (flip (\\)) paths
_ -> pure paths
Async.withTaskGroup numCapabilities $
\ group -> Async.runTask group $
traverse (Async.task . runGit' . blobsForPath) paths
Async.mapConcurrently (runGit' . blobsForPath) paths
where
runGit' = runGit gitDir alternates
blobsForPath path = do