                           (fn [_]
                             (call-server
                               (fn [res]
+                                (println "Start crawling github for users")
                                 (om/transact! app :crawl-result (fn [_] res))
-                                (println "Craw github:" (:crawl-result @app)))
+                                (println "Crawled github, found " (:crawl-result @app)))
                               "/crawl"))}
                      "Crawl Github")
                    (dom/button

     :on-complete cb}))


(om/root
  (fn [app owner]
    (reify

                              "/clear-database"))}
                     "Clear database")
                   (dom/label nil (str "Crawled and imported " (pr-str (:import-count (:crawl-result app))) " users."))
                   #_(dom/textarea #js {:value (pr-str (:users app))})
                   (om/build users-view (:users app)))
          ))))
  app-state
  {:target (. js/document (getElementById "app"))})




(defn foo [v]
