Add schema change detection
This commit is contained in:
parent
c68c504b53
commit
14cf97d473
2 changed files with 7 additions and 3 deletions
|
@ -15,6 +15,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
|
|||
- `listaccounts` RPC method
|
||||
- `listaddresses` RPC method
|
||||
|
||||
### Changed
|
||||
|
||||
- Detection of changes in database schema for automatic re-scan
|
||||
|
||||
## [0.6.0.0-beta]
|
||||
|
||||
### Added
|
||||
|
|
|
@ -307,13 +307,11 @@ initDb ::
|
|||
T.Text -- ^ The database path to check
|
||||
-> IO (Either String Bool)
|
||||
initDb dbName = do
|
||||
print "Start database"
|
||||
j <-
|
||||
try $ PS.runSqlite dbName $ runMigrationQuiet migrateAll :: IO
|
||||
(Either SomeException [T.Text])
|
||||
case j of
|
||||
Left e1 -> do
|
||||
print e1
|
||||
Left _e1 -> do
|
||||
pool <- runNoLoggingT $ initPool dbName
|
||||
wallets <-
|
||||
runNoLoggingT $
|
||||
|
@ -345,6 +343,8 @@ initDb dbName = do
|
|||
runNoLoggingT $
|
||||
PS.retryOnBusy $
|
||||
flip PS.runSqlPool backupPool $ insertMany_ $ entityVal <$> abook
|
||||
clearWalletTransactions pool
|
||||
clearWalletData pool
|
||||
m <-
|
||||
try $ PS.runSqlite dbName $ runMigrationQuiet migrateAll :: IO
|
||||
(Either SomeException [T.Text])
|
||||
|
|
Loading…
Reference in a new issue