From d9b81561e959d1ff603c3da18085f35508edcc67 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 11 May 2023 13:46:25 +0200
Subject: [PATCH] Improved printing of manually entered credit.

---
 src/brmember-parser.scm | 2 +-
 src/members-print.scm   | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/brmember-parser.scm b/src/brmember-parser.scm
index af1fd3e..396f9a9 100644
--- a/src/brmember-parser.scm
+++ b/src/brmember-parser.scm
@@ -117,7 +117,7 @@
 				      (let* ((fr (string-first+rest (car rec)))
 					     (amt (string->number (car fr)))
 					     (msg (cdr fr)))
-					(cons amt msg)))
+					(list amt "--" msg)))
 				    value)))
 	   ((nick)
 	    (let ((mr0 (brmember-sub-set mr output key (car value))))
diff --git a/src/members-print.scm b/src/members-print.scm
index cd4a954..e9124b1 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -87,7 +87,7 @@
 	  (body (map (lambda (k)
 		       (let ((v (ldict-ref info k)))
 			 (case k
-			   ((card desfire credit)
+			   ((card desfire)
 			    (list k 
 				  (table->string
 				   (map
@@ -95,6 +95,10 @@
 				      (list (car c) (cdr c)))
 				    v)
 				   #:col-border #t)))
+			   ((credit)
+			    (list k 
+				  (table->string v
+				   #:col-border #t)))
 			   ((suspend student member)
 			    (list k
 				  (table->string