From 5cea3b9d44c866978ff97151bd738cd061d3bc3c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 2 Mar 1999 19:01:58 +0000
Subject: [PATCH] [project @ 1999-03-02 19:01:56 by sof] Remove out-of-date
 use of -fcompiling-prelude

---
 ghc/compiler/basicTypes/Module.lhs |    6 +++---
 ghc/compiler/rename/RnMonad.lhs    |    2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 27d2cf2..deeefe1 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -44,7 +44,7 @@ module Module
 #include "HsVersions.h"
 import OccName
 import Outputable
-import CmdLineOpts ( opt_Static, opt_CompilingPrelude )
+import CmdLineOpts ( opt_Static )
 
 \end{code}
 
@@ -165,8 +165,8 @@ mkPrelModule :: UserString -> Module
 mkPrelModule s = Module (_PK_ (encode s)) ilk
  where 
   ilk
-   | opt_Static || opt_CompilingPrelude = HiFile
-   | otherwise				= HiDllFile
+   | opt_Static = HiFile
+   | otherwise	= HiDllFile
 
 mkSrcModuleFS :: UserFS -> Module
 mkSrcModuleFS s = Module (encodeFS s) HiFile
diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 0e14f7a..456ce08 100644
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -444,7 +444,7 @@ getAllFilesMatching dirs hims (dir_path, suffix) = ( do
     -- fpaths entries do not have dir_path prepended
   fpaths  <- getDirectoryContents dir_path
   is_dyns <- catch
-		(if dir_path == "." || opt_Static then
+		(if opt_Static || dir_path == "." then
 		     return False
 		 else
 		     doesFileExist (dir_path ++ '/': dir_contain_dll_his))
-- 
1.7.10.4