From 5493329b2eed7e151f4a323c108caad2253b08bb Mon Sep 17 00:00:00 2001
From: Rutger Broekhoff
Date: Sat, 22 Mar 2025 14:52:35 +0100
Subject: Refactor parser for current account statement

---
 app/Main.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 403b78f..f5140f2 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -15,8 +15,9 @@ import Brick.Widgets.Core
   )
 import Brick.Widgets.Dialog qualified as D
 import Graphics.Vty qualified as V
-import Import.Ing.SavingsAccountCsv qualified
 import Import.Ing.CurrentAccountCsv qualified
+import Import.Ing.CurrentAccountCsv2 qualified
+import Import.Ing.SavingsAccountCsv qualified
 import System.IO (IOMode (ReadMode), withFile)
 import Text.Pretty.Simple (pPrint)
 
@@ -91,10 +92,10 @@ theApp =
 
 main :: IO ()
 main = do
-  let filename = "/home/rutgerbrf/Code/P/wayligmative/test.csv"
+  let filename = "/home/rutgerbrf/Code/P/wayligmative/test3.csv"
   putStrLn $ "Reading " ++ filename
   withFile filename ReadMode $ \h -> do
-    entries <- Import.Ing.CurrentAccountCsv.readFile h
+    entries <- Import.Ing.CurrentAccountCsv2.readFile h
     pPrint entries
 
 --  d <- M.defaultMain theApp initialState
-- 
cgit v1.2.3