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

Deal correctly with module names containing underscores.

[project @ 2000-11-13 14:45:22 by sewardj]
Deal correctly with module names containing underscores.
2b509cae · sewardj · d2e14af0 · 2b509cae
Commit 2b509cae authored Nov 13, 2000 by sewardj
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -87,7 +87,7 @@ maybeHomeModule mod_name = do

        Just home_map -> return home_map

-   let basename = moduleNameString mod_name
+   let basename = moduleNameUserString mod_name
       hs  = basename ++ ".hs"
       lhs = basename ++ ".lhs"