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, 2 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs
index 2438203..403b78f 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -16,6 +16,7 @@ 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.SavingsAccountCsv qualified 18import Import.Ing.SavingsAccountCsv qualified
19import Import.Ing.CurrentAccountCsv qualified
19import System.IO (IOMode (ReadMode), withFile) 20import System.IO (IOMode (ReadMode), withFile)
20import Text.Pretty.Simple (pPrint) 21import Text.Pretty.Simple (pPrint)
21 22
@@ -93,7 +94,7 @@ main = do
93 let filename = "/home/rutgerbrf/Code/P/wayligmative/test.csv" 94 let filename = "/home/rutgerbrf/Code/P/wayligmative/test.csv"
94 putStrLn $ "Reading " ++ filename 95 putStrLn $ "Reading " ++ filename
95 withFile filename ReadMode $ \h -> do 96 withFile filename ReadMode $ \h -> do
96 entries <- Import.Ing.SavingsAccountCsv.readFile h 97 entries <- Import.Ing.CurrentAccountCsv.readFile h
97 pPrint entries 98 pPrint entries
98 99
99-- d <- M.defaultMain theApp initialState 100-- d <- M.defaultMain theApp initialState