From ad2ff287145e59b09b79f16d772e54d3fcb1b3b3 Mon Sep 17 00:00:00 2001
From: "Alain M. Lafon" <alain@200ok.ch>
Date: Tue, 10 May 2022 18:36:34 +0200
Subject: [PATCH] Beginning to fix `make check`

---
 src/easy/dctd.cljs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/easy/dctd.cljs b/src/easy/dctd.cljs
index 1111f72..b109206 100644
--- a/src/easy/dctd.cljs
+++ b/src/easy/dctd.cljs
@@ -101,6 +101,7 @@
     (:source evt)))
 
 (defn prepare-booking [{:keys [mappings] :as evt} booking]
+  ;; (println booking)
   (-> booking
       (set/rename-keys {:contractual-partner :description
                         :transaction-date :iso-date})
@@ -121,6 +122,11 @@
        :csvs
        (map (partial drop 1))
        (apply concat)
+
+       (remove #{[nil]})
+
+       ;; (remove (fn [[v _]] (or (nil? v) (empty? v))))
+
        (map (partial zipmap (:header evt)))
        (map (partial prepare-booking evt))
        (map drop-boring)