1 files changed, 2 insertions(+), 1 deletions(-)

M konta

@@ 30,7 30,8 @@
             ;; (pretty-print (%payee->category))
             ;; (pretty-print (assoc 'default (%payee->category)))
             ;; (pretty-print (%account-name))
-            (pretty-print (map woob-entry->beancount-entry (parse-woob-csv csv-path))))))))
+            ;; (pretty-print (map woob-entry->beancount-entry (parse-woob-csv csv-path)))
+            (map (lambda (woob-entry) (format #t "~a" (woob-entry->beancount-entry woob-entry))) (parse-woob-csv csv-path)))))))
 
 (define (print-help)
   (format #t "Help~%"))