unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-11-10 11:15:08 +03:00
Code Issues Projects Releases Wiki Activity

Add note for when migration is finished.

Browse Source
This commit is contained in:
Chris Penner 2022-03-03 15:08:03 -06:00
parent 500260a01a
commit 355fce4c71
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
parser-typechecker/src/Unison/Codebase/SqliteCodebase/Migrations.hs
View File

@ -49,8 +49,10 @@ ensureCodebaseIsUpToDate localOrRemote root conn codebase = UnliftIO.try do
Map.filterWithKey (\v _ -> v > schemaVersion) migrations
when (localOrRemote == Local && (not . null) migrationsToRun) $ backupCodebase root
for_ (Map.toAscList migrationsToRun) $ \(SchemaVersion v, migration) -> do
liftIO . putStrLn $ "Migrating codebase to version " <> show v <> "..."
liftIO . putStrLn $ "🔨 Migrating codebase to version " <> show v <> "..."
migration conn codebase
when ((not . null) migrationsToRun) $ do
liftIO . putStrLn $ "🏁 Migration complete. 🏁"
-- | Copy the sqlite database to a new file with a unique name based on current time.
backupCodebase :: CodebasePath -> MonadIO m => m ()