From: simonmar <unknown>
Date: Mon, 21 Jul 2003 14:28:02 +0000 (+0000)
Subject: [project @ 2003-07-21 14:28:02 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~672
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a38fed411ee18754cede5c410ec94f33001c0af3

[project @ 2003-07-21 14:28:02 by simonmar]
Comment out the warning about filenames not matching module names.
---

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index f3c8597..2a97fd9 100644
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -285,8 +285,8 @@ mkHomeModLocation mod_name src_filename = do
 	   let path = reverse (dropWhile (=='/') rest)
 	   mkHomeModLocationSearched mod_name path mod_basename extension
 	Nothing   -> do
-	  hPutStrLn stderr ("Warning: " ++ src_filename ++
-	  			 ": filename and module name do not match")
+	  -- hPutStrLn stderr ("Warning: " ++ src_filename ++
+	  --			 ": filename and module name do not match")
 	  let (dir,basename,ext) = splitFilename3 src_filename
 	  mkHomeModLocationSearched mod_name dir basename ext