Refactor parser for current account statement

1 files changed, 4 insertions, 3 deletions

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