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

[ghc-hetmet.git] / ghc / compiler / rename / RnMonad.lhs

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index 0e14f7a..456ce08 100644 (file)
--- 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))