From da505622a045cb78770b0fb700ddc57a4d5ad349 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Mon, 13 Jun 2022 23:46:53 +0200 Subject: fix trainspotter (again) --- flora/services/trainspotter.scm | 12 ++++++------ 1 file 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"))) -- cgit v1.2.3