cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
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 (sort (file-system-fold enter? leaf down up skip error
'() ; Start with an empty alist '() ; 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) (lambda (a b)
;; Sort so that the recent dumps are first ;; Sort so that the recent dumps are first
(string>? (car a) (car b))))) (string>? (car a) (car b)))))