haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-03-11 03:06:35 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Use getNumCapabilities

Browse Source
This commit is contained in:
Chris Done 2015-02-17 17:26:57 +01:00
parent 579f0dfd7e
commit 0b85b87dc2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Stackage/ShakeBuild.hs
View File

@ -57,6 +57,7 @@ data Env = Env
-- | Run the shake builder. -- | Run the shake builder.
performBuild :: PerformBuild -> IO () performBuild :: PerformBuild -> IO ()
performBuild pb' = do performBuild pb' = do
num <- getNumCapabilities
cur <- FP.getWorkingDirectory cur <- FP.getWorkingDirectory
let shakeDir = cur <> "shake/" let shakeDir = cur <> "shake/"
FP.createTree shakeDir FP.createTree shakeDir
@ -77,7 +78,7 @@ performBuild pb' = do
} }
cleanOldPackages env cleanOldPackages env
printNewPackages env printNewPackages env
startShake 2 shakeDir (shakePlan env) startShake num shakeDir (shakePlan env)
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- The whole Shake plan -- The whole Shake plan