From f0e76bb0af1f8474bf081cd7f1ca8cd7f9ede781 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Mon, 25 Dec 2000 23:45:30 +0000
Subject: [PATCH] [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 :-)
---
 ghc/compiler/main/Finder.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 43e29d9..03c2bbe 100644
--- 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
-- 
1.7.10.4