diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-16 13:19:28 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-16 13:19:28 +0100 |
| commit | feafd57882f73c28149b159e0b6b6ee50ce99bc6 (patch) | |
| tree | 6ea591111e06a9660d558d836a38ad359c84c1ea | |
| parent | 26c29bd09bb13578d0efed97b0e9303c26ac5e09 (diff) | |
| download | nar-herder-feafd57882f73c28149b159e0b6b6ee50ce99bc6.tar nar-herder-feafd57882f73c28149b159e0b6b6ee50ce99bc6.tar.gz | |
Guard against recent-changes being null
| -rw-r--r-- | nar-herder/recent-changes.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/nar-herder/recent-changes.scm b/nar-herder/recent-changes.scm index 3b53d18..ccfff93 100644 --- a/nar-herder/recent-changes.scm +++ b/nar-herder/recent-changes.scm @@ -169,7 +169,9 @@ #:unwind? #t) (#f (loop after '())) (recent-changes - (loop (assq-ref (last recent-changes) - 'datetime) - recent-changes)))))))) + (if (null? recent-changes) + (loop after last-processed-recent-changes) + (loop (assq-ref (last recent-changes) + 'datetime) + recent-changes))))))))) |