From: panne <unknown>
Date: Mon, 22 May 2000 20:04:01 +0000 (+0000)
Subject: [project @ 2000-05-22 20:04:01 by panne]
X-Git-Tag: Approximately_9120_patches~4408
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=20adb5df3cd05ca245192afaeaa5d183b483c5ad;p=ghc-hetmet.git

[project @ 2000-05-22 20:04:01 by panne]
zu => _ (i.e. sync name decoding with OccName :-)
---

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index f452fa1..3241701 100644
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -131,6 +131,7 @@ sub constructNewHiFile {
     $mod_name_dec = $ModuleName{'new'};
     $mod_name_dec =~ s/zz/z/g;
     $mod_name_dec =~ s/ZZ/Z/g;
+    $mod_name_dec =~ s/zu/_/g;
 
     if ($Specific_hi_file eq '') {  # -ohi is used even if  module name != stem of filename.
         ($hiname = $hifile_target) = $1 if  $hifile_target =~ /\/?([^\/]+)\.$HiSuffix$/;