[project @ 1998-02-03 17:49:21 by simonm]

[ghc-hetmet.git] / ghc / compiler / deSugar / Check.lhs

diff --git a/ghc/compiler/deSugar/Check.lhs b/ghc/compiler/deSugar/Check.lhs
index c4901cb..2eccc3e 100644 (file)
--- a/ghc/compiler/deSugar/Check.lhs
+++ b/ghc/compiler/deSugar/Check.lhs
@@ -9,21 +9,11 @@
 module Check ( check , ExhaustivePat, WarningPat, BoxedString(..) ) where
 
 
-import {-# SOURCE #-} DsExpr  ( dsExpr  )
-import {-# SOURCE #-} DsBinds ( dsBinds )
-
 import HsSyn           
-import TcHsSyn         ( TypecheckedPat, 
-                          TypecheckedMatch,
-                         TypecheckedHsBinds, 
-                          TypecheckedHsExpr    
-                        )
+import TcHsSyn         ( TypecheckedPat )
 import DsHsSyn         ( outPatType ) 
 import CoreSyn         
 
-import DsMonad         ( DsM, DsMatchContext(..),
-                         DsMatchKind(..)
-                        )
 import DsUtils         ( EquationInfo(..),
                          MatchResult(..),
                          EqnNo,
@@ -32,7 +22,6 @@ import DsUtils                ( EquationInfo(..),
                        )
 import Id              ( idType,
                          Id,
-                         idName,
                           isTupleCon,                     
                           getIdArity
                        )