Commit 2b509cae authored by sewardj's avatar sewardj
Browse files

[project @ 2000-11-13 14:45:22 by sewardj]

Deal correctly with module names containing underscores.
parent d2e14af0
...@@ -87,7 +87,7 @@ maybeHomeModule mod_name = do ...@@ -87,7 +87,7 @@ maybeHomeModule mod_name = do
Just home_map -> return home_map Just home_map -> return home_map
let basename = moduleNameString mod_name let basename = moduleNameUserString mod_name
hs = basename ++ ".hs" hs = basename ++ ".hs"
lhs = basename ++ ".lhs" lhs = basename ++ ".lhs"
......
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