Revert "wip-parallel-experiment unconditionally set setNumCapabilitie…

…s to 8" This reverts commit 80eef51.
tweag · May 26, 2020 · abde3c1 · abde3c1
1 parent 4fdd288
commit abde3c1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/asterius/app/ahc-ld.hs b/asterius/app/ahc-ld.hs
@@ -69,7 +69,6 @@ main = do
       rsp <- readFile rsp_path
       let rsp_args = map read $ lines rsp
       task <- parseLinkTask rsp_args
-      setNumCapabilities 8
-      -- when (threadPoolSize task > 1) $ setNumCapabilities (threadPoolSize task)
+      when (threadPoolSize task > 1) $ setNumCapabilities (threadPoolSize task)
       ignore <- isJust <$> getEnv "ASTERIUS_AHC_LD_IGNORE"
       if ignore then callProcess "touch" [linkOutput task] else linkExe task
diff --git a/asterius/app/ahc-link.hs b/asterius/app/ahc-link.hs
@@ -5,6 +5,5 @@ import Control.Monad
 main :: IO ()
 main = do
   task <- getTask
-  setNumCapabilities 8 -- (threadPoolSize task)
-  -- when (threadPoolSize task > 1) $ setNumCapabilities (threadPoolSize task)
+  when (threadPoolSize task > 1) $ setNumCapabilities (threadPoolSize task)
   ahcLinkMain task