-- | Creates a singleton 'Event'.
mkEvent :: EvAtom -> Event
mkEvent = Event . uncurry Map.singleton . evPair
mkEvent :: EvAtom -> Event
mkEvent = Event . uncurry Map.singleton . evPair
mkEvent = Event . uncurry Map.singleton . evPair