X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcInstDcls.lhs;h=238e3fd58a17971cb499d6f67f5d8fab4149361f;hb=ca5a4a480d10d61e5b7a52eb4d556e8b8c33e69d;hp=3ea432f2a073a558ffe437d9e1e9b67895f509bb;hpb=f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index 3ea432f..238e3fd 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -32,7 +32,7 @@ import TcHsSyn		( TcIdOcc(..), TcHsBinds(..),
 			  mkHsDictLam, mkHsDictApp )
 
 
-import TcMonad
+import TcMonad		hiding ( rnMtoTcM )
 import GenSpecEtc	( checkSigTyVars )
 import Inst		( Inst, InstOrigin(..), InstanceMapper(..),
 			  newDicts, newMethod, LIE(..), emptyLIE, plusLIE )
@@ -64,7 +64,7 @@ import Class		( GenClass, GenClassOp,
 import Id		( GenId, idType, isDefaultMethodId_maybe )
 import ListSetOps	( minusList )
 import Maybes 		( maybeToBool, expectJust )
-import Name		( getLocalName, origName, nameOf )
+import Name		( getLocalName, origName, nameOf, Name{--O only-} )
 import PrelVals		( nO_EXPLICIT_METHOD_ERROR_ID )
 import PrelMods		( pRELUDE )
 import PprType		( GenType, GenTyVar, GenClass, GenClassOp, TyCon,