(defn close-jetty [s]
  (.stop s))

(defrecord Httpserver [conf]
  component/Lifecycle
  (start [component] (println "Starting HTTP Component")
    (let [serv (run-jetty app {:port (env :port) :daemon? true :join? false})
          uri (format "http://localhost:%d/"  (env :port))]
      (println "jetty server is running at" uri)
      (assoc component :server serv)))
  (stop [component] (println "Stopping HTTP Server")
    (println (:server component))
    ;;(.stop (:server component))
    (close-jetty (:server component)) ;; org.eclipse.jetty.server.Server
    (assoc component :server nil)
    ))