summaryrefslogtreecommitdiffstats
path: root/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs
index f5140f2..7b4551a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -16,7 +16,6 @@ import Brick.Widgets.Core
16import Brick.Widgets.Dialog qualified as D 16import Brick.Widgets.Dialog qualified as D
17import Graphics.Vty qualified as V 17import Graphics.Vty qualified as V
18import Import.Ing.CurrentAccountCsv qualified 18import Import.Ing.CurrentAccountCsv qualified
19import Import.Ing.CurrentAccountCsv2 qualified
20import Import.Ing.SavingsAccountCsv qualified 19import Import.Ing.SavingsAccountCsv qualified
21import System.IO (IOMode (ReadMode), withFile) 20import System.IO (IOMode (ReadMode), withFile)
22import Text.Pretty.Simple (pPrint) 21import Text.Pretty.Simple (pPrint)
@@ -95,7 +94,7 @@ main = do
95 let filename = "/home/rutgerbrf/Code/P/wayligmative/test3.csv" 94 let filename = "/home/rutgerbrf/Code/P/wayligmative/test3.csv"
96 putStrLn $ "Reading " ++ filename 95 putStrLn $ "Reading " ++ filename
97 withFile filename ReadMode $ \h -> do 96 withFile filename ReadMode $ \h -> do
98 entries <- Import.Ing.CurrentAccountCsv2.readFile h 97 entries <- Import.Ing.CurrentAccountCsv.readFile h
99 pPrint entries 98 pPrint entries
100 99
101-- d <- M.defaultMain theApp initialState 100-- d <- M.defaultMain theApp initialState