13 lines
339 B
Clojure
13 lines
339 B
Clojure
|
(ns pinkblackrose.main
|
||
|
(:gen-class)
|
||
|
(:require [duct.core :as duct]))
|
||
|
|
||
|
(duct/load-hierarchy)
|
||
|
|
||
|
(defn -main [& args]
|
||
|
(let [keys (or (duct/parse-keys args) [:duct/daemon])
|
||
|
profiles [:duct.profile/prod]]
|
||
|
(-> (duct/resource "pinkblackrose/config.edn")
|
||
|
(duct/read-config)
|
||
|
(duct/exec-config profiles keys))))
|