[project @ 2000-12-25 23:45:30 by qrczak]

s/moduleNameString/moduleNameUserString/ to correctly handle modules
with 'z' in their names which come from packages.

The function Module.moduleNameString is no longer used. Perhaps it
should be removed so nobody tries to introduce such bug again :-)

If the letter 'e' was chosen for escape instead of 'z', such bugs
would be more quickly spotted :-)

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 43e29d9..03c2bbe 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -183,7 +183,7 @@ maybePackageModule mod_name = do
                then return "hi"
                else return (tag ++ "_hi")
 
-  let basename = moduleNameString mod_name
+  let basename = moduleNameUserString mod_name
       hi = basename ++ '.':package_hisuf
 
   case lookupFM pkg_cache hi of