nts r) (S.fromList $ localisations r)
dispatch r Strings = strings (baseEvents r, modEvents r) (baseDecisions r, modDecisions r)
dispatch r Traits = tr
dispatch :: Resources → Action → T.Text
dispatch r Localisations = locals (S.fromList $ baseEvents r <> modEvents r) (S.fromList $ localisations r)
dispatch r Localisations = locals (S.fromList $ baseEvents r <> modEvents r) (S.fromList $ localisations r)