summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2022-06-13 23:46:53 +0200
committerstuebinm2022-06-13 23:46:53 +0200
commitda505622a045cb78770b0fb700ddc57a4d5ad349 (patch)
tree456f770cd530dbe71eb01dbcae779f3787965650
parent0c3e2c500d181c673f0563e6f5bee49729f49b73 (diff)
fix trainspotter (again)
-rw-r--r--flora/services/trainspotter.scm12
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")))