diff options
Diffstat (limited to 'app/Main.hs')
-rw-r--r-- | app/Main.hs | 7 |
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 | |||
15 | ) | 15 | ) |
16 | import Brick.Widgets.Dialog qualified as D | 16 | import Brick.Widgets.Dialog qualified as D |
17 | import Graphics.Vty qualified as V | 17 | import Graphics.Vty qualified as V |
18 | import Import.Ing.SavingsAccountCsv qualified | ||
19 | import Import.Ing.CurrentAccountCsv qualified | 18 | import Import.Ing.CurrentAccountCsv qualified |
19 | import Import.Ing.CurrentAccountCsv2 qualified | ||
20 | import Import.Ing.SavingsAccountCsv qualified | ||
20 | import System.IO (IOMode (ReadMode), withFile) | 21 | import System.IO (IOMode (ReadMode), withFile) |
21 | import Text.Pretty.Simple (pPrint) | 22 | import Text.Pretty.Simple (pPrint) |
22 | 23 | ||
@@ -91,10 +92,10 @@ theApp = | |||
91 | 92 | ||
92 | main :: IO () | 93 | main :: IO () |
93 | main = do | 94 | main = do |
94 | let filename = "/home/rutgerbrf/Code/P/wayligmative/test.csv" | 95 | let filename = "/home/rutgerbrf/Code/P/wayligmative/test3.csv" |
95 | putStrLn $ "Reading " ++ filename | 96 | putStrLn $ "Reading " ++ filename |
96 | withFile filename ReadMode $ \h -> do | 97 | withFile filename ReadMode $ \h -> do |
97 | entries <- Import.Ing.CurrentAccountCsv.readFile h | 98 | entries <- Import.Ing.CurrentAccountCsv2.readFile h |
98 | pPrint entries | 99 | pPrint entries |
99 | 100 | ||
100 | -- d <- M.defaultMain theApp initialState | 101 | -- d <- M.defaultMain theApp initialState |