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

      api))


(defrecord WebServer [github-crawler database port]
  component/Lifecycle
  (start [component]
    (do

(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]]
