Make the dumps page work when dumps is a symlink

2020-03-01 16:51:10 +00:00 · 2020-03-01 16:51:10 +00:00 · c59d90c26b
commit c59d90c26b
parent b19227c086
1 changed files with 8 additions and 1 deletions
--- 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)))))