FIX print all io errors on reading statements

2023-05-16 23:29:39 -04:00 · 2023-05-16 23:29:39 -04:00 · 153b351eab
parent 48adbccdcc
commit 153b351eab
1 changed files with 1 additions and 1 deletions
--- 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