[project @ 1998-03-19 23:54:49 by simonpj]

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

diff --git a/ghc/compiler/deSugar/Match.lhs b/ghc/compiler/deSugar/Match.lhs
index 064ac86..d7c3bdb 100644 (file)
--- a/ghc/compiler/deSugar/Match.lhs
+++ b/ghc/compiler/deSugar/Match.lhs
@@ -32,7 +32,6 @@ import Id             ( idType, dataConFieldLabels,
 import MatchCon                ( matchConFamily )
 import MatchLit                ( matchLiterals )
 import Name            ( Name {--O only-} )
-import PprType         ( GenType{-instance-}, GenTyVar{-ditto-} )        
 import PrelVals                ( pAT_ERROR_ID )
 import Type            ( isUnpointedType, splitAlgTyConApp,
                          Type