From: simonmar <unknown>
Date: Mon, 27 May 2002 16:13:32 +0000 (+0000)
Subject: [project @ 2002-05-27 16:13:32 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2012
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9aa4ed053c3b2d04d287247995ec9292e93a0a23;p=ghc-hetmet.git

[project @ 2002-05-27 16:13:32 by simonmar]
Remove u2i, it was identical to getKey.
---

diff --git a/ghc/compiler/basicTypes/Unique.lhs b/ghc/compiler/basicTypes/Unique.lhs
index 69c6537..d2f4d7a 100644
--- a/ghc/compiler/basicTypes/Unique.lhs
+++ b/ghc/compiler/basicTypes/Unique.lhs
@@ -17,13 +17,12 @@ Haskell).
 \begin{code}
 module Unique (
 	Unique, Uniquable(..), hasKey,
-	u2i,				-- hack: used in UniqFM
 
 	pprUnique, pprUnique10,
 
 	mkUnique,			-- Used in UniqSupply
 	mkUniqueGrimily,		-- Used in UniqSupply only!
-	getKey,				-- Used in Var only!
+	getKey,				-- Used in Var, UniqFM, Name only!
 
 	incrUnique,			-- Used for renumbering
 	deriveUnique,			-- Ditto
@@ -71,11 +70,6 @@ Fast comparison is everything on @Uniques@:
 data Unique = MkUnique Int#
 \end{code}
 
-\begin{code}
-u2i :: Unique -> FastInt
-u2i (MkUnique i) = i
-\end{code}
-
 Now come the functions which construct uniques from their pieces, and vice versa.
 The stuff about unique *supplies* is handled further down this module.