[project @ 1999-01-13 11:06:24 by simonm]

[ghc-hetmet.git] / ghc / compiler / basicTypes / OccName.lhs

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 4a0901f..f17156c 100644 (file)
--- 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"