X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FFinder.lhs;h=2a97fd9f6e58e9f049cebe6f536db087092085c3;hb=a38fed411ee18754cede5c410ec94f33001c0af3;hp=f3c859762ac7a6ca785c5e8e2e592f7b50179fe6;hpb=3087014ae03067cf0f9c9e0d8d49fb885e2cd0a8;p=ghc-hetmet.git

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