accessing
splitByDays

	| response spans |
	response := OrderedDictionary new.
	self timeSpansByDays doWithIndex: [ :span :i |
		response
			at: span asDate asString
			put: (self select: [ :message | span includes: (message created asDateAndTime)])
	].
	^ response