From: simonpj <unknown>
Date: Fri, 19 Oct 2001 14:22:11 +0000 (+0000)
Subject: [project @ 2001-10-19 14:22:11 by simonpj]
X-Git-Tag: Approximately_9120_patches~771
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bbffa95af87bb66635aaffdaddcd31be063752dc;p=ghc-hetmet.git

[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
--- 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}