summaryrefslogtreecommitdiffstats
path: root/app/Main.hs
diff options
context:
space:
mode:
authorRutger Broekhoff2025-03-21 09:45:22 +0100
committerRutger Broekhoff2025-03-21 09:45:22 +0100
commite40e290ef216656d304f4f3095dbef223e94191d (patch)
tree925951d353ac81e122a8d34683ae7b7093930f44 /app/Main.hs
parent86c8896ee69b068368b4ef9a4c3923285907c328 (diff)
downloadrdcapsis-e40e290ef216656d304f4f3095dbef223e94191d.tar.gz
rdcapsis-e40e290ef216656d304f4f3095dbef223e94191d.zip
Changes
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