Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix migration issues

Browse Source
This commit is contained in:
Keagan McClelland
2022-05-26 16:13:30 -06:00
parent 4ea75cb96a
commit d0764a2f01
2 changed files with 5 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/Application.hs
View File

@@ -150,18 +150,11 @@ makeFoundation appSettings = do
stopEosWatch <- runLoggingT (runReaderT (watchEosRepoRoot pool) appSettings) logFunc
runSqlPool
(Database.Persist.Migration.Postgres.runMigration Database.Persist.Migration.defaultSettings manualMigration)
pool
-- Preform database migration using application logging settings
runLoggingT (runSqlPool (runMigration migrateAll) pool) logFunc
`UnliftIO.catch` (\(e :: SomeException) -> do
print e
runSqlPool
(Database.Persist.Migration.Postgres.runMigration
Database.Persist.Migration.defaultSettings
manualMigration
)
pool
runLoggingT (runSqlPool (runMigration migrateAll) pool) logFunc
)
-- Return the foundation
return $ mkFoundation pool stopEosWatch

4
src/Migration.hs
View File

@@ -26,9 +26,9 @@ migration_0_2_0 =
populateMetadata :: Operation
populateMetadata =
RawOperation "Populating Metadata"
$ migrateTitles
$ migrateMetadata
<<$>> rawSql "SELECT pkg_id, title, desc_short, desc_long, icon_type FROM pkg_record" []
where
migrateTitles (Single id', Single title', Single descShort', Single descLong', Single iconType') = MigrateSql
migrateMetadata (Single id', Single title', Single descShort', Single descLong', Single iconType') = MigrateSql
"UPDATE version SET title = ?, desc_short = ?, desc_long = ?, icon_type = ? where pkg_id = ?"
[PersistText title', PersistText descShort', PersistText descLong', PersistText iconType', PersistText id']