From 1e44045e190d28f8cd3e071abf583619fe1a327b Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 3 Sep 2018 16:04:29 +0200 Subject: recent-bugs: Simplify. --- mumi/messages.scm | 10 +--------- 1 file changed, 1 insertion(+), 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")) -- cgit v1.2.3