guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Make the dumps page work when dumps is a symlink

Browse source
This commit is contained in:
Christopher Baines 2020-03-01 16:51:10 +00:00
parent b19227c086
commit c59d90c26b
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/dumps/controller.scm
View file

@ -77,7 +77,14 @@ reaches the Guix Data Service"))
(sort (file-system-fold enter? leaf down up skip error
'() ; Start with an empty alist
(%config 'dumps-dir))
(%config 'dumps-dir)
(lambda args
;; Use stat, then fall back to lstat if that fails
(catch #t
(lambda ()
(apply stat args))
(lambda _
(apply lstat args)))))
(lambda (a b)
;; Sort so that the recent dumps are first
(string>? (car a) (car b)))))