Commit 20ededd6 authored by simonmar's avatar simonmar
Browse files

[project @ 2004-11-29 11:32:38 by simonmar]

Look for package modules before home modules.  This fixes the build in
ghc/lib when bootstrapping with the HEAD.
parent 51ec1e6e
......@@ -102,16 +102,17 @@ findModule = cached findModule'
findModule' :: DynFlags -> Module -> Bool -> IO FindResult
findModule' dflags name explicit = do
j <- maybeHomeModule dflags name
case j of
NotFound home_files -> do
r <- findPackageModule' dflags name explicit
case r of
NotFound pkg_files
-> return (NotFound (home_files ++ pkg_files))
r <- findPackageModule' dflags name explicit
case r of
NotFound pkg_files -> do
j <- maybeHomeModule dflags name
case j of
NotFound home_files ->
return (NotFound (home_files ++ pkg_files))
other_result
-> return other_result
other_result -> return other_result
other_result
-> return other_result
cached fn dflags name explicit = do
m <- lookupFinderCache name
......
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