         matches-to-give-a-league (difference matches-played matches-with-leagues)
         transaction              (map (fn [mid] {:db/id mid :match/league (:id default-league)})
                                       matches-to-give-a-league)]
-    (info (merge {:ensure-all-matches-happened-in-a-league matches-to-give-a-league
-                  :count (count matches-to-give-a-league)}
-                 (util/symbols-as-map default-league)))
+    (info "Matches changed:" (count matches-to-give-a-league))
     @(d/transact conn transaction)))
 
 (def migrations "seq of idempotent migration functions"
-  [["ensure-players-users-have-roles" ensure-players-users-have-roles]
-   ["ensure-atleast-one-league-exists" ensure-atleast-one-league-exists]
-   ["ensure-all-players-have-atleast-one-league" ensure-all-players-have-atleast-one-league]
-   ["ensure-all-matches-happened-in-a-league" ensure-all-matches-happened-in-a-league]])
+  [#'ensure-players-users-have-roles
+   #'ensure-atleast-one-league-exists
+   #'ensure-all-players-have-atleast-one-league
+   #'ensure-all-matches-happened-in-a-league])
 
 (defn migrate-schema-and-data [conn]
-  (doseq [[name migration-fn] migrations]
-    (info "running migration:" name)
-    (migration-fn conn)))
+  (doseq [migration-var migrations]
+    (info "Running migration:" (:doc (meta migration-var)))
+    (migration-var conn)))

        players-to-give-a-league (difference players-with-names players-with-leagues)
        transaction              (map (fn [pid] {:db/id pid :player/leagues (:id  default-league)})
                                      players-to-give-a-league)]
    (info (merge {:ensure-all-players-have-atleast-one-league players-to-give-a-league
                  :count (count players-to-give-a-league)}
                 (util/symbols-as-map default-league)))
    @(d/transact conn transaction)))

(defn- ensure-all-matches-happened-in-a-league [conn]
  (let [dbc                      (db conn)
        default-league           (get-default-league dbc)
        matches-played           (->> (d/q '[:find ?mid :where [?mid :match/time _]] dbc)

      (filter (fn [{:keys [name]}] (= name default-league-name)))
      first))

(defn- ensure-atleast-one-league-exists
  "Create a default league if one does not exist"
  [conn]
  (let [dbc         (db conn)
        leagues     (get-leagues dbc)
        no-leagues? (empty? leagues)]
    (when no-leagues?
      (info "Creating default league:" default-league-name)
      @(d/transact conn [{:db/id (d/tempid :db.part/user) :league/name default-league-name}]))))

(defn- ensure-all-players-have-atleast-one-league
  "Ensure that every player is in a league"
  [conn]
  (let [dbc                      (db conn)
        default-league           (get-default-league dbc)
        players-with-names       (->> (d/q '[:find ?pid :where [?pid :player/name _]] dbc)
