From fbb94b6b081e5c4c6ce63880bfe54fddbf87dfcb Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 2 Dec 2020 13:46:05 -0300
Subject: vps.scm: Inform the name of the downloaded file

---
 sync/vps.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sync/vps.scm b/sync/vps.scm
index 5ab0ff6..96cb711 100644
--- a/sync/vps.scm
+++ b/sync/vps.scm
@@ -227,11 +227,11 @@
     string-append
     (map (lambda (data)
            (let ((status (if (equal? "0" (assoc-ref data #:status)) "✅" "❌"))
-                 (file (string-append name "/" (assoc-ref data #:filename)))
+                 (file (string-append name "-" (assoc-ref data #:filename)))
                  (href (assoc-ref data #:href)))
              (string-append
               "<li>
-                 <a href=\"" href "\">
+                 <a href=\"" href "\" download=" file ">
                    " status "
                    <pre>" file "</pre>
                  </a>
-- 
cgit v1.2.3