[project @ 2003-07-21 14:28:02 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / Finder.lhs

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index f3c8597..2a97fd9 100644 (file)
--- 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