Run strategy discovery in parallel

src/App/Fossa/Analyze.hs

@@ -148,10 +148,13 @@ renderFailure failure = object
   ]
 
 discover :: HasDiscover sig m => Path Abs Dir -> m ()
-discover dir = traverse_ ($ dir) discoverFuncs
+discover dir = traverse_ (forkTask . apply dir) discoverFuncs
 
 discoverWithArchives :: HasDiscover sig m => Path Abs Dir -> m ()
-discoverWithArchives dir = traverse_ ($ dir) (Archive.discover discoverWithArchives : discoverFuncs)
+discoverWithArchives dir = traverse_ (forkTask . apply dir) (Archive.discover discoverWithArchives : discoverFuncs)
+
+apply :: a -> (a -> b) -> b
+apply x f = f x
 
 discoverFuncs :: HasDiscover sig m => [Path Abs Dir -> m ()]
 discoverFuncs =

src/App/Pathfinder/Scan.hs

@@ -45,7 +45,7 @@ scan basedir = runFinally $ do
   capabilities <- liftIO getNumCapabilities
 
   (closures,(_,())) <- runOutput @ProjectClosure $ runOutput @ProjectFailure $
-    withTaskPool capabilities updateProgress (traverse_ ($ basedir) discoverFuncs)
+    withTaskPool capabilities updateProgress (traverse_ (forkTask . apply basedir) discoverFuncs)
 
   logSticky "[ Combining Analyses ]"
 
@@ -54,6 +54,9 @@ scan basedir = runFinally $ do
 
   logSticky ""
 
+apply :: a -> (a -> b) -> b
+apply x f = f x
+
 discoverFuncs :: HasDiscover sig m => [Path Abs Dir -> m ()]
 discoverFuncs =
   [ Nuspec.discover