X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMkIface.lhs;h=508ec26d1ce0a954e9a9a4621c43caf7dc8110ee;hb=3376344b1351049aeca92f27b216ade8ea9af243;hp=8cbf4843edeaa5da0b9578a69190aefebc3880d5;hpb=972d6442ee3a6ee0a5fa20655d882e0041646892;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 8cbf484..508ec26 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -50,7 +50,7 @@ import TyCon		( TyCon, getSynTyConDefn, isSynTyCon, isNewTyCon, isAlgTyCon, tyCo
 			)
 import Class		( classExtraBigSig, classTyCon, DefMeth(..) )
 import FieldLabel	( fieldLabelType )
-import Type		( splitSigmaTy, tidyTopType, deNoteType, namesOfDFunHead )
+import TcType		( tcSplitSigmaTy, tidyTopType, deNoteType, namesOfDFunHead )
 import SrcLoc		( noSrcLoc )
 import Outputable
 import Module		( ModuleName )
@@ -160,7 +160,7 @@ ifaceTyCls (AClass clas) so_far
 	= ASSERT(sel_tyvars == clas_tyvars)
 	  ClassOpSig (getName sel_id) def_meth' (toHsType op_ty) noSrcLoc
 	where
-	  (sel_tyvars, _, op_ty) = splitSigmaTy (idType sel_id)
+	  (sel_tyvars, _, op_ty) = tcSplitSigmaTy (idType sel_id)
 	  def_meth' = case def_meth of
 			 NoDefMeth  -> NoDefMeth
 			 GenDefMeth -> GenDefMeth