[project @ 1997-07-05 01:44:50 by sof]

new function: cloneUVar

ghc/compiler/types/Usage.lhs

@@ -11,7 +11,7 @@ module Usage (
 	usageOmega, pprUVar, duffUsage,
 	nullUVarEnv, mkUVarEnv, addOneToUVarEnv,
 	growUVarEnvList, isNullUVarEnv, lookupUVarEnv,
-	eqUVar, eqUsage
+	eqUVar, eqUsage, cloneUVar
 ) where
 
 IMP_Ubiq(){-uitous-}
@@ -36,6 +36,9 @@ type Usage = GenUsage UVar
 
 usageOmega = UsageOmega
 
+cloneUVar :: UVar -> Unique -> UVar
+cloneUVar uvar uniq = uniq
+
 duffUsage :: GenUsage uvar
 duffUsage = panic "Usage of non-Type kind doesn't make sense"
 \end{code}