FIX print all io errors on reading statements
This commit is contained in:
parent
48adbccdcc
commit
153b351eab
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue