Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Removed the print-migration function, replaced its use by println.

  • Loading branch information...
commit a3fd19cb89e7c547f7c11d69eeaf7f30eca5b89b 1 parent 72cd4ab
@budu budu authored
Showing with 3 additions and 16 deletions.
  1. +2 −2 src/lobos/core.clj
  2. +1 −14 src/lobos/migration.clj
View
4 src/lobos/core.clj
@@ -179,11 +179,11 @@
(defcommand print-done []
(doseq [name (mig/query-migrations-table db-spec sname)]
- (mig/print-migration name)))
+ (println name)))
(defcommand print-pending []
(doseq [name (mig/pending-migrations db-spec sname)]
- (mig/print-migration name)))
+ (println name)))
(defn print-stash []
(when (.exists mig/*stash-file*)
View
15 src/lobos/migration.clj
@@ -206,19 +206,6 @@
(defn list-migrations-names []
(map #(-> % meta :name str) (list-migrations)))
-(defn print-migration [name-or-migration]
- (let [migration (if (var? name-or-migration)
- name-or-migration
- (->> name-or-migration
- symbol
- (ns-resolve *migrations-namespace*)))]
- (if migration
- (do
- (-> migration meta :name println)
- (when-let [doc (-> migration meta :doc)]
- (println " " doc)))
- (println name-or-migration))))
-
(defn pending-migrations [db-spec sname]
(exclude (query-migrations-table db-spec
sname)
@@ -235,7 +222,7 @@
(binding [*record* nil]
(doseq [migration migrations]
(let [name (-> migration meta :name)]
- (print-migration name)
+ (println name)
(if (= with :up)
(do
(up migration)
Please sign in to comment.
Something went wrong with that request. Please try again.