From fd81238359c3df0590f6337d0e4aa7da21f7af92 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Sat, 11 Jan 2025 21:53:04 +0200
Subject: [PATCH] Korjaa vientien suunta Kitsaaseen tuodessa
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Kululaskut.fi kertoo maksettavan määrän ja Kitsas odottaa pankkitilille
tulevaa määrää, joten viennit menivät väärin päin. Kuluista siirtyi
rahaa pankkitilille ja tuloista pois sieltä. Tällä muutoksella kootut
CSV-tiedostot ovat Kitsaan odottamassa muodossa.
---
 src/Kululaskusilppuri/Types.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Kululaskusilppuri/Types.hs b/src/Kululaskusilppuri/Types.hs
index ecc7482..7c29b9e 100644
--- a/src/Kululaskusilppuri/Types.hs
+++ b/src/Kululaskusilppuri/Types.hs
@@ -36,10 +36,15 @@ instance ToNamedRecord Kululasku where
     toNamedRecord Kululasku {..} = namedRecord
         [ referenceField .= referenceNumber 
         , submitterField .= submitter
-        , amountField .= amount
+         -- Kitsas reads this as money to our bank account and kululaskut.fi
+         -- reports what we need to pay. Negating it makes them understand each other
+        , amountField .= negateBS amount
         , descriptionField .= description
         , dateField .= paymentDate
         ]
+            where negateBS bs = case LC8.head bs of
+                                  '-' -> LC8.tail bs
+                                  _ -> LC8.cons '-' bs
 
 instance DefaultOrdered Kululasku where
     headerOrder _ = header [dateField, referenceField, submitterField, amountField, descriptionField]