             :result-array (result-facts->result-array (:result/_activity activity-result))
             }})
 
-
-(get-marks result-facts)
-(get-dancers result-facts)
-(get-results-for-dancer result-facts 141)
-(apply hash-set [:a :b :b :c])
-(activity-result->class-result activity-result)
-activity-result
 ;; Provides useful Timbre aliases in this ns
 (log/refer-timbre)
 

    {:adjudicator/number 5}]},
  :round/dances [{:dance/name "Medium"} {:dance/name "Medium"}]}])

(def activity-result (first activities-with-result))

activity-result

(defn short-round-name [round-name]
  (condp = round-name

        out-xml (add-results-to-dp-xml in-xml (first class-results))]
    (spit "export5.xml" (xml/emit-str out-xml))))

;; TODO - should be the callers responsibillity to provide correct format
(defn- transform-result [activities-with-result]
  
