blob: 8b1be23c654ead3c3c6e966fb2ed1ab8a608dce7 (
about) (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
open Rdcapsis.Prelude
let () =
let ams_tz = Time_ns.Zone.find_exn "Europe/Amsterdam" in
let prim_txs =
In_channel.with_file ~binary:true "test.csv"
~f:(Rdcapsis.Ingcsv.read_channel ~ams_tz)
|> Result.unwrap
in
let euc_id = "EUC" in
let ledger =
List.map_result ~f:(Rdcapsis.Convert.les_from_current_acc euc_id) prim_txs
|> Result.unwrap |> List.concat
in
print_endline (Sexp.to_string_hum ([%sexp_of: Rdcapsis.Ledger.t] ledger))
|
