From: sof <unknown>
Date: Wed, 20 Mar 2002 19:42:49 +0000 (+0000)
Subject: [project @ 2002-03-20 19:42:49 by sof]
X-Git-Tag: Approx_11550_changesets_converted~2242
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4ff8aecd97c39f212bc334f28c7b8265d5ccc197;p=ghc-hetmet.git

[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
--- 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.