From: sof <unknown>
Date: Mon, 1 Jun 1998 16:44:22 +0000 (+0000)
Subject: [project @ 1998-06-01 16:44:22 by sof]
X-Git-Tag: Approx_2487_patches~637
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=539775ce17356ef14dc0cf453c88b387beee4555;p=ghc-hetmet.git

[project @ 1998-06-01 16:44:22 by sof]
Get the concurrent syslib included for free, when -gransim\'ing or -parallel\'ing
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 2afd307..d96eac2 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -2759,9 +2759,9 @@ arg: while($_ = $Args[0]) {
 
     /^-concurrent$/ && do { $CONCURing = 'c'; &add_syslib('concurrent'); next arg; }; 
 			  # concurrent Haskell; implies -syslib conc
-    /^-gransim$/    && do { $GRANing   = 'g'; next arg; }; # GranSim
+    /^-gransim$/    && do { $GRANing   = 'g'; &add_syslib('concurrent'); next arg; }; # GranSim
     /^-ticky$/	    && do { $TICKYing  = 't'; next arg; }; # ticky-ticky
-    /^-parallel$/   && do { $PARing    = 'p'; next arg; }; # parallel Haskell
+    /^-parallel$/   && do { $PARing    = 'p'; &add_syslib('concurrent'); next arg; }; # parallel Haskell
 
     #-------------- "user ways" --------------------------------------------