     (println ";; Stopping github crawler"))
   )
 
+
 (defn find-countries [database]
   (d/q '[:find ?name
          :where [?e :db/ident ?name]]
        (d/db (:connection database))))
+
 
 (defn sum [req]
   {:status 200

    (println ";; Starting database")
    (let [conn (connect-to-database uri)]
      (assoc this :connection conn)
      (println "connected to " conn)))

  (stop [this]
    (println ";; Stopping database")

(defn prod-system [config-options]
  (component/system-map
    :database (make-database (:datomic-uri config-options))
    :github-crawler (component/using
                      (map->GithubCrawler {:serveraddress (:github-address config-options)})
                      [:database])
    :web-app (component/using
               (map->WebApp {:port 10555}) [:database])))


(defn -main [& [port]]
