its (baseEvents r, modEvents r) (baseDecisions r, modDecisions r)

dispatchFromChan :: Res
dispatch r Strings = strings (baseEvents r, modEvents r) (baseDecisions r, modDecisions r)
dispatch r Strings = strings (baseEvents r, modEvents r) (baseDecisions r, modDecisions r)