From: simonm <unknown>
Date: Wed, 13 Jan 1999 11:06:24 +0000 (+0000)
Subject: [project @ 1999-01-13 11:06:24 by simonm]
X-Git-Tag: Approx_2487_patches~127
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9039da35d72a9551be7a54b4c432f43218bee61c;p=ghc-hetmet.git

[project @ 1999-01-13 11:06:24 by simonm]
Z-encodings for '/' and '.' were both 'Zd'.  Change '.' to 'Zs'.
---

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 4a0901f..f17156c 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -581,7 +581,7 @@ encode_ch '#'  = "Zh"
 encode_ch '<'  = "Zl"
 encode_ch '-'  = "Zm"
 encode_ch '!'  = "Zn"
-encode_ch '.'  = "Zd"
+encode_ch '.'  = "Zs"
 encode_ch '\'' = "Zq"
 encode_ch '*'  = "Zt"
 encode_ch '+'  = "Zp"