From: simonpj <unknown>
Date: Fri, 8 Jul 2005 19:49:24 +0000 (+0000)
Subject: [project @ 2005-07-08 19:49:24 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~393
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8dfa350233e5128c22cb455ba33025c5dcea1dd7;p=ghc-hetmet.git

[project @ 2005-07-08 19:49:24 by simonpj]
Revert accidental commit (merge to stable if bogus commit was merged)
---

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index c08dc7a..8366dad 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -15,7 +15,7 @@ import TcClassDcl	( tcMethodBind, mkMethodBind, badMethodErr,
 import TcRnMonad       
 import TcMType		( tcSkolSigType, checkValidTheta, checkValidInstHead, instTypeErr, 
 			  checkAmbiguity, SourceTyCtxt(..) )
-import TcType		( mkClassPred, tyVarsOfType, tcSplitInstHeadTy_maybe,
+import TcType		( mkClassPred, tyVarsOfType, 
 			  tcSplitSigmaTy, tcSplitDFunHead, mkTyVarTys,
 			  SkolemInfo(InstSkol), tcSplitDFunTy, pprClassPred )
 import Inst		( tcInstClassOp, newDicts, instToId, showLIE,