ndwarshuis
/
pwncash
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX print all io errors on reading statements

This commit is contained in:
Nathan Dwarshuis 2023-05-16 23:29:39 -04:00
parent 48adbccdcc
commit 153b351eab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -173,7 +173,7 @@ runSync c = do
fmap (\f -> f $ takeDirectory c) $ liftIOExceptT $ getDBState config fmap (\f -> f $ takeDirectory c) $ liftIOExceptT $ getDBState config
-- read desired statements from disk -- read desired statements from disk
bSs <- flip runReaderT s $ catMaybes <$> mapM readHistStmt hSs bSs <- flip runReaderT s $ catMaybes <$> mapErrorsIO readHistStmt hSs
-- update the DB -- update the DB
runSqlQueryT pool $ withTransaction $ flip runReaderT s $ do runSqlQueryT pool $ withTransaction $ flip runReaderT s $ do