Order log entries when verifying migration status (#552)

haskell-beam · Jun 11, 2021 · 77c4456 · 77c4456
1 parent f461925
commit 77c4456
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/beam-migrate/Database/Beam/Migrate/Simple.hs b/beam-migrate/Database/Beam/Migrate/Simple.hs
@@ -129,7 +129,7 @@ bringUpToDateWithHooks :: forall db be m
 bringUpToDateWithHooks hooks be@(BeamMigrationBackend { backendRenderSyntax = renderSyntax' }) steps = do
   ensureBackendTables be
 
-  entries <- runSelectReturningList $ select $
+  entries <- runSelectReturningList $ select $ orderBy_ (asc_ . _logEntryId) $
              all_ (_beamMigrateLogEntries (beamMigrateDb @be @m))
   let verifyMigration :: Int -> T.Text -> Migration be a -> StateT [LogEntry] (WriterT (Max Int) m) a
       verifyMigration stepIx stepNm step =