[project @ 2004-11-30 14:28:02 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUtils.lhs

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 9ef4549..043be8e 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -41,7 +41,7 @@ import GLAEXTS                -- For `xori`
 
 import CoreSyn
 import PprCore         ( pprCoreExpr )
-import Var             ( Var, isId, isTyVar )
+import Var             ( Var )
 import VarEnv
 import Name            ( hashName )
 import Packages                ( isDllName )
@@ -62,8 +62,7 @@ import Type           ( Type, mkFunTy, mkForAllTy, splitFunTy_maybe,
                          splitFunTy,
                          applyTys, isUnLiftedType, seqType, mkTyVarTy,
                          splitForAllTy_maybe, isForAllTy, splitRecNewType_maybe, 
-                         splitTyConApp_maybe, eqType, funResultTy, applyTy,
-                         funResultTy, applyTy
+                         splitTyConApp_maybe, eqType, funResultTy, applyTy
                        )
 import TyCon           ( tyConArity )
 -- gaw 2004