let mod_basename = dots_to_slashes (moduleNameUserString mod_name)
(basename,extension) = splitFilename src_filename
- case my_prefix_match (reverse mod_basename) (reverse basename) of
+ case maybePrefixMatch (reverse mod_basename) (reverse basename) of
Just "" ->
mkHomeModLocationSearched mod_name "." mod_basename extension
Just rest -> 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