[project @ 1999-11-09 11:37:38 by simonmar]

Fixes to Simon's lit-lit pattern commit

1 files changed, 2 insertions, 16 deletions

diff --git a/ghc/compiler/deSugar/Check.lhs b/ghc/compiler/deSugar/Check.lhs
index cefba7e2e8..821332a481 100644
--- a/ghc/compiler/deSugar/Check.lhs
+++ b/ghc/compiler/deSugar/Check.lhs
@@ -28,24 +28,10 @@ import Name             ( Name, mkLocalName, getOccName, isDataSymOcc, getName,
 import Type		( Type, splitAlgTyConApp, mkTyVarTys,
                           isUnboxedType, splitTyConApp_maybe
 			)
-import TysPrim		( intPrimTy, 
-                          charPrimTy, 
-                          floatPrimTy, 
-                          doublePrimTy,
-			  addrPrimTy, 
-                          wordPrimTy
-			)
 import TysWiredIn	( nilDataCon, consDataCon, 
-                          mkTupleTy, tupleCon,
-			  mkUnboxedTupleTy, unboxedTupleCon,
                           mkListTy, 
-                          charTy, charDataCon, 
-                          intTy, intDataCon,
-			  floatTy, floatDataCon, 
-                          doubleTy, doubleDataCon, 
-                          addrTy, addrDataCon,
-                          wordTy, wordDataCon,
-			  stringTy
+                          mkTupleTy, tupleCon,
+			  mkUnboxedTupleTy, unboxedTupleCon
 			)
 import Unique		( unboundKey )
 import TyCon            ( tyConDataCons )