Fix migration-files to sort by numerically instead of string-wise.

fukamachi · Jun 18, 2024 · 80991a6 · 80991a6
1 parent e957ca0
commit 80991a6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/migration/versions.lisp b/src/migration/versions.lisp
@@ -256,11 +256,11 @@
         (error ()
           (warn "Invalid version format in a migration file: ~A~%Version must be an integer. Ignored." file))))))
 
-(defun migration-files (base-directory &key (sort-by #'string<))
+(defun migration-files (base-directory &key (sort-by #'<))
   (sort (uiop:directory-files (merge-pathnames #P"migrations/" base-directory)
                               "*.up.sql")
         sort-by
-        :key #'pathname-name))
+        :key #'migration-file-version))
 
 (defun %migration-status (directory)
   (let ((db-versions