cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-25 09:17:45 +01:00
Code Issues

- removed sorting of statuses when saving pagination.

Browse Source
This commit is contained in:
cage 2023-10-20 16:51:59 +02:00
parent 93b6fc8885
commit e380310d9d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/api-client.lisp
View File

@ -354,7 +354,7 @@ Returns nil if the user did not provided a server in the configuration file"
(defun update-pagination-statuses-so-far (statuses timeline folder (defun update-pagination-statuses-so-far (statuses timeline folder
&key &key
(event-priority program-events:+standard-event-priority+)) (event-priority program-events:+standard-event-priority+))
(loop for status in (nreverse (sort-id< statuses)) do (loop for status in statuses do
(let ((add-fetched-event (make-instance 'program-events:add-pagination-status-event (let ((add-fetched-event (make-instance 'program-events:add-pagination-status-event
:priority event-priority :priority event-priority
:status-id (tooter:id status) :status-id (tooter:id status)