diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-09-03 16:04:29 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-09-03 16:04:29 +0200 |
| commit | 1e44045e190d28f8cd3e071abf583619fe1a327b (patch) | |
| tree | e893f895cb618ebac068f2e73ccb7c64f6bd483b | |
| parent | ce4d9aa73c9afc670fc9aaadb5c7761cfc4ecc6a (diff) | |
recent-bugs: Simplify.
| -rw-r--r-- | mumi/messages.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 5a14f6a..7a29739 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -316,15 +316,7 @@ of message parts." #:max 50 #:attributes `((package string-prefix "guix") - (@cdate >= ,(let ((this-hour - (date->time-utc (let ((now (current-date))) - (make-date 0 0 0 (date-hour now) - (date-day now) - (date-month now) - (date-year now) 0)))) - (one-month - (make-time time-duration 0 (* 60 60 24 30)))) - (time-second (subtract-duration this-hour one-month))))))) + (@cdate >= ,(time-second (ago 'months 1)))))) (unique (delete-duplicates (filter-map (lambda (item) (assoc-ref item "id")) |