GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Setup.hs: comment out ineffective parallelisation

Browse Source
This commit is contained in:
hallgren
2013-05-02 12:36:16 +00:00
parent 22f44ef61f
commit e44580aced
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Setup.hs
View File

@@ -15,8 +15,8 @@ import System.FilePath
import System.Directory import System.Directory
import System.Process import System.Process
import System.Exit import System.Exit
import Control.Concurrent(forkIO) --import Control.Concurrent(forkIO)
import Control.Concurrent.Chan(newChan,writeChan,readChan) --import Control.Concurrent.Chan(newChan,writeChan,readChan)
import WebSetup import WebSetup
@@ -430,8 +430,8 @@ ls path = filter (`notElem` [".",".."]) `fmap` getDirectoryContents path
-- | For parallel RGL module compilation -- | For parallel RGL module compilation
-- Unfortunately, this has no effect unless Setup.hs is compiled with -threaded -- Unfortunately, this has no effect unless Setup.hs is compiled with -threaded
parallel_ ms = -- sequence_ ms {- parallel_ ms = sequence_ ms {-
do c <- newChan do c <- newChan
ts <- sequence [ forkIO (m >> writeChan c ()) | m <- ms] ts <- sequence [ forkIO (m >> writeChan c ()) | m <- ms]
sequence_ [readChan c | _ <- ts] sequence_ [readChan c | _ <- ts]
--} --}