From b051fedcfdf9bd2551012eb6aae5ca5ce5827607 Mon Sep 17 00:00:00 2001 From: kitzman Date: Sun, 11 Jul 2021 20:36:36 +0300 Subject: [PATCH] fixed behaviour in case failed retrieval (#15) --- lieferhund/processor.scm | 2 +- lieferhund/proto.scm | 12 +++++------- 2 files changed, 6 insertions(+), 8 deletions(-) diff --git a/lieferhund/processor.scm b/lieferhund/processor.scm index fc23f6e..cee58fa 100644 --- a/lieferhund/processor.scm +++ b/lieferhund/processor.scm @@ -93,7 +93,7 @@ conf (filter (match-lambda - ((conf-entry news-item) + ((conf-entry news-items) (eq? (config-entry-type conf-entry) feed-type)) (_ #f)) pair-entries) diff --git a/lieferhund/proto.scm b/lieferhund/proto.scm index 3366d53..78185cc 100644 --- a/lieferhund/proto.scm +++ b/lieferhund/proto.scm @@ -74,17 +74,15 @@ (retrieved-data (and<= retrieval-fn config-entry)) (parsed-entries (and<=> parse-fn retrieved-data)) (new-items (if (equal? retrieved-data #f) - '() + '() (database-insert-entries! db conf config-entry parsed-entries)))) (if (or (eq? retrieval-fn #f) (eq? parse-fn #f)) (begin (format #t "unable to find the configured feed type!\n") #f) - (if (eq? retrieved-data #f) - (begin + (begin + (if (eq? retrieved-data #f) (format #t "failed to retrieve data!\n") - #f) - (begin - (format #t "new items: ~a\n" (length new-items)) - `(,config-entry ,new-items)))))) + (format #t "new items: ~a\n" (length new-items))) + `(,config-entry ,new-items)))))