[project @ 2001-10-19 14:22:11 by simonpj]

Try to get mkLocalOcc right

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index e9584e1..c743343 100644 (file)
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -318,7 +318,9 @@ mkLocalOcc :: Unique                -- Unique
           -> OccName           -- Local name (e.g. "sat")
           -> OccName           -- Nice unique version ("$L23sat")
 mkLocalOcc uniq occ
-   = mk_deriv varName "$L" (show uniq ++ occNameString occ)
+   = mk_deriv varName ("$L" ++ show uniq) (occNameString occ)
+       -- The Unique might print with characters 
+       -- that need encoding (e.g. 'z'!)
 \end{code}