private class EventComparator
	super Comparator
	redef type COMPARED: EventInfo[nullable Object]
	redef fun compare(a, b) do return a.start <=> b.start
end