Commit 3c6b9911 authored by sof's avatar sof

[project @ 2003-08-22 16:38:51 by sof]

mkHomeModLocation: basename has to be equal to module name, not just suffix
parent 13ec31c0
......@@ -281,10 +281,10 @@ mkHomeModLocation mod_name src_filename = do
case maybePrefixMatch (reverse mod_basename) (reverse basename) of
Just "" ->
mkHomeModLocationSearched mod_name "." mod_basename extension
Just rest -> do
Just rest@(r:_) | isPathSeparator r -> do
let path = reverse (dropWhile (=='/') rest)
mkHomeModLocationSearched mod_name path mod_basename extension
Nothing -> do
_ -> do
-- hPutStrLn stderr ("Warning: " ++ src_filename ++
-- ": filename and module name do not match")
let (dir,basename,ext) = splitFilename3 src_filename
......
Markdown is supported
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