From bbffa95af87bb66635aaffdaddcd31be063752dc Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 19 Oct 2001 14:22:11 +0000
Subject: [PATCH] [project @ 2001-10-19 14:22:11 by simonpj] Try to get
 mkLocalOcc right

---
 ghc/compiler/basicTypes/OccName.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index e9584e1..c743343 100644
--- 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}
 
 
-- 
1.7.10.4