diff options
| author | EuAndreh <eu@euandre.org> | 2020-12-02 13:46:05 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2020-12-02 13:46:05 -0300 |
| commit | fbb94b6b081e5c4c6ce63880bfe54fddbf87dfcb (patch) | |
| tree | c541f0b80fa66389b04a046c7c4198ba2cd894ca | |
| parent | Rename container -> scripts/with-container.sh (diff) | |
| download | server-fbb94b6b081e5c4c6ce63880bfe54fddbf87dfcb.tar.gz server-fbb94b6b081e5c4c6ce63880bfe54fddbf87dfcb.tar.xz | |
vps.scm: Inform the name of the downloaded file
| -rw-r--r-- | sync/vps.scm | 4 |
1 files 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> |