Commit 5cea3b9d authored by sof's avatar sof
Browse files

[project @ 1999-03-02 19:01:56 by sof]

Remove out-of-date use of -fcompiling-prelude
parent 2e97c37b
......@@ -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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment