From: simonmar <unknown>
Date: Mon, 14 Feb 2005 16:49:50 +0000 (+0000)
Subject: [project @ 2005-02-14 16:49:50 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1072
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d8e8d85db6bf2b1fa0c0219f558507031dd59c26

[project @ 2005-02-14 16:49:50 by simonmar]
Improve the module-not-found error message when we didn't actually
search for it anywhere.  This happens when we know all the places it
might be: either in the current program, or a package.
---

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 6173853..260ee07 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -429,6 +429,8 @@ cantFindError dflags mod_name find_result
 		   <+> ppr pkg)
 
 	    NotFound files
+		| null files
+		-> ptext SLIT("it is not a module in the current program, or in any known package.")
 		| verbosity dflags < 3 
 		-> ptext SLIT("use -v to see a list of the files searched for")
 		| otherwise