[project @ 1996-12-19 09:10:02 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deforest / DefExpr.lhs

diff --git a/ghc/compiler/deforest/DefExpr.lhs b/ghc/compiler/deforest/DefExpr.lhs
index 0c99fc4..d5cd03c 100644 (file)
--- a/ghc/compiler/deforest/DefExpr.lhs
+++ b/ghc/compiler/deforest/DefExpr.lhs
@@ -22,7 +22,7 @@
 > import CmdLineOpts   ( SwitchResult, switchIsOn )
 > import CoreUnfold    ( Unfolding(..) )
 > import CoreUtils     ( mkValLam, unTagBinders, coreExprType )
-> import Id            ( applyTypeEnvToId, getIdUnfolding, isTopLevId, Id,
+> import Id            ( applyTypeEnvToId, getIdUnfolding, Id,
 >                        isInstId_maybe
 >                      )
 > import Inst          -- Inst(..)