[project @ 2002-03-20 19:42:49 by sof]

maybeHomeModule: if chasing after a source import, _only_ look for hi-boots

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index fc945b6..ce01c28 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -99,7 +99,7 @@ maybeHomeModule mod_name is_source = do
        ]
 
    searchPathExts home_path basename
-       (if is_source then (boot_exts++std_exts) else std_exts ++ boot_exts)
+       (if is_source then boot_exts else (std_exts ++ boot_exts))
                        -- for SOURCE imports, check the hi-boot extensions
                        -- before the source/iface ones, to avoid
                        -- creating circ Makefile deps.