[project @ 2000-10-27 11:51:13 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / Finder.lhs

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 13c665b..b92848a 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -5,10 +5,8 @@
 
 \begin{code}
 module Finder (
-    newFinder,                 -- :: PackageConfigInfo -> IO (), 
-    findModule,                -- :: ModuleName -> IO (Maybe (Module, ModuleLocation))
-    ModuleLocation(..),
-    mkHomeModuleLocn,
+    initFinder,        -- :: PackageConfigInfo -> IO (), 
+    findModule         -- :: ModuleName -> IO (Maybe (Module, ModuleLocation))
   ) where
 
 #include "HsVersions.h"
@@ -43,8 +41,8 @@ GLOBAL_VAR(v_PkgDirCache,    error "no pkg cache!",  FiniteMap String (PackageNa
 GLOBAL_VAR(v_HomeDirCache,   Nothing,  Maybe (FiniteMap String FilePath))
 
 
-newFinder :: PackageConfigInfo -> IO ()
-newFinder (PackageConfigInfo pkgs) = do
+initFinder :: PackageConfigInfo -> IO ()
+initFinder (PackageConfigInfo pkgs) = do
   -- expunge our home cache
   writeIORef v_HomeDirCache Nothing
 
@@ -52,8 +50,8 @@ newFinder (PackageConfigInfo pkgs) = do
   writeIORef v_PkgDirCache (unsafePerformIO (newPkgCache pkgs))
 
   
-findModule :: [Package] -> ModuleName -> IO (Maybe (Module, ModuleLocation))
-findModule pkgs name = do
+findModule :: ModuleName -> IO (Maybe (Module, ModuleLocation))
+findModule name = do
   j <- maybeHomeModule name
   case j of
        Just home_module -> return (Just home_module)