X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FInst.lhs;h=d6cf344b90c834646ac22ae2a70177388c883e89;hb=9d7da331989abcd1844e9d03b8d1e4163796fa85;hp=71d3e8472b99339df71487a06a7e2ea032050640;hpb=2a2efb720c0fdc06fe749f96f284b00b30f8f3f7;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index 71d3e84..d6cf344 100644
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -79,7 +79,7 @@ import DataCon	( DataCon, dataConTyVars, dataConStupidTheta, dataConName, dataCo
 import Id	( Id, idName, idType, mkUserLocal, mkLocalId )
 import PrelInfo	( isNoDictClass )
 import Name	( Name, mkMethodOcc, getOccName, getSrcLoc, nameModule,
-		  isInternalName, setNameUnique, mkSystemVarNameEncoded )
+		  isInternalName, setNameUnique, mkSystemVarName )
 import NameSet	( addOneToNameSet )
 import Literal	( inIntRange )
 import Var	( TyVar, tyVarKind, setIdType )
@@ -398,9 +398,7 @@ newLitInst orig lit expected_ty	-- Make a LitInst
   = do 	{ loc <- getInstLoc orig
 	; new_uniq <- newUnique
 	; let
-		lit_nm   = mkSystemVarNameEncoded new_uniq FSLIT("lit")
-		-- The "encoded" bit means that we don't need to
-		-- z-encode the string every time we call this!
+		lit_nm   = mkSystemVarName new_uniq FSLIT("lit")
 		lit_inst = LitInst lit_nm lit expected_ty loc
 	; extendLIE lit_inst
 	; return (HsVar (instToId lit_inst)) }