X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcoreSyn%2FCoreLift.lhs;h=ecae1733c40a356f334a0c12c794c1d140dcc776;hb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;hp=90f76565a519c492edce46682dd2bc5d5af811c1;hpb=b8875f2f7f596482228645b9751f8f9c592a84c5;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreLift.lhs b/ghc/compiler/coreSyn/CoreLift.lhs
index 90f7656..ecae173 100644
--- a/ghc/compiler/coreSyn/CoreLift.lhs
+++ b/ghc/compiler/coreSyn/CoreLift.lhs
@@ -26,7 +26,7 @@ import Id		( idType, mkSysLocal,
 			  GenId{-instances-}
 			)
 import PrelInfo		( liftDataCon, mkLiftTy, statePrimTyCon )
-import TyCon		( TyCon{-instance-} )
+import TyCon		( isBoxedTyCon, TyCon{-instance-} )
 import Type		( maybeAppDataTyCon, eqTy )
 import UniqSupply	( getUnique, getUniques, splitUniqSupply, UniqSupply )
 import Util		( zipEqual, zipWithEqual, assertPanic, panic )
@@ -34,7 +34,6 @@ import Util		( zipEqual, zipWithEqual, assertPanic, panic )
 infixr 9 `thenL`
 
 updateIdType = panic "CoreLift.updateIdType"
-isBoxedTyCon = panic "CoreLift.isBoxedTyCon"
 \end{code}
 
 %************************************************************************