Fixes logging to not cause out of control costs

src/clj/user.fiddle

@@ -184,7 +184,7 @@
 
 
   (auto-ap.datomic/pull-id (dc/db conn) [:client/code "NGRV"])
-  
+
   (->> (dc/q '[:find (pull ?ba [:bank-account/name :bank-account/code {:client/_bank-accounts [:client/code]}])
                :in $ $$
                :where
@@ -198,8 +198,4 @@
        (map (fn [[ba]]
               (println ba)
               [(-> ba :client/_bank-accounts :client/code) (:bank-account/code ba) (:bank-account/name ba)]))
-       ( #(clojure.data.csv/write-csv *out*  % :separator \tab)))
-
-
-  )
-
+       (#(clojure.data.csv/write-csv *out*  % :separator \tab))))