From 162f1889be4817490f0cd3ebc6f3e051e44f0bc1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 5 Mar 2004 15:05:28 +0000
Subject: [PATCH] [project @ 2004-03-05 15:05:28 by simonmar] comments

---
 ghc/compiler/main/Finder.lhs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 3137fa2..24936ec 100644
--- 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
-- 
1.7.10.4