X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FName.lhs;h=aef8355dfbba5b3d0b1a424322880a6336940795;hb=f43ebad1020dccdf6fde2fddc91994b27d0f565e;hp=2dcc009ff7c3f968858d57b98c2e05e436f85044;hpb=2fa402ddd9be4577e6824c66add1bf900e4fa3b5;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Name.lhs b/ghc/compiler/basicTypes/Name.lhs
index 2dcc009..aef8355 100644
--- a/ghc/compiler/basicTypes/Name.lhs
+++ b/ghc/compiler/basicTypes/Name.lhs
@@ -12,7 +12,7 @@ module Name (
 	Name,					-- Abstract
 	mkLocalName, mkSysLocalName, mkCCallName,
 	mkIPName,
-	mkDerivedName, mkGlobalName, mkKnownKeyGlobal, mkWiredInName,
+	mkGlobalName, mkKnownKeyGlobal, mkWiredInName,
 
 	nameUnique, setNameUnique,
 	nameOccName, nameModule, nameModule_maybe,
@@ -198,14 +198,6 @@ mkIPName uniq occ
 	   n_sort = Local,
 	   n_occ  = occ,
 	   n_loc = noSrcLoc }
-
----------------------------------------------------------------------
-mkDerivedName :: (OccName -> OccName)
-	      -> Name		-- Base name
-	      -> Unique		-- New unique
-	      -> Name		-- Result is always a value name
-
-mkDerivedName f name uniq = name {n_uniq = uniq, n_occ = f (n_occ name)}
 \end{code}
 
 \begin{code}