projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-10-12 13:11:45 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
basicTypes
/
Var.lhs
diff --git
a/ghc/compiler/basicTypes/Var.lhs
b/ghc/compiler/basicTypes/Var.lhs
index
72422f8
..
89bef36
100644
(file)
--- a/
ghc/compiler/basicTypes/Var.lhs
+++ b/
ghc/compiler/basicTypes/Var.lhs
@@
-39,14
+39,13
@@
import Name ( Name, OccName, NamedThing(..),
setNameUnique, setNameOcc, nameUnique,
mkSysLocalName, isExternallyVisibleName
)
setNameUnique, setNameOcc, nameUnique,
mkSysLocalName, isExternallyVisibleName
)
-import BasicTypes ( Unused )
+import FastTypes
import Outputable
import IOExts ( IORef, newIORef, readIORef, writeIORef )
\end{code}
import Outputable
import IOExts ( IORef, newIORef, readIORef, writeIORef )
\end{code}
-
%************************************************************************
%* *
\subsection{The main data type declarations}
%************************************************************************
%* *
\subsection{The main data type declarations}
@@
-63,7
+62,7
@@
in its @VarDetails@.
data Var
= Var {
varName :: Name,
data Var
= Var {
varName :: Name,
- realUnique :: Int#, -- Key for fast comparison
+ realUnique :: FastInt, -- Key for fast comparison
-- Identical to the Unique in the name,
-- cached here for speed
varType :: Type,
-- Identical to the Unique in the name,
-- cached here for speed
varType :: Type,