Commit 6b504e17 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-06-27 11:11:31 by simonmar]

fix hierarchical modules in a package
parent 6dad6315
......@@ -150,7 +150,8 @@ maybePackageModule mod_name = do
then return "hi"
else return (tag ++ "_hi")
let basename = moduleNameUserString mod_name
let mod_str = moduleNameUserString mod_name
basename = map (\c -> if c == '.' then '/' else c) mod_str
hi = basename ++ '.':package_hisuf
found <- findOnPackagePath pkgs hi
......@@ -161,7 +162,7 @@ maybePackageModule mod_name = do
ModuleLocation{
ml_hspp_file = Nothing,
ml_hs_file = Nothing,
ml_hi_file = path,
ml_hi_file = path ++ '/':hi,
ml_obj_file = Nothing
}
))
......
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