diff options
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"))) |