mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
Setup.hs: comment out ineffective parallelisation
This commit is contained in:
8
Setup.hs
8
Setup.hs
@@ -15,8 +15,8 @@ import System.FilePath
|
||||
import System.Directory
|
||||
import System.Process
|
||||
import System.Exit
|
||||
import Control.Concurrent(forkIO)
|
||||
import Control.Concurrent.Chan(newChan,writeChan,readChan)
|
||||
--import Control.Concurrent(forkIO)
|
||||
--import Control.Concurrent.Chan(newChan,writeChan,readChan)
|
||||
|
||||
import WebSetup
|
||||
|
||||
@@ -430,8 +430,8 @@ ls path = filter (`notElem` [".",".."]) `fmap` getDirectoryContents path
|
||||
|
||||
-- | For parallel RGL module compilation
|
||||
-- Unfortunately, this has no effect unless Setup.hs is compiled with -threaded
|
||||
parallel_ ms = -- sequence_ ms {-
|
||||
parallel_ ms = sequence_ ms {-
|
||||
do c <- newChan
|
||||
ts <- sequence [ forkIO (m >> writeChan c ()) | m <- ms]
|
||||
sequence_ [readChan c | _ <- ts]
|
||||
--}
|
||||
--}
|
||||
|
||||
Reference in New Issue
Block a user