Korjaa vientien suunta Kitsaaseen tuodessa

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

@@ -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]