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.

README.md

@@ -20,7 +20,7 @@ seuraavankaltaisella pätkällä:
  (branch "main")
  (introduction
   (make-channel-introduction
-   "3c7b52f0bf3615cba85466b139edceef9ae1d6e9"
+   "4a4d0add212aab3554689adb7971bc0b0db32d13"
    (openpgp-fingerprint
     "A0C9 1947 734F 076F 5F08 E9FF 257D 284A 2A1D 3A32"))))
 ```

src/Kululaskusilppuri/Types.hs

@@ -36,10 +36,16 @@ 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 BS.head bs of
+                                  -- 45 is the - character in ASCII/UTF-8
+                                  45 -> BS.tail bs
+                                  _ -> BS.cons 45 bs
 
 instance DefaultOrdered Kululasku where
     headerOrder _ = header [dateField, referenceField, submitterField, amountField, descriptionField]