From c59d90c26be0ccf13d82afd15a65e0b9b54131e1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 1 Mar 2020 16:51:10 +0000 Subject: [PATCH] Make the dumps page work when dumps is a symlink --- guix-data-service/web/dumps/controller.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/guix-data-service/web/dumps/controller.scm b/guix-data-service/web/dumps/controller.scm index 8f70837..70b6fe9 100644 --- a/guix-data-service/web/dumps/controller.scm +++ b/guix-data-service/web/dumps/controller.scm @@ -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)))))