
playMuFourPlayersWithUpdates ::
     (MonadRandom m, Bind m)
  => Updates m NOfFour (Tuple4 Score)
  -> Dependencies m NOfFour
  -> EndCondition
  -> m (Tuple4 Score)
playMuFourPlayersWithUpdates (Updates dealUpdate biddingResultUpdate trickWinnerUpdate scoresUpdate) (Dependencies getBid getViceTrump getChiefTrump getPartner getCard) endCondition =
  playMuWithUpdate scoresUpdate getCardPositions stages endCondition OneOfFour