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

new function: cloneUVar

diff --git a/ghc/compiler/types/Usage.lhs b/ghc/compiler/types/Usage.lhs
index c3119e8..5ea9e4c 100644 (file)
--- a/ghc/compiler/types/Usage.lhs
+++ b/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}