2 tcGRHSs _:_ _forall_ [s] =>
HsExpr.HsMatchContext Name.Name
-> RnHsSyn.RenamedGRHSs
- -> TcMonad.TcType
- -> TcMonad.TcM s (TcHsSyn.TcGRHSs, Inst.LIE) ;;
+ -> TcType.TcType
+ -> TcMonad.TcM s (TcHsSyn.TcGRHSs, TcMonad.LIE) ;;
3 tcMatchesFun _:_ _forall_ [s] =>
- [(Name.Name,Var.Id)]
- -> Name.Name
- -> TcMonad.TcType
+ Name.Name
+ -> TcType.TcType
-> [RnHsSyn.RenamedMatch]
- -> TcMonad.TcM s ([TcHsSyn.TcMatch], Inst.LIE) ;;
+ -> TcMonad.TcM s ([TcHsSyn.TcMatch], TcMonad.LIE) ;;