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