[project @ 2004-03-05 15:05:28 by simonmar]

comments

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 3137fa2..24936ec 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -87,6 +87,10 @@ lookupFinderCache mod_name = do
 -- The ModLocation contains the names of all the files associated with
 -- that module: its source file, .hi file, object file, etc.
 
+-- Returns: 
+--     Right (Module, ModLocation)   if the module was found
+--     Left [FilePath]               if the module was not found, and here
+--                                     is a list of all the places we looked
 findModule :: ModuleName -> IO (Either [FilePath] (Module, ModLocation))
 findModule name = do
   r <- lookupFinderCache name