   (let [formatted-date (unparse (formatter "dd.MM.yyyy") date)
         cached-shows   (get @shows-db formatted-date)]
     (if cached-shows
-      [formatted-date cached-shows]
+      {:date           formatted-date
+       :shows-by-genre cached-shows}
       (let [new-shows (parse-shows-and-group-by-genre
                         (zip/xml-zip
                           (xml/parse

              content]]]))

(defn render-show [show]
  [:div (:title show)])

(defn show-table [shows]
  [:table

(defn parse-shows-and-group-by-genre [xz]
  (let [shows (for [show (xml-> xz :Shows :Show)]
          (Show.
            (xml1-> show :EventID text)
            (xml1-> show :OriginalTitle text)
            (xml1-> show :TheatreAndAuditorium text)
            (into #{} (split (xml1-> show :Genres text) #", "))
