|
|
@ -1,5 +1,6 @@
|
|
|
|
(ns asciinema.component.yada-listener
|
|
|
|
(ns asciinema.component.yada-listener
|
|
|
|
(:require [com.stuartsierra.component :as component]
|
|
|
|
(:require [bidi.vhosts :refer [vhosts-model]]
|
|
|
|
|
|
|
|
[com.stuartsierra.component :as component]
|
|
|
|
[yada.yada :as yada]))
|
|
|
|
[yada.yada :as yada]))
|
|
|
|
|
|
|
|
|
|
|
|
(defrecord YadaListener [port server app]
|
|
|
|
(defrecord YadaListener [port server app]
|
|
|
@ -7,7 +8,7 @@
|
|
|
|
(start [component]
|
|
|
|
(start [component]
|
|
|
|
(if server
|
|
|
|
(if server
|
|
|
|
component
|
|
|
|
component
|
|
|
|
(let [handler (:routes app)
|
|
|
|
(let [handler (vhosts-model [:* (:routes app)]) ; wrap in * vhost to make path-for work
|
|
|
|
server (yada/listener handler {:port port})]
|
|
|
|
server (yada/listener handler {:port port})]
|
|
|
|
(assoc component :server server))))
|
|
|
|
(assoc component :server server))))
|
|
|
|
(stop [component]
|
|
|
|
(stop [component]
|
|
|
|