Fixed issue with rollback that wasn't properly reversing the order of…

… migrations.
weavejester · Aug 29, 2011 · 3f1eb0c · 3f1eb0c
1 parent 636ba7a
commit 3f1eb0c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/lobos/core.clj b/src/lobos/core.clj
@@ -201,8 +201,7 @@
                [(last (mig/query-migrations-table db-spec sname))]
                (= 1 (count args))
                (let [arg (first args)
-                     migs (reverse
-                           (mig/query-migrations-table db-spec sname))]
+                     migs (mig/query-migrations-table db-spec sname)]
                  (cond
                   (integer? arg) (take arg migs)
                   (= arg :all) migs

diff --git a/src/lobos/migration.clj b/src/lobos/migration.clj
@@ -231,9 +231,10 @@
            (list-migrations-names)))
 
 (defn do-migrations [db-spec sname with names & [silent]]
-  (let [migrations (->> names
+  (let [filter-migs #(only % (list-migrations-names))
+        migrations (->> names
                         (map str)
-                        (only (list-migrations-names))
+                        filter-migs
                         (when->> (= with :down) reverse)
                         (map symbol)
                         (map (partial ns-resolve *migrations-namespace*))