X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FRdrName.lhs;h=ca98d8f47c80d5e9088c06742b13e47addbd083b;hb=904f158f9fe208b8154029dff655a6eab4b2828e;hp=3e5f52ee057caa2a9e0a5b8d9b6700f2645458e0;hpb=6ee2f67e582427f931c21c1fc58f62f8619d40b7;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/RdrName.lhs b/ghc/compiler/basicTypes/RdrName.lhs
index 3e5f52e..ca98d8f 100644
--- a/ghc/compiler/basicTypes/RdrName.lhs
+++ b/ghc/compiler/basicTypes/RdrName.lhs
@@ -16,7 +16,7 @@ module RdrName (
 	dummyRdrVarName, dummyRdrTcName,
 
 	-- Destruction
-	rdrNameModule, rdrNameOcc, 
+	rdrNameModule, rdrNameOcc, setRdrNameOcc,
 	isRdrDataCon, isRdrTyVar, isQual, isUnqual
   ) where 
 
@@ -62,6 +62,9 @@ rdrNameModule (RdrName (Qual m) _) = m
 
 rdrNameOcc :: RdrName -> OccName
 rdrNameOcc (RdrName _ occ) = occ
+
+setRdrNameOcc :: RdrName -> OccName -> RdrName
+setRdrNameOcc (RdrName q _) occ = RdrName q occ
 \end{code}
 
 \begin{code}