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