11 lines
258 B
Smalltalk
11 lines
258 B
Smalltalk
|
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
|