module TcDefaults ( tcDefaults ) where
-import Ubiq
+IMP_Ubiq()
import HsSyn ( DefaultDecl(..), MonoType,
HsExpr, HsLit, ArithSeqInfo, Fake, InPat)
import RnHsSyn ( RenamedDefaultDecl(..) )
import TcHsSyn ( TcIdOcc )
-import TcMonad
+import TcMonad hiding ( rnMtoTcM )
import Inst ( InstOrigin(..) )
import TcEnv ( tcLookupClassByKey )
import TcMonoType ( tcMonoType )
import TcSimplify ( tcSimplifyCheckThetas )
-import PrelInfo ( intTy, doubleTy, unitTy )
+import TysWiredIn ( intTy, doubleTy, unitTy )
import Unique ( numClassKey )
import Util
\end{code}
-- We only care about whether it worked or not
tcLookupClassByKey numClassKey `thenNF_Tc` \ num ->
- tcSimplifyCheckThetas DefaultDeclOrigin
- [ (num, ty) | ty <- tau_tys ] `thenTc` \ _ ->
+ tcSimplifyCheckThetas
+ [ (num, ty) | ty <- tau_tys ] `thenTc_`
returnTc tau_tys