[nongnu] elpa/csv2ledger 356e833e9d 169/190: Make c2l--has-header a bit more functional.

[ELPA Syncer]

branch: elpa/csv2ledger
commit 356e833e9deca7d0597840d9fa2c7ce618ea96df
Author: Joost Kremers <joostkremers@fastmail.com>
Commit: Joost Kremers <joostkremers@fastmail.com>

    Make c2l--has-header a bit more functional.
---
 csv2ledger.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/csv2ledger.el b/csv2ledger.el
index 07fcd0c033..21c3046914 100644
--- a/csv2ledger.el
+++ b/csv2ledger.el
@@ -435,9 +435,9 @@ one of these contains something that looks like an amount."
   (save-mark-and-excursion
     (goto-char (point-min))
     (let* ((transaction (c2l--get-current-row)))
-      (not (or (c2l--amount-p (alist-get 'amount transaction ""))
-               (c2l--amount-p (alist-get 'credit transaction ""))
-               (c2l--amount-p (alist-get 'debit transaction "")))))))
+      (not (seq-some (lambda (field)
+                       (c2l--amount-p (alist-get field transaction "")))
+                     '(amount credit debit))))))
 
 (defun c2l--get-results-buffer ()
   "Create a results buffer for conversion.