diff options
author | stuebinm | 2022-06-13 23:46:53 +0200 |
---|---|---|
committer | stuebinm | 2022-06-13 23:46:53 +0200 |
commit | da505622a045cb78770b0fb700ddc57a4d5ad349 (patch) | |
tree | 456f770cd530dbe71eb01dbcae779f3787965650 | |
parent | 0c3e2c500d181c673f0563e6f5bee49729f49b73 (diff) |
fix trainspotter (again)
Diffstat (limited to '')
-rw-r--r-- | flora/services/trainspotter.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/flora/services/trainspotter.scm b/flora/services/trainspotter.scm index 860f0ab..00e8d17 100644 --- a/flora/services/trainspotter.scm +++ b/flora/services/trainspotter.scm @@ -26,20 +26,20 @@ (print (format "the url's hash has changed to ~s!" newhash)) (let ([newfile (string-append storagedir "/" newhash)]) (do-process `(curl ,url "-o" ,newfile)) - (let ([diff (if oldhash - (let ([oldfile (string-append storagedir "/" oldhash)]) - (process-output->string `(zipcmp ,oldfile ,newfile))) - "")]) + (let ( ;[diff (if oldhash + ; (let ([oldfile (string-append storagedir "/" oldhash)]) + ; (process-output->string `(zipcmp ,oldfile ,newfile))) + ;"")] + ) (do-pipeline `((echo ,(format " Neuer hash ist ~a Link ist ~a -~a (~a) -" newhash url diff pretty-date)) +" newhash url pretty-date)) (mail "-s" "Ilztalbahn GTFS Update" "stuebinm@disroot.org" "-a" "From: trainspotter@flora.stuebinm.eu"))) |