urces → TChan Action → TChan T.Text → IO ()
dispatchFromChan resources action response =
dispatch r Traits = traits (baseEvents r, modEvents r) (baseDecisions r, modDecisions r)
dispatch r Traits = traits (baseEvents r, modEvents r) (baseDecisions r, modDecisions r)