Setup.hs: comment out ineffective parallelisation

This commit is contained in:
hallgren
2013-05-02 12:36:16 +00:00
parent e17c87e955
commit 0dbddbb9d7

View File

@@ -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]
--}
--}