From 0dbddbb9d7036c9db16769eb923a26c83403d5c3 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Thu, 2 May 2013 12:36:16 +0000
Subject: [PATCH] Setup.hs: comment out ineffective parallelisation

---
 Setup.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Setup.hs b/Setup.hs
index 8a3ce5402..77f47a473 100644
--- a/Setup.hs
+++ b/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]
---}
\ No newline at end of file
+--}