[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 (file)
--- 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$/;