diff options
Diffstat (limited to 'app/Main.hs')
-rw-r--r-- | app/Main.hs | 3 |
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 | |||
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 | 18 | import Import.Ing.SavingsAccountCsv qualified |
19 | import Import.Ing.CurrentAccountCsv qualified | ||
19 | import System.IO (IOMode (ReadMode), withFile) | 20 | import System.IO (IOMode (ReadMode), withFile) |
20 | import Text.Pretty.Simple (pPrint) | 21 | import 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 |