unitAuraAdd :: (WorldObject, String) -> Event