X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcPat.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcPat.lhs;h=51d68bb9fd946a073ac5498616cf56f8708be74c;hb=20e39e0e07e4a8e9395894b2785d6675e4e3e3b3;hp=2d84f05036937291fb6235dcd000ec6bdb0ba84f;hpb=d7c402a3cedbe49345a34f2e58a3f3050638dcb4;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcPat.lhs b/ghc/compiler/typecheck/TcPat.lhs
index 2d84f05..51d68bb 100644
--- a/ghc/compiler/typecheck/TcPat.lhs
+++ b/ghc/compiler/typecheck/TcPat.lhs
@@ -42,7 +42,7 @@ import DataCon		( DataCon, dataConTyCon, isVanillaDataCon, dataConInstOrigArgTys
 import PrelNames	( eqStringName, eqName, geName, negateName, minusName, 
 			  integralClassName )
 import BasicTypes	( isBoxed )
-import SrcLoc		( Located(..), SrcSpan, noLoc, unLoc, getLoc )
+import SrcLoc		( Located(..), SrcSpan, noLoc, unLoc )
 import Maybes		( catMaybes )
 import ErrUtils		( Message )
 import Outputable