   (db/open-db filename))
 
 (defn tournaments
+  "Returns a list of tournaments in the database"
   [db]
   (->> (db/table db "Tournament")
     db/rows

  (if (= 2 (count team-ids))
    (let [pair (map all-teams team-ids)]
      [pair (reverse pair)])
    [(all-teams (:TeamId (first team-ids))) bye]))

(defn pairings-for-round
  [db round-id all-teams]

      (:PrimaryDciNumber person))))

(defn teams
  "Returns a list of teams in the tournament with the given id number."
  [db tournament-id]
  (let [team-table (db/table db "Team")
        teamplayer-table (db/table db "TeamPlayers")]
