From: sof <unknown>
Date: Sat, 5 Jul 1997 01:44:50 +0000 (+0000)
Subject: [project @ 1997-07-05 01:44:50 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~276
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=641b068da46513abf8b2697b83fb03b2c36cb528;p=ghc-hetmet.git

[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
--- 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}