From 153b351eabf770ad99c9646e8f898f1c9c9fb23a Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 16 May 2023 23:29:39 -0400
Subject: [PATCH] FIX print all io errors on reading statements

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 715f85c..8142e30 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -173,7 +173,7 @@ runSync c = do
       fmap (\f -> f $ takeDirectory c) $ liftIOExceptT $ getDBState config
 
     -- read desired statements from disk
-    bSs <- flip runReaderT s $ catMaybes <$> mapM readHistStmt hSs
+    bSs <- flip runReaderT s $ catMaybes <$> mapErrorsIO readHistStmt hSs
 
     -- update the DB
     runSqlQueryT pool $ withTransaction $ flip runReaderT s $ do