From 2917a6454dc0f0a504ca24acac60f7769355177d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Jun 2001 01:35:07 +0000
Subject: [PATCH] [project @ 2001-06-25 01:35:07 by sof] With -no-hs-main,
 don't force PrelMain.o to be linked (=> Main.o)

---
 ghc/compiler/main/DriverPipeline.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 345252f..1821ede 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.80 2001/06/15 15:15:33 simonmar Exp $
+-- $Id: DriverPipeline.hs,v 1.81 2001/06/25 01:35:07 sof Exp $
 --
 -- GHC Driver
 --
@@ -799,7 +799,7 @@ doLink o_files = do
 	 	      ++ pkg_lib_opts
 	 	      ++ pkg_extra_ld_opts
 	 	      ++ extra_ld_opts
-	              ++ if static then
+	              ++ if static && not no_hs_main then
 #ifdef LEADING_UNDERSCORE
 			    [ "-u _PrelMain_mainIO_closure" ,
 			      "-u ___init_PrelMain"] 
-- 
1.7.10.4