From 539775ce17356ef14dc0cf453c88b387beee4555 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 1 Jun 1998 16:44:22 +0000
Subject: [PATCH] [project @ 1998-06-01 16:44:22 by sof] Get the concurrent
 syslib included for free, when -gransim\'ing or
 -parallel\'ing

---
 ghc/driver/ghc.lprl |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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" --------------------------------------------
 
-- 
1.7.10.4