Commit a38fed41 authored by simonmar's avatar simonmar
Browse files

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

Comment out the warning about filenames not matching module names.
parent 3087014a
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment