                                :Country country})
     ))
 
-(defn make-adj-list-node [query-result]
+(defn- make-adj-list-node [query-result]
   (let [adjudicator-infos (map first query-result)]
     (xml/element
       :AdjList

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Utils
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn get-db [data]
  (let [clean-data (uidb/sanitize data)
        conn (d/create-conn uidb/schema)]
    (d/transact! conn [clean-data])
    (d/db conn)))

(defn export-dance-perfect [db]
  (xml/element
      :DancePerfect
      {:Version "4.1"}

        []
        adjudicator-infos))))

(defn- make-panel-list-node [adjudicator-panels]
  (xml/element
    :PanelList
    {:Qty (count adjudicator-panels)}
