X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcMatches.lhs;h=64a45058c3d5b9892d3b6905537369a176d3ef49;hb=eee2ba29efc7f7f9a0bb3a2696ff6f3b8b46b18b;hp=dd2c4a852b2f92965dc104617fe4d473c73cf5e7;hpb=e758d8d36ca85fee90f37acf4a67be51c42afab0;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index dd2c4a8..64a4505 100644
--- a/ghc/compiler/typecheck/TcMatches.lhs
+++ b/ghc/compiler/typecheck/TcMatches.lhs
@@ -48,7 +48,7 @@ import BasicTypes	( RecFlag(..) )
 import VarSet
 import Var		( Id )
 import Bag
-import Util		( isSingleton, lengthExceeds, notNull, zipEqual )
+import Util		( isSingleton, notNull, zipEqual )
 import Outputable
 
 import List		( nub )