Handle all bank loading gracefully.

src/members-payments.scm

@@ -42,6 +42,7 @@
 	 (chicken sort)
 	 (chicken process-context)
 	 (chicken pathname)
+	 (chicken condition)
 	 bank-account
 	 member-record
 	 members-base
@@ -49,7 +50,8 @@
 	 dictionary
 	 member-fees
 	 period
-	 configuration)
+	 configuration
+	 utils)
 
  ;; Exchange rates
  (define exchange-rates-lookup-table
@@ -103,9 +105,15 @@
 
  ;; Reads the payments
  (define (load-accounts-list apikeys)
-   (map (compose car string-split)
-	(read-lines
-	 (open-input-file apikeys))))
+   (call/cc
+    (lambda (ret)
+      (with-exception-handler
+       (lambda (ex)
+	 (ret #f))
+       (lambda ()
+	 (map (compose car string-split)
+	      (read-lines
+	       (open-input-file apikeys))))))))
 
  ;; Loads all accounts - it expects .csv files in given directory.
  (define (load-accounts accounts-list dir)
@@ -117,13 +125,17 @@
  ;; accounts and processes transactions.
  (define (members-payments-process mb apikeys-file dir)
    (if apikeys-file
-       (let* ((accounts (load-accounts
-			 (load-accounts-list apikeys-file)
-			 dir)))
-	 (map member-sort-payments
-	      (foldl members-payments-process-bank
-		     mb
-		     accounts)))
+       (let* ((acc-list (load-accounts-list apikeys-file))
+	      (accounts (if acc-list (load-accounts acc-list dir) #f)))
+	 (if accounts
+	     (map member-sort-payments
+		  (foldl members-payments-process-bank
+			 mb
+			 (filter identity
+				 accounts)))
+	     (let ()
+	       (print "Warning: no accounts loaded!")
+	       mb)))
        mb))
 
  ;; Adds all balances - payments are converted to CZK in member-payments-total