                      {:db/id -1 :app/selected-competition {}}]))
 
 (defn app-started? [conn]
-  (not
-    (empty? (d/q '[:find ?e
-                   :where
-                   [?e :app/id 1]] (d/db conn)))))
+  (seq (d/q '[:find ?e
+              :where
+              [?e :app/id 1]] (d/db conn))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Server message handling

;; Application

;; Init db etc if it has not been done
(when (not (app-started? conn))
  (init-app))

(def reconciler


        (dom/div #js {:className "container-fluid"}
          (dom/div #js {:className "row"}
            (when (and (seq selected-competition)
                       (= :running (:app/status (om/props this)))
                       (not= :importing (:app/import-status (om/props this))))
              (dom/div #js {:className "col-sm-2 col-md-2 sidebar"}
