civodul pushed a commit to branch master
in repository guix-artwork.
commit 75af25bf40f5682427f33969e15066ba6adb6d8b
Author: Ludovic Courtès <[email protected]>
Date: Sat Jul 29 17:27:21 2017 +0200
website: utils: 'paginate' correctly handles the case with zero items.
* website/apps/base/utils.scm (paginate): Handle case when GROUPED-DATA
is empty.
---
website/apps/base/utils.scm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm
index 39e4e82..e081652 100644
--- a/website/apps/base/utils.scm
+++ b/website/apps/base/utils.scm
@@ -27,6 +27,7 @@
#:use-module (apps base types)
#:use-module (haunt page)
#:use-module (ice-9 i18n)
+ #:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:export (gnu-url
guix-git-tree-url
@@ -175,7 +176,11 @@
(let* ((page-number (cons "page-number" 1))
(path (path-join base-path "index.html"))
(items
- (cons "items" (first grouped-data)))
+ (match grouped-data
+ (()
+ (cons "items" '()))
+ ((head _ ...)
+ (cons "items" head))))
(new-context
(append context
(list items page-number total-pages))))
